;;; 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)