+;; Code block:
+;;
+;;
+;;
+;;
+
+
(provide 'ox-quip)
diff --git a/.emacs.d/quip.el b/.emacs.d/quip.el
index 8969358..716db84 100644
--- a/.emacs.d/quip.el
+++ b/.emacs.d/quip.el
@@ -15,8 +15,8 @@
(defun quip-invoke-json (path method params)
"Submit a request to the Quip API. Returns the parsed JSON from the response."
(if (not quip-api-key)
- (error "The custom variable quip-api-key is undefined.
-Use custom-set-variable to set it before using quip."))
+ (error "%s"
+ "The custom variable quip-api-key is undefined. Use custom-set-variable to set it before using quip."))
(let
((url (concat "https://platform.quip.com/1/" path))
(url-request-method method)
@@ -31,11 +31,11 @@ Use custom-set-variable to set it before using quip."))
(re-search-forward "^$")
(json-read))))
-(defun quip-new-document (content)
+(defun quip-new-document (content &optional format)
"Create a new Quip document with the provided content. Returns the parsed JSON response."
(quip-invoke-json "threads/new-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content))))
(defun quip-get-thread (id)
@@ -49,62 +49,130 @@ Use custom-set-variable to set it before using quip."))
(defconst quip-location-replace-section 4)
(defconst quip-location-delete-section 5)
-(defun quip-thread-append (thread content)
+(defun quip-thread-append (thread content &optional format)
"Append the content to the specified thread."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-append)
(thread_id . ,thread))))
-(defun quip-thread-prepend (thread content)
+(defun quip-thread-prepend (thread content &optional format)
"Prepend the content to the specified thread."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-prepend)
(thread_id . ,thread))))
-(defun quip-thread-append-after (thread section content)
+(defun quip-thread-append-after (thread section content &optional format)
"Append the content to the specified thread after the specified section."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-append-section)
(section_id . ,section)
(thread_id . ,thread))))
-(defun quip-thread-prepend-before (thread section content)
+(defun quip-thread-prepend-before (thread section content &optional format)
"Prepend the content to the specified thread before the specified section."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-prepend-section)
(section_id . ,section)
(thread_id . ,thread))))
-(defun quip-thread-replace-section (thread section content)
+(defun quip-thread-replace-section (thread section content &optional format)
"Replace the content of the specified section."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-replace-section)
(section_id . ,section)
(thread_id . ,thread))))
-(defun quip-thread-delete-section (thread section)
+(defun quip-thread-delete-section (thread section &optional format)
"Delete the specified section."
(quip-invoke-json "threads/edit-document"
"POST"
- `((format . "markdown")
+ `((format . ,(or format "markdown"))
(content . ,content)
(location . ,quip-location-delete-section)
(section_id . ,section)
(thread_id . ,thread))))
+
+;;; Content parsing functions
+
+(defun quip-get-item-type (item)
+ (let ((elem-type (car item))
+ (attribs (cadr item)))
+ (cond
+ ((eq elem-type 'p) 'paragraph)
+ ((eq elem-type 'h1) 'h1)
+ ((eq elem-type 'h2) 'h2)
+ ((eq elem-type 'h3) 'h3)
+ ((eq elem-type 'blockquote) 'block-quote)
+ ((eq elem-type 'q) 'pull-quote)
+ ((eq elem-type 'pre) 'code-block)
+ ((eq elem-type 'li) 'list-item)
+ ((eq elem-type 'span) 'span)
+ ((eq elem-type 'div)
+ (letrec ((style (assoc-default 'data-section-style attribs))
+ (inner (caddr item))
+ (inner-elem-type (car inner)))
+ (cond
+ ((eq inner-elem-type 'ul) 'ul)
+ ((eq inner-elem-type 'ol) 'ol)
+ (t 'unrecognized-inner))))
+ (t 'unrecognized))))
+
+(defun quip-get-item-id (type item)
+ (let ((attribs (cadr item)))
+ (cond
+ ((or (eq type 'ul) ;; Nested IDs.
+ (eq type 'ol))
+ (letrec ((inner (caddr item))
+ (inner-attribs (cadr inner)))
+ (assoc-default 'id inner-attribs)))
+ (t (assoc-default 'id attribs)))))
+
+(defun quip-get-item-content (type item)
+ (cond
+ ((or (eq type 'ul) ;; Nested Content
+ (eq type 'ol))
+ (letrec ((inner (caddr item))
+ (inner-elems (cddr inner)))
+ (mapcar #'quip-get-item-from-element inner-elems)))
+ (t (caddr item))))
+
+(defun quip-get-item-from-element (element)
+ (letrec
+ ((item-type (quip-get-item-type element))
+ (item-id (quip-get-item-id item-type element))
+ (item-content (quip-get-item-content item-type element)))
+ `(,item-type ,item-id ,item-content)))
+
+
+(defun quip-parse-html-content (content)
+ (with-temp-buffer
+ (insert content)
+ (letrec
+ ((html (libxml-parse-html-region (point-min) (point-max)))
+ (raw-items (cddr (caddr html)))
+ (html-items (remove-if #'stringp raw-items)))
+
+ (mapcar #'quip-get-item-from-element html-items)
+ )))
+
+;; (prin1
+;; (quip-parse-html-content
+;; (assoc-default 'html (quip-get-thread "idflAWG6R6Uu"))))
+
(provide 'quip-api)