Add capture template for calendar event.

[Dotty.git] / emacs / .emacs.d / init.el

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 0d4559a1eebe2d27a8fe7e0952be38bce85f3d61..ec85953a7dbcbc748fd2ee5ba785a96b9885469f 100644 (file)
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -120,7 +120,13 @@ vc-follow-symlinks t
       "* %?\nEntered on %U\n  %i\n  %a")
      ("b" "Tax receipt" item
       (file "~/Documents/belastingen/FY24-25.org")
-      "* %t %a\n") 
+      "* %t %a\n")
+     ("a" "Appointment" entry
+           (file+olp+datetree "~/Nextcloud/notes/calendar.org")
+           "* %?\n :PROPERTIES:\n :location: %^{Location}\n :END:\n%^T--%^T\n\n"
+           :jump-to-captured t
+          :tree-type month
+          :time-prompt t)
      ("p" "Permanent note" plain
       (file denote-last-path)
       #'denote-org-capture
@@ -138,9 +144,22 @@ vc-follow-symlinks t
    '(("P" "Expired calendar events" ((tags "TIMESTAMP<=\"<now>\"")))
      ("n" "Agenda and all TODOs"  ((agenda "") (alltodo "")))))
   :config
+  ;; Configure refile
+  (defun my/opened-buffer-files ()
+    "Return the list of org files currently opened in emacs"
+    (delq nil
+          (mapcar (lambda (x)
+                    (if (and (buffer-file-name x)
+                             (string-match "\\.org$"
+                                           (buffer-file-name x)))
+                        (buffer-file-name x)))
+                  (buffer-list))))
+  (setq org-refile-targets `((my/opened-buffer-files :maxlevel . 9)
+                             (,(file-expand-wildcards  "~/Nextcloud/notes/*.org") :maxlevel . 1)))
   (setq org-agenda-skip-scheduled-if-done t)
   (setq org-agenda-skip-deadline-if-done t)
   (setq org-agenda-start-on-weekday nil)
+  (setq org-log-done 'time)
   ;; Automatically flow lines based on window width and use
   ;; variable width fonts in org-mode.
   (add-hook 'org-mode-hook 'visual-line-mode)
@@ -215,7 +234,7 @@ vc-follow-symlinks t
    '("8d146df8bd640320d5ca94d2913392bc6f763d5bc2bb47bed8e14975017eea91" "9a977ddae55e0e91c09952e96d614ae0be69727ea78ca145beea1aae01ac78d2" "0cf95236abcf59e05b1ea69b4edd53d293a5baec4fe4c3484543fee99bfd2204" "80b00f3bf7cdbdca6c80aadfbbb03145f3d0aacf6bf2a559301e61109954e30a" default))
  '(org-export-backends '(ascii html icalendar latex md odt))
  '(package-selected-packages
-   '(straight calfw calfw-org engrave-faces org-caldav nov eat mu4e ellama emms mpdel-embark libmpdel pass password-store fontaine osm orderless embark-consult embark consult jinx dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))
+   '(devdocs straight calfw calfw-org engrave-faces org-caldav nov eat mu4e ellama emms mpdel-embark libmpdel pass password-store fontaine osm orderless embark-consult embark consult jinx dired-preview ftable flx nerd-icons-dired nerd-icons all-the-icons-dired marginalia vertico denote ox-rss org-ql org-contrib mustache org-static-blog haskell-mode julia-mode elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess))
  '(use-package-compute-statistics t))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
@@ -548,6 +567,11 @@ vc-follow-symlinks t
         :variable-pitch-height 1.0
          :line-spacing 1))))
 
+(use-package devdocs
+  :ensure t
+  :bind
+  ("C-h D" . devdocs-lookup))
+
 ;; Custom functions
 
 ;; Might want to run this automatically