diff options
Diffstat (limited to '')
| -rw-r--r-- | emacsconf-subed.el | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/emacsconf-subed.el b/emacsconf-subed.el index 70e6afc..f49b2f2 100644 --- a/emacsconf-subed.el +++ b/emacsconf-subed.el @@ -140,6 +140,7 @@ TYPE can be 'end if you want the match end instead of the beginning." (set-fill-column subtitle-text-limit) (display-fill-column-indicator-mode 1))) +;;;###autoload (defun emacsconf-subed-make-chapter-file-based-on-comments () "Create a chapter file based on NOTE comments." (interactive) @@ -307,25 +308,28 @@ Create it if necessary." (subed-merge-with-next) (fill-paragraph)) +(defvar emacsconf-subed-split-map + (let ((map (make-sparse-keymap))) + (define-key map [down-mouse-1] #'emacsconf-subed-split-at-mouse) + (define-key map [mouse-1] #'ignore) + (define-key map [up-1] #'ignore) + (define-key map [drag-mouse-1] #'ignore) + (define-key map [mouse-movement] #'ignore) + (define-key map (kbd "<down>") #'scroll-up) + (define-key map (kbd "M-q") #'fill-paragraph) + (define-key map (kbd "M-.") #'emacsconf-subed-merge-and-fill) + (define-key map "q" #'fill-paragraph) + (define-key map "." #'emacsconf-subed-merge-and-fill) + (define-key map "u" #'undo) + (define-key map (kbd "SPC") #'scroll-up) + map) + "Map for splitting.") + (defun emacsconf-subed-split () - "Transient map for splitting subtitles." + "Use transient map for splitting subtitles." (interactive) - (set-transient-map - (let ((map (make-sparse-keymap))) - (define-key map [down-mouse-1] #'emacsconf-subed-split-at-mouse) - (define-key map [mouse-1] #'ignore) - (define-key map [up-1] #'ignore) - (define-key map [drag-mouse-1] #'ignore) - (define-key map [mouse-movement] #'ignore) - (define-key map (kbd "<down>") #'scroll-up) - (define-key map (kbd "M-q") #'fill-paragraph) - (define-key map (kbd "M-.") #'emacsconf-subed-merge-and-fill) - (define-key map "q" #'fill-paragraph) - (define-key map "." #'emacsconf-subed-merge-and-fill) - (define-key map "u" #'undo) - (define-key map (kbd "SPC") #'scroll-up) - map) - t)) + (set-fill-column 60) + (set-transient-map emacsconf-subed-split-map t)) (defun emacsconf-subed-intro-subtitles () "Create the introduction as subtitles." |