|
|
@ -362,7 +362,7 @@ Windows Theme: |
|
|
|
(load-theme 'tango)) |
|
|
|
(when *sys/linux* |
|
|
|
(mapcar #'disable-theme custom-enabled-themes) |
|
|
|
(load-theme 'plastic)) |
|
|
|
(load-theme 'leuven)) |
|
|
|
#+END_SRC |
|
|
|
|
|
|
|
** line wrappings |
|
|
@ -1204,16 +1204,24 @@ If the property is already set, replace its value." |
|
|
|
:map org-mode-map ("S-<right>" . org-shiftright) |
|
|
|
("S-<left>" . org-shiftleft)) |
|
|
|
:init |
|
|
|
(defun my--org-agenda-files-set () |
|
|
|
"Sets default agenda files. |
|
|
|
Necessary when updating roam agenda todos." |
|
|
|
(setq org-agenda-files (list (concat MY--PATH_ORG_FILES "notes.org") |
|
|
|
(concat MY--PATH_ORG_FILES "projects.org") |
|
|
|
(concat MY--PATH_ORG_FILES "tasks.org"))) |
|
|
|
(when *sys/linux* |
|
|
|
(nconc org-agenda-files |
|
|
|
(directory-files-recursively MY--PATH_ORG_FILES_MOBILE "\\.org$")))) |
|
|
|
(my--org-agenda-files-set) |
|
|
|
;; (defun my--org-agenda-files-set () |
|
|
|
;; "Sets default agenda files. |
|
|
|
;; Necessary when updating roam agenda todos." |
|
|
|
;; (setq org-agenda-files (list (concat MY--PATH_ORG_FILES "notes.org") |
|
|
|
;; (concat MY--PATH_ORG_FILES "projects.org") |
|
|
|
;; (concat MY--PATH_ORG_FILES "tasks.org"))) |
|
|
|
;; (when *sys/linux* |
|
|
|
;; (nconc org-agenda-files |
|
|
|
;; (directory-files-recursively MY--PATH_ORG_FILES_MOBILE "\\.org$")))) |
|
|
|
;; (my--org-agenda-files-set) |
|
|
|
(setq org-agenda-files |
|
|
|
(cl-remove-if (lambda (file) |
|
|
|
;; exclude some subdirs |
|
|
|
(let ((excluded-dirs '("notes" "dummy"))) |
|
|
|
(cl-some (lambda (dir) (string-match-p (concat "/" dir "/") file)) |
|
|
|
excluded-dirs))) |
|
|
|
;; (string-match-p "/notes/" file)) |
|
|
|
(directory-files-recursively MY--PATH_ORG_FILES "\\.org$"))) |
|
|
|
|
|
|
|
(defun my--org-skip-subtree-if-priority (priority) |
|
|
|
"Skip an agenda subtree if it has a priority of PRIORITY. |
|
|
@ -1232,12 +1240,41 @@ nil))) |
|
|
|
(setq org-todo-keywords |
|
|
|
'((sequence "WAIT" "OPEN" "NEXT" "TODO" "|" "DONE" "DROP"))) |
|
|
|
(setq org-capture-templates |
|
|
|
'(("t" "telephone call" entry |
|
|
|
; (file+olp+datetree (concat MY--PATH_ORG_FILES "phone_calls.org")) |
|
|
|
(file+datetree "p:/Eigene Dateien/Notizen/phone_calls.org") |
|
|
|
"* [%<%Y-%m-%d %H:%M>] %?" |
|
|
|
:empty-lines 0 :jump-to-captured t)))) |
|
|
|
; '(("t" "telephone call" entry |
|
|
|
;; (file+olp+datetree (concat MY--PATH_ORG_FILES "phone_calls.org")) |
|
|
|
; (file+datetree "p:/Eigene Dateien/Notizen/phone_calls.org") |
|
|
|
; "* [%<%Y-%m-%d %H:%M>] %?" |
|
|
|
; :empty-lines 0 :jump-to-captured t)))) |
|
|
|
'(("t" "telephone call" |
|
|
|
entry (file+datetree "p:/Eigene Dateien/Notizen/phone_calls.org") |
|
|
|
"* [%<%Y-%m-%d %H:%M>] %? :calls:" |
|
|
|
:empty-lines 0 |
|
|
|
:prepare-finalize (org-id-get-create) |
|
|
|
:jump-to-captured t)))) |
|
|
|
(when *sys/linux* |
|
|
|
(setq org-capture-templates |
|
|
|
;; TODO |
|
|
|
;; entry for a journal? |
|
|
|
;; entry for a project incl. layout |
|
|
|
;; entry for a todo in a todo file |
|
|
|
;; add an entry to a new or existing node |
|
|
|
;; which is not in the org-node exclusion list |
|
|
|
'(("i" "capture into ID node" |
|
|
|
entry (function org-node-capture-target) nil |
|
|
|
:jump-to-captured t |
|
|
|
:empty-lines-after 1) |
|
|
|
;; jump to an existing org-node |
|
|
|
("j" "Jumo to ID node" |
|
|
|
plain (function org-node-capture-target) nil |
|
|
|
:jump-to-captured t |
|
|
|
:immediate-finish t) |
|
|
|
("p" "phone call" |
|
|
|
entry (file+datetree "~/archiv/Organisieren/phonecalls.org") |
|
|
|
"* [%<%Y-%m-%d %H:%M>] %? :calls:" |
|
|
|
:empty-lines 0 |
|
|
|
:prepare-finalize (org-id-get-create) |
|
|
|
:jump-to-captured t) |
|
|
|
)) |
|
|
|
(setq org-pretty-entities t)) |
|
|
|
:custom |
|
|
|
(org-startup-truncated t) |
|
|
@ -1331,7 +1368,7 @@ Ggf. durch org-roam-journal ersetzen |
|
|
|
org-journal-enable-agenda-integration t))) |
|
|
|
#+END_SRC |
|
|
|
|
|
|
|
** org-roam |
|
|
|
** COMMENT org-roam |
|
|
|
[[https://github.com/org-roam/org-roam][Github]] |
|
|
|
Um Headings innerhalb einer Datei zu verlinken: |
|
|
|
- org-id-get-create im Heading, |
|
|
@ -1481,26 +1518,26 @@ If nil it defaults to `split-string-default-separators', normally |
|
|
|
(my--org-roam-filter-by-tag tag-name) |
|
|
|
(org-roam-node-list)))) |
|
|
|
|
|
|
|
(defun my/org-roam-refresh-agenda-list () |
|
|
|
"Add all org roam files with #+filetags: roamtodo" |
|
|
|
(interactive) |
|
|
|
(my--org-agenda-files-set) |
|
|
|
(nconc org-agenda-files |
|
|
|
(my--org-roam-list-notes-by-tag "roamtodo")) |
|
|
|
(setq org-agenda-files (delete-dups org-agenda-files))) |
|
|
|
;; (defun my/org-roam-refresh-agenda-list () |
|
|
|
;; "Add all org roam files with #+filetags: roamtodo" |
|
|
|
;; (interactive) |
|
|
|
;; (my--org-agenda-files-set) |
|
|
|
;; (nconc org-agenda-files |
|
|
|
;; (my--org-roam-list-notes-by-tag "roamtodo")) |
|
|
|
;; (setq org-agenda-files (delete-dups org-agenda-files))) |
|
|
|
|
|
|
|
(add-hook 'find-file-hook #'my--roamtodo-update-tag) |
|
|
|
(add-hook 'before-save-hook #'my--roamtodo-update-tag) |
|
|
|
|
|
|
|
(advice-add 'org-agenda :before #'my/org-roam-refresh-agenda-list) |
|
|
|
(advice-add 'org-todo-list :before #'my/org-roam-refresh-agenda-list) |
|
|
|
;; (advice-add 'org-agenda :before #'my/org-roam-refresh-agenda-list) |
|
|
|
;; (advice-add 'org-todo-list :before #'my/org-roam-refresh-agenda-list) |
|
|
|
|
|
|
|
(add-to-list 'org-tags-exclude-from-inheritance "roamtodo") |
|
|
|
:config |
|
|
|
(require 'org-roam-dailies) ;; ensure the keymap is available |
|
|
|
(org-roam-db-autosync-mode) |
|
|
|
;; build the agenda list the first ime for the session |
|
|
|
(my/org-roam-refresh-agenda-list) |
|
|
|
;; (my/org-roam-refresh-agenda-list) |
|
|
|
|
|
|
|
(when *work_remote* |
|
|
|
(setq org-roam-capture-templates |
|
|
|