dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: dbo:3bb5b4481dab4f4b5abff7bdf55a5e38a61ff08e
Branches Tags
dbo:master
...
compare: dbo:c45ca29ad0500b7658ca36c7a5e53484b161ca95
Branches Tags
dbo:master

3 Commits
3bb5b4481d ... c45ca29ad0

Author SHA1 Message Date
Daniel - c45ca29ad0
Unify WAIT and HOLD lists 
Both lists now include also non-TODO-items and only filter by tag and scheduling
information.
 2023-07-07 16:46:34 +02:00
Daniel - 1b62989720
Move deadlines before NEXT list in main agenda view 
Deadlines should be looked at first before choosing a task from the NEXT list.
 2023-07-07 16:43:39 +02:00
Daniel - d6bd360593
Reverse treatment of universal argument for helm shortcut menu 
Usually, when searching for important documents vie `db/helm-shortcuts`, I
forget to include the universal argument, abort the current search and repeat
it.  This is annoying.  Since listing documents is fast enough, including them
by default should alleviate this issue.

When retrieving the list of documents is too slow and should be disabled
interactively, providing a universal argument excludes this listing now.
 2023-07-07 16:27:09 +02:00
1 changed files with 14 additions and 9 deletions
Show Stats Expand all files Collapse all files

23
init.el
View File

@ -1179,13 +1179,13 @@
""
((org-agenda-entry-types '(:timestamp :sexp :scheduled :deadline))
(org-deadline-warning-days 0)))
(tags-todo "TODO={CONT\\|ATTN}-HOLD-TIMESTAMP>=\"<today>\"-SCHEDULED<>\"\"-NOT_BEFORE>=\"<today>\""
((org-agenda-overriding-header "Things to do next (Task shortlist and WIP, TODO ∈ {CONT,ATTN}, not scheduled)")))
(db/org-agenda-list-deadlines
""
((org-agenda-overriding-header "Deadlines")
(org-agenda-sorting-strategy '(deadline-up priority-down))
(org-deadline-warning-days 30)))
(tags-todo "TODO={CONT\\|ATTN}-HOLD-TIMESTAMP>=\"<today>\"-SCHEDULED<>\"\"-NOT_BEFORE>=\"<today>\""
((org-agenda-overriding-header "Things to do next (Task shortlist and WIP, TODO ∈ {CONT,ATTN}, not scheduled)")))
(tags-todo "TODO<>\"CONT\"-HOLD-SOMEWHEN-DATE-WAIT-TEMPLATE-SCHEDULED>=\"<today>\"-NOT_BEFORE>=\"<today>\""
((org-agenda-overriding-header "Task Backlog (not WIP, not scheduled now or in the future)")
(org-tags-match-list-sublevels t)))))
@ -1229,14 +1229,14 @@
))
("U" "Unsupervised (Waiting, Missed Appointments, Hold)"
((tags-todo "WAIT-HOLD-SOMEWHEN-SCHEDULED>=\"<today>\"-NOT_BEFORE>=\"<today>\""
((tags "WAIT-SOMEWHEN-SCHEDULED>=\"<today>\"-NOT_BEFORE>=\"<today>\""
((org-agenda-overriding-header "Waiting For List")))
(tags-todo "DATE-TIMESTAMP>=\"<today>\""
((org-agenda-overriding-header "Missed appointments (DATEs with timestamp in the past)")))
(tags "REFILE"
((org-agenda-files (list db/org-default-refile-file))
(org-agenda-overriding-header "Things to refile (make it empty!)")))
(tags "HOLD-TODO=\"DONE\"-TODO=\"CANC\"-TODO=\"MRGD\""
(tags "HOLD-SOMEWHEN-SCHEDULED>=\"<today>\"-NOT_BEFORE>=\"<today>\""
((org-agenda-overriding-header "Tasks on Hold")))))
@ -2356,10 +2356,15 @@ The password is assumed to be stored at the PASSWORD property."
(defun db/helm-shortcuts (arg)
"Open helm completion on common locations.
With given ARG, display files in `db/important-document-path’."
(interactive "p")
(require 'helm-bookmark)
(require 'helm-for-files) ; for helm-source-recentf
With universal argument ARG, inhibit display of files in
`db/important-document-path’. This might be helpful when loading
is too slow (in this case, `db/important-document-path' should
eventuelly be set to nil, however)."
(interactive "P")
(eval-when-compile
(require 'helm-bookmark)
(require 'helm-for-files)) ; for helm-source-recentf
(helm :sources (list
(helm-make-source "Frequently Used" 'helm-source-sync
:candidates (mapcar #'(lambda (entry)
@ -2376,7 +2381,7 @@ With given ARG, display files in `db/important-document-path’."
;; if prefix arg is given, extract files from
;; `db/important-documents-path’ and list them as well
(when (and (= arg 4)
(when (and (not arg)
(file-directory-p db/important-documents-path))
(let ((search-path (expand-file-name db/important-documents-path)))
(helm-make-source "Important files" 'helm-source-sync