Added key binding to insert new sentence.
--- a/contrib/gaphrase.el Sat Apr 20 22:19:42 2019 +0300
+++ b/contrib/gaphrase.el Sun Apr 28 20:44:30 2019 +0300
@@ -59,9 +59,21 @@
(insert "\n- \n")
(backward-char))
+(defun gaphrase-insert-sentence ()
+ (interactive)
+ (forward-line 1)
+ (while (not (or (eobp)
+ (eq (char-after) ?-)))
+ (forward-line 1))
+ (insert ?\n)
+ (backward-char)
+ (insert "- "))
+
+
(define-derived-mode gaphrase-mode fundamental-mode "gaphrase"
(setq font-lock-defaults '(gaphrase-font-lock-keywords))
- (define-key (current-local-map) [C-return] 'gaphrase-insert-template))
+ (define-key (current-local-map) [C-return] 'gaphrase-insert-template)
+ (define-key (current-local-map) [S-return] 'gaphrase-insert-sentence))
(provide 'gaphrase)