emmet/nixos-config
0
1
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Only add categories automatically to org files

Browse Source
This commit is contained in:
Emmet
2023-10-04 21:02:03 -05:00
parent 85adc45787
commit 307d5d57cd
2 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
user/app/doom-emacs/config.el
View File

@@ -902,6 +902,14 @@ tasks."
(when (when
(string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) (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/"))))) (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)
)
) )
) )

8
user/app/doom-emacs/doom.org
View File

@@ -1055,6 +1055,14 @@ On Wayland, EAF doesn't work.
(when (when
(string-prefix-p (concat "/home/" user-username "/Org") (expand-file-name (buffer-file-name))) (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/"))))) (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)
)
) )
) )