From 307d5d57cd59d4e57d0064d4bfd47a2439341b64 Mon Sep 17 00:00:00 2001 From: Emmet Date: Wed, 4 Oct 2023 21:02:03 -0500 Subject: [PATCH] Only add categories automatically to org files --- user/app/doom-emacs/config.el | 8 ++++++++ user/app/doom-emacs/doom.org | 8 ++++++++ 2 files changed, 16 insertions(+) diff --git a/user/app/doom-emacs/config.el b/user/app/doom-emacs/config.el index 4873cd4..b596495 100644 --- a/user/app/doom-emacs/config.el +++ b/user/app/doom-emacs/config.el @@ -902,6 +902,14 @@ tasks." (when (string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) (org-set-property "CATEGORY" (substring (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/")) 0 (string-match "/" (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/"))))) + (when (string= (message "%s" major-mode) "org-mode") + (when + (string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) + (setq categorizer-old-line (line-number-at-pos)) + (evil-goto-first-line) + (org-set-property "CATEGORY" (substring (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/")) 0 (string-match "/" (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/"))))) + (evil-goto-line categorizer-old-line) + ) ) ) diff --git a/user/app/doom-emacs/doom.org b/user/app/doom-emacs/doom.org index 533c85d..650e930 100644 --- a/user/app/doom-emacs/doom.org +++ b/user/app/doom-emacs/doom.org @@ -1055,6 +1055,14 @@ On Wayland, EAF doesn't work. (when (string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) (org-set-property "CATEGORY" (substring (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/")) 0 (string-match "/" (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/"))))) + (when (string= (message "%s" major-mode) "org-mode") + (when + (string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) + (setq categorizer-old-line (line-number-at-pos)) + (evil-goto-first-line) + (org-set-property "CATEGORY" (substring (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/")) 0 (string-match "/" (string-trim-left (expand-file-name (buffer-file-name)) (concat "/home/" user-username "/Org/"))))) + (evil-goto-line categorizer-old-line) + ) ) )