Nebucatnetzer
/
nixos
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Reenable the Org agenda

This commit is contained in:
Andreas Zweili 2022-05-02 13:05:01 +02:00
parent 3a56513187
commit da6e9083fb
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
home-manager/software/emacs/emacs.d/loader.org
View File

@ -1718,7 +1718,7 @@ gets archived into an archive folder and put into a monthly file.
(when (boundp 'enable-personal-agenda)
(when (is-linux-p)
(setq org-archive-location
(concat "~/nextcloud/03_documents/org/archive/personal/"
(concat "~/nextcloud/12_tasks/99_archive/"
(format-time-string "%Y-%m" (current-time)) "-%s::datetree/"))))
(when (boundp 'enable-work-agenda)
(when (is-windows-p)
@ -1805,19 +1805,19 @@ easy to start the clock at the beginning of the day.
#+begin_src emacs-lisp
;; capture templates
(defun my/org-capture-read-file-name ()
(concat (expand-file-name (read-file-name "PROMPT: " "~/nextcloud/03_documents/org/notes/")) ".org"))
(concat (expand-file-name (read-file-name "PROMPT: " "~/nextcloud/12_tasks/")) ".org"))
(when (boundp 'enable-personal-agenda)
(when (is-linux-p)
(setq org-capture-templates
(quote
(("j" "Journal" entry (file+datetree "~/nextcloud/03_documents/org/notes/journal.org")
(("j" "Journal" entry (file+datetree "~/nextcloud/12_tasks/journal.org")
"* %U\n\n%?" :empty-lines 1)
("p" "Small Project" entry
(file+headline "~/nextcloud/03_documents/org/agenda/personal/personal.org" "Capture")
(file+headline "~/nextcloud/12_tasks/personal.org" "Capture")
(file "~/nextcloud/03_documents/org/settings/templates/temp_personal_small_project.txt"))
("t" "Adds a Next entry" entry
(file+headline "~/nextcloud/03_documents/org/agenda/personal/personal.org" "Capture")
(file+headline "~/nextcloud/12_tasks/personal.org" "Capture")
(file "~/nextcloud/03_documents/org/settings/templates/temp_personal_todo.txt")
:empty-lines 1)
("n" "Add note" plain (file my/org-capture-read-file-name)
@ -1969,7 +1969,7 @@ repository with a ton of binary files I save the attachements into a directory
synchronised by Nextcloud.
#+BEGIN_SRC emacs-lisp
(setq org-attach-directory "~/nextcloud/03_documents/org/attachements/")
(setq org-attach-directory "~/nextcloud/10_documents/99_archive/2022/resources/")
#+END_SRC
*** Faces
@ -2472,7 +2472,7 @@ agenda files.
(when (boundp 'enable-personal-agenda)
(when (is-linux-p)
(setq org-agenda-files
(find-lisp-find-files "~/nextcloud/03_documents/org/agenda/personal" "\.org$"))))
(find-lisp-find-files "~/nextcloud/12_tasks" "\.org$"))))
(when (boundp 'enable-work-agenda)
(when (is-windows-p)
(setq org-agenda-files
@ -2522,7 +2522,7 @@ I defined ~C-c p~ to quickly jump to my personal org file.
(when (boundp 'enable-personal-agenda)
(when (is-linux-p)
(global-set-key (kbd "C-c p")
(lambda () (interactive) (find-file "~/nextcloud/03_documents/org/agenda/personal/personal.org")))))
(lambda () (interactive) (find-file "~/nextcloud/12_tasks/personal.org")))))
(when (boundp 'enable-work-agenda)
(when (is-windows-p)
(global-set-key (kbd "C-c p")

1
home-manager/software/emacs/emacs.d/variables.el
View File

@ -8,3 +8,4 @@
(setq enable-emojis t)
(setq disable-fringe t)
(setq enable-email t)
(setq enable-personal-agenda t)