This commit is contained in:
xeals 2023-06-22 11:24:24 +10:00
parent 8267c1492c
commit 1890d288f6
Signed by: xeals
SSH Key Fingerprint: SHA256:pRv+8swQDA+/LuZ7NHj9m006BbKexlNK62OUA01ZZBc

View File

@ -61,9 +61,9 @@
"Retrieves the ENDPOINT from the current `bookstack-server' asynchronously,
executing CALLBACK with the decoded result."
(unless bookstack-token
(user-error "%s" "`bookstack-token' must be defined"))
(user-error "`bookstack-token' must be defined"))
(unless bookstack-server
(user-error "%s" "`bookstack-server' must be defined"))
(user-error "`bookstack-server' must be defined"))
(let ((url-request-extra-headers
`(("Authorization" . ,(format "Token %s" bookstack-token))
("Content-Type" . "application/json")))
@ -102,7 +102,8 @@ PAGES should be a sequence of pages (as returned by `bookstack-pages')."
(bookstack-page
id
(lambda (page)
(or page (error "Missing full page '%d'" id))
(unless page
(error "Missing page '%d'" id))
(let-alist page
(let ((buffer (get-buffer-create (format "%s.md" .name)))
;; fix line endings
@ -134,12 +135,63 @@ PAGES should be a sequence of pages (as returned by `bookstack-pages')."
(bookstack--write-page bookstack--buffer-page-id (buffer-string))
(message "Wrote %s/.../page/%s" bookstack-server slug)))
(defun bookstack--delete-page (id callback &optional force-p)
(bookstack-page
id
(lambda (page)
(let ((page-name (alist-get 'name page)))
(unless (or force-p (y-or-n-p (format "Really delete %S?" page-name)))
(user-error "Aborted"))
(let ((url-request-method "DELETE"))
(bookstack--retrieve
(format "pages/%d" page)
(lambda (_) (apply callback page))))))))
(defun bookstack-delete-page (&optional id force-p)
"Delete PAGE and kill its buffers.
If ID is not specified, defaults to the current buffer's page, if available.
If FORCE-P, delete without confirmation."
(interactive
(list bookstack--buffer-page-id
current-prefix-arg))
(unless (or id bookstack--buffer-page-id)
(user-error "Buffer is not visiting a BookStack page"))
(bookstack-pages
(lambda (pages)
(bookstack--delete-page (bookstack--read-page pages) force-p)
(lambda (page)
(let ((buf (current-buffer)))
(kill-buffer buf)
(message "Deleted %S" page))))))
(defun bookstack-delete-this-page (&optional id force-p)
"Delete PAGE and kill its buffers.
If ID is not specified, defaults to the current buffer's page, if available.
If FORCE-P, delete without confirmation."
(interactive
(list bookstack--buffer-page-id
current-prefix-arg))
(unless (or id bookstack--buffer-page-id)
(user-error "Buffer is not visiting a BookStack page"))
(bookstack-pages
(lambda (pages)
(bookstack--delete-page (bookstack--read-page pages) force-p)
(lambda (page)
(let ((buf (current-buffer)))
(kill-buffer buf)
(message "Deleted %S" page))))))
(define-minor-mode bookstack-mode
"Minor mode for editing remote BookStack buffers."
:init-value nil
:lighter " BookStack"
:keymap (let ((map (make-sparse-keymap)))
(define-key map [remap save-buffer] #'bookstack-save-buffer)
(define-key map [remap delete-file] #'bookstack-delete-page)
map))
;;;###autoload