59 lines
1.6 KiB
EmacsLisp
59 lines
1.6 KiB
EmacsLisp
;;; ox-quip.el -- Publish from org-mode to Quip.
|
|
|
|
;;; Commentary:
|
|
;; Publisher from org-mode to Quip. (Export as markdown, push as a new
|
|
;; thread or amend to existing quip thread.)
|
|
|
|
;;; Code:
|
|
(require 'cl-extra)
|
|
(require 'ox-md)
|
|
(require 'quip)
|
|
|
|
(defun org-quip--get-thread-identifier ()
|
|
"Get the Quip thread identifier from the doc in the current buffer, if any."
|
|
(org-entry-get nil "quip-id" t))
|
|
|
|
(defun org-quip--put-thread-identifier (identifier)
|
|
"Put the Quip thread identifier in IDENTIFIER into the doc."
|
|
(save-excursion
|
|
(while (org-up-heading-safe))
|
|
(org-entry-put nil "quip-id" identifier)))
|
|
|
|
(defun org-quip--publish-quip (content)
|
|
"Publish CONTENT as a new Quip document. Return the ID of the new document."
|
|
(let ((response (quip-new-document content)))
|
|
(cdr (assoc 'id (cdr (assoc 'thread response))))))
|
|
|
|
(defun org-quip-publish-to-quip ()
|
|
"Publish the current buffer to Quip."
|
|
(interactive)
|
|
(let
|
|
((quip-id (org-quip--get-thread-identifier))
|
|
(content (org-export-as 'md)))
|
|
(if quip-id
|
|
(org-quip-update-quip quip-id content)
|
|
(let ((new-quip-id (org-quip--publish-quip content)))
|
|
(org-quip--put-thread-identifier new-quip-id)))))
|
|
|
|
;;
|
|
|
|
;; Org-to-quip filter:
|
|
;;
|
|
;; So, Quip HTML is a very specific, strict subset of HTML. Quip has only a
|
|
;; few different block types, and it can't do certain things (like
|
|
;; multi-paragraph list items.)
|
|
;;
|
|
;; Structure:
|
|
;; - A list of top-level items:
|
|
;;
|
|
;; Headlines: <h1> <h2> <h3>
|
|
;; Block quotes: <blockquote>
|
|
;; Code block: <pre>
|
|
;;
|
|
;; <h3>
|
|
;;
|
|
;;
|
|
|
|
|
|
(provide 'ox-quip)
|
|
;;; ox-quip.el ends here
|