4 ;; Made by Daniel Farina
5 ;; Login <drfarina@acm.org>
7 ;; Started on Sun Feb 14 09:21:21 2010 Daniel Farina
8 ;; Last update Sun Feb 14 09:27:12 2010 Daniel Farina
13 (defcustom develock-python-font-lock-keywords
15 (develock-find-long-lines
16 (1 'develock-long-line-1 t)
17 (2 'develock-long-line-2 t))
19 (develock-find-tab-or-long-space
20 (1 'develock-whitespace-2)
21 (2 'develock-whitespace-3 nil t))
22 ;; trailing whitespace
23 ("[^\t\n ]\\([\t ]+\\)$"
24 (1 'develock-whitespace-1 t))
27 (1 'develock-whitespace-1 t)
28 (2 'develock-whitespace-2 t))
31 (1 'develock-whitespace-2 append))
32 ;; only tabs or spaces in the line
34 (0 'develock-whitespace-2 append))
35 ;; reachable E-mail addresses
36 ("<?[-+.0-9A-Z_a-z]+@[-0-9A-Z_a-z]+\\(\\.[-0-9A-Z_a-z]+\\)+>?"
37 (0 'develock-reachable-mail-address t))
38 ;; things to be paid attention
39 ("\\<\\(?:[Ff][Ii][Xx][Mm][Ee]\\|[Tt][Oo][Dd][Oo]\\)\\(?::\\|\\>\\)"
40 (0 'develock-upper-case-tag-face t)))
41 "Extraordinary level highlighting for the Python mode."
42 :type develock-keywords-custom-type
43 :set 'develock-keywords-custom-set
47 (defvar python-font-lock-keywords-x nil
48 "Extraordinary level font-lock keywords for the Python mode.")
50 (setq develock-keywords-alist
52 python-font-lock-keywords-x
53 develock-python-font-lock-keywords)
54 develock-keywords-alist))
56 (plist-put develock-max-column-plist 'python-mode 100)
58 (provide 'develock-py)