Adapted gaphrase.el to phrase format (instead of dialog).
authorOleksandr Gavenko <gavenkoa@gmail.com>
Tue, 11 Feb 2020 01:26:22 +0200
changeset 1193 32fc1741db5d
parent 1192 0df788e35398
child 1194 443e97c2958e
Adapted gaphrase.el to phrase format (instead of dialog).
contrib/gaphrase.el
--- a/contrib/gaphrase.el	Tue Feb 11 01:04:11 2020 +0200
+++ b/contrib/gaphrase.el	Tue Feb 11 01:26:22 2020 +0200
@@ -61,24 +61,13 @@
     (delete-char -1))
   (insert "\n# ")
   (insert (int-to-string (gaphrase-next-num)))
-  (insert "\n- \n")
+  (insert "\n\n")
   (backward-char))
 
-(defun gaphrase-insert-sentence ()
-  (interactive)
-  (forward-line 1)
-  (while (not (or (eobp)
-                  (memq (char-after) (list ?- ?#))))
-    (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) [S-return] 'gaphrase-insert-sentence)
   (set-syntax-table gaphrase-syntax-table))
 
 (provide 'gaphrase)