(require 'ox-publish)
(setq org-publish-project-alist
      '(
	("girl1-org"
	 :base-directory "~/proj/girl1/03-org"
	 :base-extension "org"
	 :publishing-directory "~/proj/girl1/01-posts/"
	 :recursive t
	 :publishing-function org-html-publish-to-html
	 :headline-levels 4 
	 :auto-preamble t)
	("girl1" :components ("girl1-org"))
	))

(global-set-key
 (kbd "C-9")
 (lambda () (interactive) (org-publish-project "girl1" 't)))


(defun qrng-255 ()
  "insert day-market result at current point"
  (interactive)
  (let ((output (shell-command-to-string
		 "~/proj/girl1/06-scripts/day-market.py")))
    (insert output)))

(global-set-key (kbd "C-8") 'qrng-255)


(defun insert-current-date-time ()
  "Insert current date-time at point."
  (interactive)
  (insert (format-time-string "%Y-%m-%d")))

(global-set-key (kbd "C-c d") 'insert-current-date-time)