equal
deleted
inserted
replaced
57 (insert "\n# ") |
57 (insert "\n# ") |
58 (insert (int-to-string (gaphrase-next-num))) |
58 (insert (int-to-string (gaphrase-next-num))) |
59 (insert "\n- \n") |
59 (insert "\n- \n") |
60 (backward-char)) |
60 (backward-char)) |
61 |
61 |
|
62 (defun gaphrase-insert-sentence () |
|
63 (interactive) |
|
64 (forward-line 1) |
|
65 (while (not (or (eobp) |
|
66 (eq (char-after) ?-))) |
|
67 (forward-line 1)) |
|
68 (insert ?\n) |
|
69 (backward-char) |
|
70 (insert "- ")) |
|
71 |
|
72 |
62 (define-derived-mode gaphrase-mode fundamental-mode "gaphrase" |
73 (define-derived-mode gaphrase-mode fundamental-mode "gaphrase" |
63 (setq font-lock-defaults '(gaphrase-font-lock-keywords)) |
74 (setq font-lock-defaults '(gaphrase-font-lock-keywords)) |
64 (define-key (current-local-map) [C-return] 'gaphrase-insert-template)) |
75 (define-key (current-local-map) [C-return] 'gaphrase-insert-template) |
|
76 (define-key (current-local-map) [S-return] 'gaphrase-insert-sentence)) |
65 |
77 |
66 (provide 'gaphrase) |
78 (provide 'gaphrase) |
67 |
79 |
68 ;;; gaphrase.el ends here |
80 ;;; gaphrase.el ends here |