emacs.d_old/config/init-perl.el

   1
   2 (custom-set-variables
   3  ;; custom-set-variables was added by Custom.
   4  ;; If you edit it by hand, you could mess it up, so be careful.
   5  ;; Your init file should contain only one such instance.
   6  ;; If there is more than one, they won't work right.
   7  '(fringe-mode (quote (4 . 0)) nil (fringe))
   8  '(ggtags-split-window-function (quote split-window-vertically))
   9  '(hes-mode-alist
  10    (quote
  11     ((c-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]+\\|u[[:xdigit:]]\\{4\\}\\|U[[:xdigit:]]\\{8\\}\\|[\"'?\\abfnrtv]\\)\\)")
  12      (cperl-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]+\\|u[[:xdigit:]]\\{4\\}\\|U[[:xdigit:]]\\{8\\}\\|[\"'?\\abfnrtv]\\)\\)")
  13      (c++-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]+\\|u[[:xdigit:]]\\{4\\}\\|U[[:xdigit:]]\\{8\\}\\|[\"'?\\abfnrtv]\\)\\)")
  14      (objc-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]+\\|u[[:xdigit:]]\\{4\\}\\|U[[:xdigit:]]\\{8\\}\\|[\"'?\\abfnrtv]\\)\\)")
  15      (java-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|u[[:xdigit:]]\\{4\\}\\|[\"'\\bfnrt]\\)\\)")
  16      (js-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]\\{2\\}\\|u[[:xdigit:]]\\{4\\}\\|.\\)\\)")
  17      (js2-mode . "\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]\\{2\\}\\|u[[:xdigit:]]\\{4\\}\\|.\\)\\)")
  18      (ruby-mode
  19       ("\\(\\\\\\([0-7]\\{1,3\\}\\|x[[:xdigit:]]\\{1,2\\}\\|u\\(?:[[:xdigit:]]\\{4\\}\\|{[[:xdigit:]]\\{1,6\\}\\(?:[[:space:]]+[[:xdigit:]]\\{1,6\\}\\)*}\\)\\|.\\)\\)"
  20        (0
  21         (let*
  22             ((state
  23               (syntax-ppss))
  24              (term
  25               (nth 3 state)))
  26           (when
  27               (or
  28                (and
  29                 (eq term 39)
  30                 (member
  31                  (match-string 2)
  32                  (quote
  33                   ("\\" "'"))))
  34                (if
  35                    (fboundp
  36                     (quote ruby-syntax-expansion-allowed-p))
  37                    (ruby-syntax-expansion-allowed-p state)
  38                  (memq term
  39                        (quote
  40                         (34 47 10 96 t)))))
  41             (add-face-text-property
  42              (match-beginning 1)
  43              (match-end 1)
  44              (quote hes-escape-backslash-face))
  45             (add-face-text-property
  46              (match-beginning 2)
  47              (match-end 2)
  48              (quote hes-escape-sequence-face))
  49             nil))
  50         prepend))))))
  51  '(org-agenda-files (quote ("~/Private/org/diary.org" "~/temp/org-note.org")))
  52  '(powerline-text-scale-factor 0.85))
  53
  54
  55
  56 (defalias 'perl-mode 'cperl-mode)
  57 ;(setq cperl-invalid-face nil)
  58  (setq cperl-invalid-face (quote off))
  59 ;(add-hook 'prog-mode-hook '(lambda ()
  60 ;        (highlight-regexp "%[[:alpha:]]\\|\\\\[[:alpha:]]")))
  61
  62 (require 'highlight-escape-sequences)
  63 (hes-mode)
  64 ;(setq cperl-font-lock t)
  65 (put 'hes-escape-backslash-face 'face-alias 'font-lock-builtin-face)
  66 (put 'hes-escape-sequence-face 'face-alias 'font-lock-builtin-face)
  67
  68
  69 (provide 'init-perl)