Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(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