DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Export as HTML

Browse source
This commit is contained in:
John Doty 2017-10-12 13:26:02 -07:00
parent b863a8c81e
commit 191926c541
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
site-lisp/ox-quip.el
View file

@ -5,12 +5,11 @@
;; thread or amend to existing quip thread.) ;; thread or amend to existing quip thread.)
;; ;;
;; BUG: Underscores get converted wrong. ;; BUG: Underscores get converted wrong.
;; BUG: Lists seem fucked.
;; BUG: Can't update documents on publish. ;; BUG: Can't update documents on publish.
;;; Code: ;;; Code:
(require 'cl-extra) (require 'cl-extra)
(require 'ox-md) (require 'ox-html)
(require 'url-parse) (require 'url-parse)
(require 'whitespace) (require 'whitespace)
(require 'quip) (require 'quip)
@ -168,7 +167,7 @@ except you only have a thread ID, not a full downloaded thread."
(defun org-quip--publish-quip (content) (defun org-quip--publish-quip (content)
"Publish CONTENT as a new Quip document. Return the ID of the new document." "Publish CONTENT as a new Quip document. Return the ID of the new document."
(let ((response (quip-new-document content))) (let ((response (quip-new-document content "html")))
(cdr (assoc 'id (cdr (assoc 'thread response)))))) (cdr (assoc 'id (cdr (assoc 'thread response))))))
(defun org-quip--extract-thread-id (url) (defun org-quip--extract-thread-id (url)
@ -181,12 +180,18 @@ except you only have a thread ID, not a full downloaded thread."
(error "%s does not appear to be a valid Quip url" url)))) (error "%s does not appear to be a valid Quip url" url))))
(defun org-quip--export-html (buffer)
"Export BUFFER as HTML with options suitable for quip."
(with-current-buffer buffer
(let ((org-html-toplevel-hlevel 1))
(org-export-as 'html nil nil t))))
(defun org-quip-publish-to-quip () (defun org-quip-publish-to-quip ()
"Publish the current buffer to Quip." "Publish the current buffer to Quip."
(interactive) (interactive)
(let (let
((quip-id (org-quip--get-thread-identifier)) ((quip-id (org-quip--get-thread-identifier))
(content (org-export-as 'md))) (content (org-quip--export-html (current-buffer))))
(if quip-id (if quip-id
(org-quip-update-quip quip-id content) (org-quip-update-quip quip-id content)
(let ((new-quip-id (org-quip--publish-quip content))) (let ((new-quip-id (org-quip--publish-quip content)))