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

Fix some bugs in python linting on devserver

Browse source
This commit is contained in:
John Doty 2017-03-15 08:25:50 -07:00
parent 2d92526d24
commit de8429de5d
5 changed files with 155 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

25
.emacs.d/ox-quip.el
View file

@ -1,33 +1,39 @@
;;; 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-api)
(require 'quip)
(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."
(org-entry-get nil "quip-id" t))
(defun org-quip-put-thread-identifier (identifier)
(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. Returns the ID of the new document."
(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))
((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)))))
(let ((new-quip-id (org-quip--publish-quip content)))
(org-quip--put-thread-identifier new-quip-id)))))
;;
@ -50,3 +56,4 @@
(provide 'ox-quip)
;;; ox-quip.el ends here