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) + ) ) )