From d9d13d9bf63b78599a072f343e4cbd3e440be4b9 Mon Sep 17 00:00:00 2001 From: Madeleine Sydney Date: Fri, 21 Feb 2025 21:14:41 -0700 Subject: [PATCH] fix(emacs): Remove incorrect usage of org-heading-at-point --- users/crumb/programs/emacs/modules/syd-org.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/users/crumb/programs/emacs/modules/syd-org.el b/users/crumb/programs/emacs/modules/syd-org.el index 8b09c16..7594c4a 100755 --- a/users/crumb/programs/emacs/modules/syd-org.el +++ b/users/crumb/programs/emacs/modules/syd-org.el @@ -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 ;; entries. (defun syd-org--agenda-repeater () - (if (org-before-first-heading-p) - "-------" ; fill the time grid - (format "%5s: " (or (org-get-repeat) "")))) + "The repeater information (e.g. +1w) in the agenda." + (let ((pom (org-get-at-bol 'org-marker))) + (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. (setcdr (assoc 'agenda org-agenda-prefix-format)