4 Commits

1 changed files with 64 additions and 27 deletions
Split View
  1. 91
      config.org

91
config.org

@ -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

Loading…
Cancel
Save