Use org-journal to open journal files more easily

master
trémeur 3 years ago
parent 155e46ee62
commit f9a8d899be

@ -279,6 +279,8 @@
(setq org-startup-with-inline-images "inlineimages") (setq org-startup-with-inline-images "inlineimages")
(setq org-image-actual-width '(300)) (setq org-image-actual-width '(300))
(setq org-extend-today-until 3)
(load-file "~/.emacs.d/agenda-common.el") (load-file "~/.emacs.d/agenda-common.el")
;; for agenda things used in both emacs and batch ;; for agenda things used in both emacs and batch
@ -296,6 +298,19 @@
cfw:display-calendar-holidays nil cfw:display-calendar-holidays nil
calendar-week-start-day 1)) calendar-week-start-day 1))
(when (islin)
(defun org-journal-file-header-func (time)
(concat "<" (format-time-string "%Y-%m-%d %a") ">\n\n"))
(use-package org-journal
:bind ("C-c j" . org-journal-new-entry)
:config
(setq org-journal-dir "~/Documents/drive/org/journal")
(setq org-journal-file-format "%Y/%m/%Y-%m-%d.org")
(setq org-journal-find-file 'find-file)
(setq org-journal-date-format "journal")
(setq org-journal-time-format "%H:%M\n")
(setq org-journal-file-header 'org-journal-file-header-func)))
(use-package org-agenda-property) (use-package org-agenda-property)
;; lets properties inherit ;; lets properties inherit

Loading…
Cancel
Save