msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(emacs): Remove incorrect usage of org-heading-at-point

Browse Source
This commit is contained in:
Madeleine Sydney
2025-02-21 21:14:41 -07:00
parent d46c80b03b
commit d9d13d9bf6
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
users/crumb/programs/emacs/modules/syd-org.el
View File

@@ -230,9 +230,11 @@ See https://lists.gnu.org/archive/html/emacs-orgmode/2019-07/msg00081.html."
;; Show the repeater (the repeat interval, e.g. +1d) in repeating agenda ;; Show the repeater (the repeat interval, e.g. +1d) in repeating agenda
;; entries. ;; entries.
(defun syd-org--agenda-repeater () (defun syd-org--agenda-repeater ()
(if (org-before-first-heading-p) "The repeater information (e.g. +1w) in the agenda."
"-------" ; fill the time grid (let ((pom (org-get-at-bol 'org-marker)))
(format "%5s: " (or (org-get-repeat) "")))) (if (or (org-get-scheduled-time pom) (org-get-deadline-time pom))
(format "%5s: " (or (org-get-repeat) ""))
"┄┄┄┄┄┄┄┄┄┄┄┄")))
;; Add `syd-org--agenda-repeater' to the agenda prefix. ;; Add `syd-org--agenda-repeater' to the agenda prefix.
(setcdr (assoc 'agenda org-agenda-prefix-format) (setcdr (assoc 'agenda org-agenda-prefix-format)