temp.el

;; ------------------------------------------------------------------------------
;; lord-lislon hooks
;; ------------------------------------------------------------------------------

(add-to-list 'auto-mode-alist
             '("lord-lislon\\.org\\'" . (lambda ()
                                          (org-mode)
                                          (add-hook 'org-insert-heading-hook 'my/lord-lislon-auto-insert-date-heading nil t))))

(defun my/lord-lislon-auto-insert-date-heading ()
  "Automatically adds lislon or lord tags and timestamp when adding new headings"
  (let ((cur (point)))
    (insert (concat " :" my/lord-lislon-tag ":"))
    (newline-and-indent)
    (org-time-stamp '(16) 'inactive)
    (goto-char cur))
  )