My workbook functions for https://www.viget.com/articles/write-things-down
(defun nh/today-as-string () | |
"Today, as a string." | |
(format-time-string "%y.%m.%d")) | |
(defun current-workbook () | |
"Location of the current workbook log file." | |
(concat "~/.org/worklog/" (nh/today-as-string) ".org")) | |
(defun workbook () | |
"Opens up my workbook." | |
(interactive) | |
(find-file (current-workbook)) | |
(when (not (file-exists-p (current-workbook))) | |
(insert-before-markers | |
(concat "#+TITLE: " (format-time-string "%B %d, %Y")) "\n" "#+STARTUP: content\n"))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment