|
|
|
@ -649,20 +649,32 @@ Automate a tiny part of something I was previously doing manually.
|
|
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(unless (string-equal user-login-name "3055822")
|
|
|
|
|
(defun org-journal-file-header-func (time)
|
|
|
|
|
"Set the header for org-journal files"
|
|
|
|
|
(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))))
|
|
|
|
|
(if (string-equal user-login-name "3055822")
|
|
|
|
|
(progn
|
|
|
|
|
(use-package org-journal
|
|
|
|
|
:bind
|
|
|
|
|
("C-c j" . org-journal-new-entry)
|
|
|
|
|
:config
|
|
|
|
|
(setq org-journal-dir "~/Documents/drive/org")
|
|
|
|
|
(setq org-journal-file-type 'yearly)
|
|
|
|
|
(setq org-journal-file-format "journal-dump-%Y.org")
|
|
|
|
|
(setq org-journal-find-file 'find-file)
|
|
|
|
|
(setq org-journal-date-format "%Y-%m-%d")
|
|
|
|
|
(setq org-journal-time-format "%H:%M\n")))
|
|
|
|
|
(progn
|
|
|
|
|
(defun org-journal-file-header-func (time)
|
|
|
|
|
"Set the header for org-journal files"
|
|
|
|
|
(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)))))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
**** =org-modern=
|
|
|
|
@ -892,11 +904,12 @@ This is good for auto indentation, folding, killing elements, apparently XPath??
|
|
|
|
|
Per-mode text expansion. What a lifechanger.
|
|
|
|
|
|
|
|
|
|
#+BEGIN_SRC emacs-lisp
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(use-package yasnippet
|
|
|
|
|
:config
|
|
|
|
|
(setq yas-snippet-dirs '("~/.emacs.d/snippets")))
|
|
|
|
|
(yas-global-mode 1))
|
|
|
|
|
(unless (string-equal system-type "android")
|
|
|
|
|
(use-package yasnippet
|
|
|
|
|
:config
|
|
|
|
|
(setq yas-snippet-dirs '("~/.emacs.d/snippets"))
|
|
|
|
|
(setq yas-triggers-in-field t))
|
|
|
|
|
(yas-global-mode 1))
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
|
|
* Aesthetics
|
|
|
|
|