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

org-quip-fetch

Browse source
This commit is contained in:
John Doty 2017-10-11 15:15:59 -07:00
parent b716927091
commit 1a48b64c1b
1 changed files with 40 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -7,6 +7,7 @@
;;; Code: ;;; Code:
(require 'cl-extra) (require 'cl-extra)
(require 'ox-md) (require 'ox-md)
(require 'url-parse)
(require 'whitespace) (require 'whitespace)
(require 'quip) (require 'quip)
@ -104,13 +105,16 @@
)) ))
)) ))
(defun org-quip--get-org-buffer-from-quip (thread-id buffer) (defun org-quip--get-org-buffer-from-quip-thread (thread buffer)
"Fetch the quip thread with THREAD-ID and convert it to org markup in BUFFER. "Take the Quip thread THREAD and convert it to org markup in BUFFER.
We do this by (a) downloading the thread from quip, (b) cleaning THREAD should be an alist form of the JSON returned by the
up the HTML in the buffer (a little bit), (c) running the HTML 'quip-get-thread' function.
through pandoc to convert it into acceptable org, and (d) running
a cleanup pass over the generated org markup. We do this by (a) cleaning up the HTML in the buffer (a little
bit), (b) running the HTML through pandoc to convert it into
acceptable org, and (c) running a cleanup pass over the generated
org markup.
The end result is fairly clean 'org-mode' markup." The end result is fairly clean 'org-mode' markup."
(let ((quip-html (alist-get 'html (quip-get-thread thread-id)))) (let ((quip-html (alist-get 'html (quip-get-thread thread-id))))
@ -138,9 +142,16 @@ The end result is fairly clean 'org-mode' markup."
(goto-char (point-min)) (goto-char (point-min))
(insert "#+options: num:nil\n\n") (insert "#+options: num:nil\n\n")
(font-lock-fontify-buffer)
))) )))
(defun org-quip--get-org-buffer-from-quip-id (thread-id buffer)
"Fetch the quip thread with THREAD-ID and convert it to org markup in BUFFER.
This is just like 'org-quip--get-org-buffer-from-quip-thread'
except you only have a thread ID, not a full downloaded thread."
(org-quip--get-org-buffer-from-quip-thread (quip-get-thread thread-id) buffer))
(defun org-quip--get-thread-identifier () (defun org-quip--get-thread-identifier ()
"Get the Quip thread identifier from the doc in the current buffer, if any." "Get the Quip thread identifier from the doc in the current buffer, if any."
(org-entry-get nil "QUIP_ID" t)) (org-entry-get nil "QUIP_ID" t))
@ -156,6 +167,16 @@ The end result is fairly clean 'org-mode' markup."
(let ((response (quip-new-document content))) (let ((response (quip-new-document content)))
(cdr (assoc 'id (cdr (assoc 'thread response)))))) (cdr (assoc 'id (cdr (assoc 'thread response))))))
(defun org-quip--extract-thread-id (url)
"Extract a quip thread identifier from URL."
(let ((parsed-url (url-generic-parse-url url)))
(if (and (equal (url-type parsed-url) "https")
(string-suffix-p "quip.com" (url-host parsed-url)))
(substring (car (split-string (url-filename parsed-url) "?")) 1)
(error "%s does not appear to be a valid Quip url" url))))
(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)
@ -174,7 +195,18 @@ This replaces what's in the buffer so I hope you're OK with that."
(interactive) (interactive)
(let ((thread-id (org-quip--get-thread-identifier))) (let ((thread-id (org-quip--get-thread-identifier)))
(unless thread-id (error "This org doc hasn't been published to quip")) (unless thread-id (error "This org doc hasn't been published to quip"))
(org-quip--get-org-buffer-from-quip thread-id (current-buffer)))) (org-quip--get-org-buffer-from-quip-id thread-id (current-buffer))))
(defun org-quip-fetch (url)
"Fetch the given Quip URL into a new buffer named after the thread."
(interactive "sQuip URL: ")
(letrec ((thread-id (org-quip--extract-thread-id url))
(thread (quip-get-thread thread-id))
(thread-title (alist-get 'title (alist-get 'thread thread)))
(thread-buffer (get-buffer-create (concat thread-title ".org"))))
(org-quip--get-org-buffer-from-quip-thread thread thread-buffer)
(display-buffer thread-buffer)))
(provide 'ox-quip) (provide 'ox-quip)
;;; ox-quip.el ends here ;;; ox-quip.el ends here