ryuslash/emacs-config
1
0
Fork 0
Code Activity

Compare commits

base: ryuslash:239e72e5c9160ca41c4d3837353f96b34167b095
Branches Tags
ryuslash:master
...
compare: ryuslash:023282133f3676ea29b958899993f4a72d801fef
Branches Tags
ryuslash:master

2 commits
239e72e5c9 ... 023282133f

Author SHA1 Message Date
Tom Willemse
023282133f [oni-org] Delete extra blank lines after removing inbox items 2023-11-14 21:55:59 -08:00
Tom Willemse
0c86dce174 [oni-org] Fix off-by-one error 2023-11-14 21:55:47 -08:00
1 changed files with 4 additions and 3 deletions
Show stats Expand all files Collapse all files

7
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: 2023.1003.221329 ;; Version: 2023.1114.143023
;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async) ;; Package-Requires: (oni-yasnippet oni-alert oni-hydra org org-bullets org-edna diminish all-the-icons olivetti form-feed org-pretty-table ob-async)
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -1088,7 +1088,7 @@ placed above TARGET. Otherwise it will be placed below it."
(org-move-subtree-down)) (org-move-subtree-down))
(unless (string= element-title (format-time-string "%-d")) (unless (string= element-title (format-time-string "%-d"))
(oni-org-dump-tickler-1))) (oni-org-dump-tickler-1)))
(dotimes (_ 41) (dotimes (_ 42)
(org-move-subtree-down)) (org-move-subtree-down))
(oni-org-dump-tickler-1)))))) (oni-org-dump-tickler-1))))))
@ -1139,7 +1139,8 @@ placed above TARGET. Otherwise it will be placed below it."
(?T (org-set-tags-command)) (?T (org-set-tags-command))
(?q (throw 'done t))) (?q (throw 'done t)))
(quit nil))))) (quit nil)))))
(widen)))))) (widen)
(delete-blank-lines))))))
(defun oni-org-clock+post-drawer () (defun oni-org-clock+post-drawer ()
(if (and (markerp org-clock-hd-marker) (if (and (markerp org-clock-hd-marker)