ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-org] Log non-state notes into the task, outside a drawer

Browse source
This commit is contained in:
Tom Willemse 2021-09-12 03:09:18 -07:00
parent 6993a3f7af
commit a82ee89a23
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
oni-org/oni-org.el
View file

@ -4,7 +4,7 @@
;; Author: Tom Willemse <tom@ryuslash.org> ;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local ;; Keywords: local
;; Version: 2021.0911.024748 ;; Version: 2021.0912.030631
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti mixed-pitch) ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-contrib org-bullets org-edna diminish all-the-icons olivetti mixed-pitch)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -374,7 +374,6 @@ _di_: Add inlineimages STARTUP
(setq org-habit-graph-column 60) (setq org-habit-graph-column 60)
(setq org-hide-emphasis-markers t) (setq org-hide-emphasis-markers t)
(setq org-hide-macro-markers t) (setq org-hide-macro-markers t)
(setq org-log-into-drawer t)
(setq org-pretty-entities t) (setq org-pretty-entities t)
(setq org-return-follows-link t) (setq org-return-follows-link t)
(setq org-return-follows-link t) (setq org-return-follows-link t)
@ -385,6 +384,21 @@ _di_: Add inlineimages STARTUP
(setq org-use-fast-todo-selection t) (setq org-use-fast-todo-selection t)
(setq org-use-sub-superscripts '{}) (setq org-use-sub-superscripts '{})
;; Generally, for state updates and such, I like to have all of the notes added
;; into the logbook, but when I want to add a note manually I definitely want it
;; to show up easily seen in the buffer.
(setq org-log-into-drawer t)
(defun oni-org-logging-outside-drawer (func &rest args)
"Call FUNC with ARGS.
Set ‘org-log-into-drawer’ to nil if we’re trying to take a note,
and not a state update."
(let ((org-log-into-drawer (not (eql org-log-note-purpose 'note))))
(apply func args)))
(add-function :around (symbol-function 'org-store-log-note)
#'oni-org-logging-outside-drawer)
;; Set the maximum indentation level for description lists to 5 (which is the ;; Set the maximum indentation level for description lists to 5 (which is the
;; seemingly hardcoded value of the indentation it gets when it goes over ;; seemingly hardcoded value of the indentation it gets when it goes over
;; ‘org-list-description-max-indent’) so that I don’t get dangling descriptions ;; ‘org-list-description-max-indent’) so that I don’t get dangling descriptions