emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Only configure org-habit if in org-modules

Browse source 
Rather than force org-habit even on folks that don't use it.
This commit is contained in:
Henrik Lissner 2020-05-11 03:03:41 -04:00
parent bae9f91636
commit 129eebcf2a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

40
modules/lang/org/config.el
View file

@ -436,27 +436,6 @@ underlying, modified buffer. This fixes that."
(variable . "revealjs-url=https://revealjs.com")))))
(defun +org-init-habit-h ()
"TODO"
(add-hook! 'org-agenda-mode-hook
(defun +org-habit-resize-graph-h ()
"Right align and resize the consistency graphs based on
`+org-habit-graph-window-ratio'"
(require 'org-habit)
(let* ((total-days (float (+ org-habit-preceding-days org-habit-following-days)))
(preceding-days-ratio (/ org-habit-preceding-days total-days))
(graph-width (floor (* (window-width) +org-habit-graph-window-ratio)))
(preceding-days (floor (* graph-width preceding-days-ratio)))
(following-days (- graph-width preceding-days))
(graph-column (- (window-width) (+ preceding-days following-days)))
(graph-column-adjusted (if (> graph-column +org-habit-min-width)
(- graph-column +org-habit-graph-padding)
nil)))
(setq-local org-habit-preceding-days preceding-days)
(setq-local org-habit-following-days following-days)
(setq-local org-habit-graph-column graph-column-adjusted)))))
(defun +org-init-hacks-h ()
"Getting org to behave."
;; Open file links in current window, rather than new ones
@ -994,7 +973,6 @@ compelling reason, so..."
#'+org-init-capture-frame-h
#'+org-init-custom-links-h
#'+org-init-export-h
#'+org-init-habit-h
#'+org-init-hacks-h
#'+org-init-keybinds-h
#'+org-init-popup-rules-h
@ -1030,6 +1008,24 @@ compelling reason, so..."
(setq org-id-track-globally t
org-id-locations-file-relative t)
(add-hook! 'org-agenda-mode-hook
(defun +org-habit-resize-graph-h ()
"Right align and resize the consistency graphs based on
`+org-habit-graph-window-ratio'"
(when (featurep 'org-habit)
(let* ((total-days (float (+ org-habit-preceding-days org-habit-following-days)))
(preceding-days-ratio (/ org-habit-preceding-days total-days))
(graph-width (floor (* (window-width) +org-habit-graph-window-ratio)))
(preceding-days (floor (* graph-width preceding-days-ratio)))
(following-days (- graph-width preceding-days))
(graph-column (- (window-width) (+ preceding-days following-days)))
(graph-column-adjusted (if (> graph-column +org-habit-min-width)
(- graph-column +org-habit-graph-padding)
nil)))
(setq-local org-habit-preceding-days preceding-days)
(setq-local org-habit-following-days following-days)
(setq-local org-habit-graph-column graph-column-adjusted)))))
;; HACK `org-id' doesn't check if `org-id-locations-file' exists or is
;; writeable before trying to read/write to it.
(defadvice! +org--fail-gracefully-a (&rest _)