Add gemini-insert-list-item
This commit is contained in:
parent
e13e4179e9
commit
e8f69cad28
|
@ -4,7 +4,7 @@
|
||||||
|
|
||||||
;; Author: Jason McBrayer <jmcbray@carcosa.net>, tastytea <tastytea@tastytea.de>
|
;; Author: Jason McBrayer <jmcbray@carcosa.net>, tastytea <tastytea@tastytea.de>
|
||||||
;; Created: 20 May 2020
|
;; Created: 20 May 2020
|
||||||
;; Version: 0.3.0
|
;; Version: 0.4.0
|
||||||
;; Keywords: languages
|
;; Keywords: languages
|
||||||
;; Homepage: https://git.carcosa.net/jmcbray/gemini.el
|
;; Homepage: https://git.carcosa.net/jmcbray/gemini.el
|
||||||
|
|
||||||
|
@ -68,6 +68,7 @@
|
||||||
(defvar gemini-mode-map
|
(defvar gemini-mode-map
|
||||||
(let ((map (make-keymap)))
|
(let ((map (make-keymap)))
|
||||||
(define-key map (kbd "C-c C-l") #'gemini-insert-link)
|
(define-key map (kbd "C-c C-l") #'gemini-insert-link)
|
||||||
|
(define-key map (kbd "C-c RET") #'gemini-insert-list-item)
|
||||||
map)
|
map)
|
||||||
"Keymap for `gemini-mode'.")
|
"Keymap for `gemini-mode'.")
|
||||||
|
|
||||||
|
@ -113,6 +114,18 @@ it seems to be a URL, or link text value otherwise."
|
||||||
(unless (string= text "")
|
(unless (string= text "")
|
||||||
(insert " " text)))))
|
(insert " " text)))))
|
||||||
|
|
||||||
|
(defun gemini-insert-list-item ()
|
||||||
|
"Insert a new list item.
|
||||||
|
If at the beginning of a line, just insert it. Otherwise
|
||||||
|
go to the end of the current line, insert a newline, and
|
||||||
|
insert a list item."
|
||||||
|
(interactive)
|
||||||
|
(if (equal (line-beginning-position) (point))
|
||||||
|
(insert "* ")
|
||||||
|
(end-of-line)
|
||||||
|
(newline)
|
||||||
|
(insert "* ")))
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(define-derived-mode gemini-mode text-mode "gemini"
|
(define-derived-mode gemini-mode text-mode "gemini"
|
||||||
"Major mode for editing text/gemini 'geminimap' documents"
|
"Major mode for editing text/gemini 'geminimap' documents"
|
||||||
|
|
Loading…
Reference in a new issue