Sun Mar 12 15:02 EDT; goldblum
==============================

 I think I figured out a good workflow for publishing straight from org
 capture. Here's the bit of config in my emacs init:

 ,----
 | (require 'org-element)
 |
 | (let ((gopher-dir (concat (getenv "HOME") "/gopher/"))
 |       (entry-file "first.org")
 |       (log-file "log.org")
 |       (sdf-dir "/ssh:sdf:~/gopher/"))
 |
 |   (defun j0ni/prepare-first-entry (plist filename dst-dir)
 |     (let* ((org-inhibit-startup t)
 |            (visiting (find-buffer-visiting filename))
 |            (work-buffer (or visiting (find-file-noselect filename)))
 |            (dst-file (expand-file-name entry-file dst-dir)))
 |       (with-current-buffer work-buffer
 |         (let ((entry (org-element-map (org-element-parse-buffer) 'headline
 |                        (lambda (hl)
 |                          (when (= (org-element-property :level hl) 2)
 |                            hl))
 |                        nil t)))
 |           (with-temp-buffer
 |             (insert "#+OPTIONS: toc:nil H:1 num:nil title:nil author:nil creator:nil")
 |             (newline)
 |             (insert "#+ATTR_ASCII: width:60")
 |             (newline)
 |             (insert (org-element-interpret-data entry))
 |             (write-region (point-min) (point-max) dst-file))))))
 |
 |   (setopt org-publish-project-alist
 |           ;; This makes a markdown version of this file.
 |           `(("notwithstanding"
 |              :base-directory ,user-emacs-directory
 |              :publishing-directory ,user-emacs-directory
 |              :publishing-function org-md-publish-to-md)
 |             ("captains-phlog"
 |              :include ("log.org")
 |              :exclude "first.org"
 |              :base-directory ,gopher-dir
 |              :publishing-directory ,gopher-dir
 |              :publishing-function (org-ascii-publish-to-ascii j0ni/prepare-first-entry))
 |             ("first-entry"
 |              :include ("first.org")
 |              :exclude "log.org"
 |              :base-directory ,gopher-dir
 |              :publishing-directory ,sdf-dir
 |              :publishing-function org-ascii-publish-to-ascii)
 |             ("phlog" :components ("captains-phlog" "first-entry")))))
 `----

 Note that the "notwithstanding" part is unrelated, but ¯\_(ツ)_/¯.

 Let's see how it goes, and if this is just too much text.

You are viewing proxied material from hole.mhcat.ca. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.