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

Compare commits

base: exot:e675ec4b47ba26e279ccb2ddffd3ad1e0e2c27b0
Branches Tags
exot:master
..
compare: exot:7a42aedd9c1e5b570bbdcec91da1de78eed76611
Branches Tags
exot:master

No commits in common. "e675ec4b47ba26e279ccb2ddffd3ad1e0e2c27b0" and "7a42aedd9c1e5b570bbdcec91da1de78eed76611" have entirely different histories.
e675ec4b47 ... 7a42aedd9c

2 changed files with 19 additions and 11 deletions
Show Stats Expand all files Collapse all files

7
init.el
View File

@ -945,7 +945,7 @@
;; here is that projects that have an explicit SCHEDULED entry ;; here is that projects that have an explicit SCHEDULED entry
;; should not be considered before this date is due. ;; should not be considered before this date is due.
org-stuck-projects org-stuck-projects
'("+TODO=\"\"-DATE-HOLD-NOTE-WAIT-NOP-TOPIC-SOMEWHEN-TEMPLATE-SCHEDULED>=\"<+0d>\"" '("+TODO=\"\"-DATE-HOLD-NOTE-TAGS={NOP\\|TOPIC\\|SOMEWHEN\\|TEMPLATE}-SCHEDULED>=\"<+0d>\""
("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG" "ATTN") ("CONT" "TODO" "READ" "WAIT" "GOTO" "DELG" "ATTN")
() ()
"") "")
@ -2036,7 +2036,7 @@ point to the beginning of buffer first."
helm-select-action helm-select-action
helm-make-source) helm-make-source)
:defines (helm-source-bookmarks) ; via helm-bookmarks.el :defines (helm-source-bookmarks) ; via helm-bookmarks.el
:init (setq helm-command-prefix-key "C-c h" ; see `db/run-init' for explicit binding :init (setq helm-command-prefix-key "C-c h"
helm-input-idle-delay 0.0 helm-input-idle-delay 0.0
helm-buffers-fuzzy-matching t helm-buffers-fuzzy-matching t
helm-autoresize-min-height 20 helm-autoresize-min-height 20
@ -2998,8 +2998,7 @@ eventuelly be set to nil, however)."
(bind-key "C-S-s" #'counsel-grep-or-swiper)) (bind-key "C-S-s" #'counsel-grep-or-swiper))
(when (package-installed-p 'helm) (when (package-installed-p 'helm)
(bind-key "M-y" #'helm-show-kill-ring) (bind-key "M-y" #'helm-show-kill-ring))
(bind-key helm-command-prefix-key #'helm-command-prefix))
(when (package-installed-p 'crux) (when (package-installed-p 'crux)
(bind-key [remap kill-whole-line] #'crux-kill-whole-line) (bind-key [remap kill-whole-line] #'crux-kill-whole-line)

23
site-lisp/db-org.el
View File

@ -828,18 +828,27 @@ forces clocking in of the default task."
(defhydra hydra-org-clock (:color blue) (defhydra hydra-org-clock (:color blue)
;; Quote %, as otherwise they would be misinterpreted as format characters ;; Quote %, as otherwise they would be misinterpreted as format characters
"\nCurrent Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\")); " "\nCurrent Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-task \"\")); "
("w" (db/org-clock-in-work-task) "clock in work") ("w" (db/org-clock-in-work-task) "work")
("h" (db/org-clock-in-home-task) "clock in home") ("h" (db/org-clock-in-home-task) "home")
("b" (db/org-clock-in-break-task) "clock in break") ("b" (db/org-clock-in-break-task) "break")
("s" (lambda () ("s" (lambda ()
(interactive) (interactive)
(org-clock-in '(4))) (org-clock-in '(4)))
"select clock") "select")
("j" (db/org-clock-goto-first-open-checkbox) ("c" (db/org-clock-goto-first-open-checkbox)
"jump to current") "go to current")
("a" counsel-org-goto-all "go to any") ("a" counsel-org-goto-all "go to any")
("o" org-clock-out "clock out") ("o" org-clock-out "clock out")
("l" db/org-clock-in-last-task "clock in last")) ("l" db/org-clock-in-last-task "last")
("d" (lambda ()
(interactive)
(when (org-clock-is-active)
(save-window-excursion
(org-clock-goto)
(let ((org-inhibit-logging 'note))
(org-todo 'done)
(org-save-all-org-buffers)))))
"default"))
;;; Babel ;;; Babel