Snippet #1513

;;; transcripts-mode -- simple mode for fontify transcripts

(defface transcripts-scene

  '((t (:inherit org-level-2 :bold t))) nil)

(defface transcripts-role

  '((t (:inherit font-lock-keyword-face :bold t))) nil)

(defface transcripts-comment

  '((t (:inherit font-lock-comment-face :italic t))) nil)

(defface transcripts-dialogue

  '((t (:inherit default :italic t))) nil)

(setq transcripts-font-lock-keywords

      (list

       '("^

?PART .*$" . 'org-level-1)

       '("^\\(SCENE \\)?[1-9][0-9.]*\\..*$" . 'org-level-2)

       '("^[A-Z][A-Z' -]+:?$" . 'font-lock-constant-face)

       '("^[A-Z][[:upper:][:punct:] ]+[^:]$" . 'font-lock-comment-face)

       ))

(define-derived-mode transcripts-mode text-mode "transcripts"

  "mode for editing .srt movie transcripts text file."

  (set (make-local-variable 'font-lock-defaults) '(transcripts-font-lock-keywords))

  (add-hook 'transcripts-mode-hook 'turn-on-font-lock)

  (add-hook 'transcripts-mode-hook 'hl-line-mode)

  )

(provide 'transcripts-mode)