acdw
/
gemini-write
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remember point when editing

This commit is contained in:
Alex Schroeder 2020-08-26 16:47:55 +02:00
parent d1c30cd046
commit 1fc3acd56f
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gemini-write.el
View File

@ -67,16 +67,17 @@ will be a mess."
(elpher-address-protocol address)))
((not gemini-write-text-p)
(error "Elpher only knows how to edit text/plain"))
(t (elpher-edit-buffer (buffer-string) elpher-current-page)))))
(t (elpher-edit-buffer (buffer-string)
elpher-current-page (point))))))
(defun elpher-edit-buffer (text page)
(defun elpher-edit-buffer (text page point)
"Edit TEXT using Gemini mode for PAGE.
PAGE is an Elpher page like `elpher-current-page'."
(switch-to-buffer
(get-buffer-create
(generate-new-buffer-name "*elpher edit*")))
(insert text)
(goto-char (point-min))
(goto-char point)
(elpher-edit-gemini page))
(defun elpher-edit-gemini (page)
@ -114,8 +115,10 @@ used when writing Gemini pages."
(dolist (buf (buffer-list))
(with-current-buffer buf
(when (and (eq major-mode 'elpher-mode)
(equal (elpher-page-address elpher-current-page)
address))
(or (equal (elpher-page-address elpher-current-page)
address)
(equal (elpher-page-address (car elpher-history))
address)))
(throw 'buf buf)))))))
(defun gemini-write ()