My workbook functions for https://www.viget.com/articles/write-things-down

workbook.el

(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")))