add haskell- prefix to all c2hs-mode symbols

Author: sergv

haskell-c2hs.el

@@ -22,28 +22,28 @@
 ;; This mode is mostly intended for highlighting {#...#} hooks.
 ;;
 ;; Quick setup:
-;; (autoload 'c2hs-mode "c2hs-mode" nil t)
-;; (add-to-list 'auto-mode-alist '("\\.chs\\'" . c2hs-mode))
+;; (autoload 'haskell-c2hs-mode "haskell-c2hs-mode" nil t)
+;; (add-to-list 'auto-mode-alist '("\\.chs\\'" . haskell-c2hs-mode))
 ;;
 
 (require 'haskell-mode)
 (require 'haskell-font-lock)
 (require 'haskell-utils)
 
 ;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.chs\\'" . c2hs-mode))
+(add-to-list 'auto-mode-alist '("\\.chs\\'" . haskell-c2hs-mode))
 
-(defface c2hs-hook-pair-face
+(defface haskell-c2hs-hook-pair-face
   '((t (:inherit 'font-lock-preprocessor-face)))
   "Face for highlighting {#...#} pairs."
   :group 'haskell)
 
-(defface c2hs-hook-name-face
+(defface haskell-c2hs-hook-name-face
   '((t (:inherit 'font-lock-keyword-face)))
   "Face for highlighting c2hs hook names."
   :group 'haskell)
 
-(defvar c2hs-font-lock-keywords
+(defvar haskell-c2hs-font-lock-keywords
   `((,(haskell--rx-let ((ws (any ?\s ?\t ?\n ?\r))
                         (anychar (or (not (any ?#))
                                      (seq "#"
@@ -176,25 +176,25 @@
         (* anychar)
         (group-n 9 "#}"))
      ;; Override highlighting for pairs in order to always distinguish them.
-     (1 'c2hs-hook-pair-face t)
-     (2 'c2hs-hook-name-face)
+     (1 'haskell-c2hs-hook-pair-face t)
+     (2 'haskell-c2hs-hook-name-face)
      ;; Make matches lax, i.e. do not signal error if nothing
      ;; matched.
-     (3 'c2hs-hook-name-face nil t)
-     (4 'c2hs-hook-name-face nil t)
-     (5 'c2hs-hook-name-face nil t)
-     (6 'c2hs-hook-name-face nil t)
-     (7 'c2hs-hook-name-face nil t)
+     (3 'haskell-c2hs-hook-name-face nil t)
+     (4 'haskell-c2hs-hook-name-face nil t)
+     (5 'haskell-c2hs-hook-name-face nil t)
+     (6 'haskell-c2hs-hook-name-face nil t)
+     (7 'haskell-c2hs-hook-name-face nil t)
      (8 'font-lock-negation-char-face nil t)
      ;; Override highlighting for pairs in order to always distinguish them.
-     (9 'c2hs-hook-pair-face t))
+     (9 'haskell-c2hs-hook-pair-face t))
     ,@(haskell-font-lock-keywords)))
 
 ;;;###autoload
-(define-derived-mode c2hs-mode haskell-mode "C2HS"
+(define-derived-mode haskell-c2hs-mode haskell-mode "C2HS"
   "Mode for editing *.chs files of the c2hs haskell tool."
   (setq-local font-lock-defaults
-              (cons 'c2hs-font-lock-keywords
+              (cons 'haskell-c2hs-font-lock-keywords
                     (cdr font-lock-defaults))))