diff options
| -rw-r--r-- | emacsconf-subed.el | 92 |
1 files changed, 91 insertions, 1 deletions
diff --git a/emacsconf-subed.el b/emacsconf-subed.el index 6369cdd..745ed51 100644 --- a/emacsconf-subed.el +++ b/emacsconf-subed.el @@ -298,7 +298,8 @@ Create it if necessary." (interactive "e") (goto-char (posn-point (event-start event))) (skip-syntax-backward "w") - (subed-split-subtitle)) + (subed-split-subtitle) + (recenter)) (defun emacsconf-subed-merge-and-fill () "Merge this subtitle with the next one." @@ -316,11 +317,100 @@ Create it if necessary." (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 "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)) +(defun emacsconf-subed-intro-subtitles () + "Create the introduction as subtitles." + (interactive) + (subed-auto-insert) + (let ((emacsconf-publishing-phase 'conference)) + (mapc + (lambda (sub) (apply #'subed-append-subtitle nil (cdr sub))) + (seq-map-indexed + (lambda (talk i) + (list + nil + (* i 5000) + (1- (* i 5000)) + (format "#+OUTPUT: %s.webm\n[[file:%s]]\n%s" + (plist-get talk :slug) + (expand-file-name + (concat (plist-get talk :slug) ".svg.png") + (expand-file-name "in-between" emacsconf-stream-asset-dir)) + (emacsconf-pad-expand-intro talk)))) + (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))))) + +(defvar-local emacsconf-subed-subtitle-source nil "Buffer with the intended subtitles.") + +(defun emacsconf-subed-prepare-string-for-matching (s) + (downcase + (replace-regexp-in-string "[^A-Za-z0-9]" "" + (replace-regexp-in-string "^\\(\\[\\[.*?\]\\]\\|#\\+.*?\\)\\(\n\\|$\\)" "" s)))) + +(defun emacsconf-subed-similar-p (source current) + (let* ((current-stripped (emacsconf-subed-prepare-string-for-matching current)) + (distance (string-distance current-stripped + (emacsconf-subed-prepare-string-for-matching source))) + (ratio (/ (* 100.0 distance) (length current-stripped))) + (threshold 10)) + (< ratio threshold))) + +(defun emacsconf-subed-source-backward () + (interactive) + (with-current-buffer (get-buffer emacsconf-subed-subtitle-source) + (subed-backward-subtitle-end) + (set-mark (point)) + (subed-jump-to-subtitle-text) + (when (get-buffer-window (current-buffer)) + (set-window-point + (get-buffer-window (current-buffer)) (point)) + (with-selected-window (get-buffer-window (current-buffer)) + (recenter))))) + +(defun emacsconf-subed-source-forward () + (interactive) + (with-current-buffer (get-buffer emacsconf-subed-subtitle-source) + (subed-forward-subtitle-end) + (set-mark (point)) + (subed-jump-to-subtitle-text) + (when (get-buffer-window (current-buffer)) + (set-window-point + (get-buffer-window (current-buffer)) (point)) + (with-selected-window (get-buffer-window (current-buffer)) + (recenter))))) + +(defun emacsconf-subed-match-up-subtitles () + (interactive) + (let* ((source + (with-current-buffer (get-buffer emacsconf-subed-subtitle-source) + (or (subed-subtitle-text) (subed-forward-subtitle-text) (subed-subtitle-text))))) + (subed-set-subtitle-text source) + (subed-forward-subtitle-text) + (emacsconf-subed-source-forward))) + +(defun emacsconf-subed-match-multiple (prefix) + "Set up for matching multiple subtitles." + (interactive "p") + (when (or (>= prefix 4) (null emacsconf-subed-subtitle-source)) + (setq-local emacsconf-subed-subtitle-source (read-buffer "Source subtitles: " nil t))) + (set-transient-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "RET") #'emacsconf-subed-match-up-subtitles) + (define-key map (kbd "SPC") #'emacsconf-subed-match-up-subtitles) + (define-key map (kbd "<up>") #'subed-backward-subtitle-text) + (define-key map (kbd "<down>") #'subed-forward-subtitle-text) + (define-key map (kbd "<S-up>") #'emacsconf-subed-source-backward) + (define-key map (kbd "<S-down>") #'emacsconf-subed-source-forward) + (define-key map "k" #'subed-kill-subtitle) + (define-key map "m" #'emacsconf-subed-merge-and-fill) + map) + t)) + (provide 'emacsconf-subed) ;;; emacsconf-subed.el ends here |