Commit 6e0e9eb1adfb
.emacs.d/emacs.el
@@ -1264,7 +1264,7 @@ This can be 0 for immediate, or a floating point value.")
(org-todo "PROGRESS"))
(setq org-agenda-custom-commands
- '(("d" "Daily agenda and all TODOs"
+ '(("d" "Daily agenda and all TODOs"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "High-priority unfinished tasks:")))
@@ -1322,47 +1322,19 @@ This can be 0 for immediate, or a floating point value.")
;; ("2" "Bi-weekly review" agenda "" ((org-agenda-span 14) (org-agenda-log-mode 1)))
;; Panic tasks : urgent & important
;; Probably the most important to do, but try not have to much of them..
- ("P" . "Panic -emergency-")
- ("Pt" "TODOs" tags-todo "important&urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Pb" "BLOCKEDs" tags-todo "important&urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Pr" "REVIEWs" tags-todo "important&urgent/!REVIEW"
+ ("P" "Panic -emergency-" tags-todo "important&urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Kaizen tasks : important but not urgent
- ("K" . "Kaizen -improvement-")
- ("Kt" "TODOs" tags-todo "important&-urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Kb" "BLOCKEDs" tags-todo "important&-urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Kr" "REVIEWs" tags-todo "important&-urgent/!REVIEW"
+ ("K" "Kaizen -improvement-" tags-todo "important&-urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Social investment : urgent
- ("S" . "Social -investment-")
- ("St" "TODOs" tags-todo "-important&urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Sb" "BLOCKEDs" tags-todo "-important&urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Sr" "REVIEWs" tags-todo "-important&urgent/!REVIEW"
+ ("S" "Social -investment-" tags-todo "-important&urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Organics
- ("O" . "Organics -inspiration-")
- ("Ot" "TODOs" tags-todo "-important&-urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Ob" "BLOCKEDs" tags-todo "-important&-urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Or" "REVIEWs" tags-todo "-important&-urgent/!REVIEW"
+ ("O" "Organics -inspiration-" tags-todo "-important&-urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
("N" search ""
@@ -1378,14 +1350,14 @@ PRIORITY may be one of the characters ?A, ?B, or ?C."
(pri-current (org-get-priority (thing-at-point 'line t))))
(if (= pri-value pri-current)
subtree-end
- nil)))
+ nil)))
(defun vde/org-skip-subtree-if-habit ()
"Skip an agenda entry if it has a STYLE property equal to \"habit\"."
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(if (string= (org-entry-get nil "STYLE") "habit")
subtree-end
- nil)))
+ nil)))
(use-package htmlize
:ensure t
.emacs.d/emacs.org
@@ -2265,7 +2265,7 @@
#+BEGIN_SRC emacs-lisp
(setq org-agenda-custom-commands
- '(("d" "Daily agenda and all TODOs"
+ '(("d" "Daily agenda and all TODOs"
((tags "PRIORITY=\"A\""
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "High-priority unfinished tasks:")))
@@ -2323,47 +2323,19 @@
;; ("2" "Bi-weekly review" agenda "" ((org-agenda-span 14) (org-agenda-log-mode 1)))
;; Panic tasks : urgent & important
;; Probably the most important to do, but try not have to much of them..
- ("P" . "Panic -emergency-")
- ("Pt" "TODOs" tags-todo "important&urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Pb" "BLOCKEDs" tags-todo "important&urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Pr" "REVIEWs" tags-todo "important&urgent/!REVIEW"
+ ("P" "Panic -emergency-" tags-todo "important&urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Kaizen tasks : important but not urgent
- ("K" . "Kaizen -improvement-")
- ("Kt" "TODOs" tags-todo "important&-urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Kb" "BLOCKEDs" tags-todo "important&-urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Kr" "REVIEWs" tags-todo "important&-urgent/!REVIEW"
+ ("K" "Kaizen -improvement-" tags-todo "important&-urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Social investment : urgent
- ("S" . "Social -investment-")
- ("St" "TODOs" tags-todo "-important&urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Sb" "BLOCKEDs" tags-todo "-important&urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Sr" "REVIEWs" tags-todo "-important&urgent/!REVIEW"
+ ("S" "Social -investment-" tags-todo "-important&urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
;; Organics
- ("O" . "Organics -inspiration-")
- ("Ot" "TODOs" tags-todo "-important&-urgent/!TODO"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Ob" "BLOCKEDs" tags-todo "-important&-urgent/!BLOCKED"
- ((org-agenda-sorting-strategy '(priority-down))
- (org-agenda-prefix-format " Mixed: ")))
- ("Or" "REVIEWs" tags-todo "-important&-urgent/!REVIEW"
+ ("O" "Organics -inspiration-" tags-todo "-important&-urgent"
((org-agenda-sorting-strategy '(priority-down))
(org-agenda-prefix-format " Mixed: ")))
("N" search ""
@@ -2379,14 +2351,14 @@
(pri-current (org-get-priority (thing-at-point 'line t))))
(if (= pri-value pri-current)
subtree-end
- nil)))
+ nil)))
(defun vde/org-skip-subtree-if-habit ()
"Skip an agenda entry if it has a STYLE property equal to \"habit\"."
(let ((subtree-end (save-excursion (org-end-of-subtree t))))
(if (string= (org-entry-get nil "STYLE") "habit")
subtree-end
- nil)))
+ nil)))
#+END_SRC
** Publishing