1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; TaskJuggler Mode $Id: taskjug.el 1250 2005-12-04 17:52:38Z cs $
;;;
;;; Copyright (c) 2004 by Sean Dague (http://dague.net)
;;;
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or
;;; (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
;;;
;;; This mode is based on the very good emacs mode tutorial
;;; located at http://two-wugs.net/emacs/mode-tutorial.html created
;;; by Scott Andrew Borton. Thanks to him for creating such a well
;;; structured tutorial
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar taskjug-mode-hook nil)
(defvar taskjug-mode-map
(let ((taskjug-mode-map (make-keymap)))
(define-key taskjug-mode-map "\C-j" 'newline-and-indent)
taskjug-mode-map)
"Keymap for TASKJUG major mode")
(add-to-list 'auto-mode-alist '("\\.tjp\\'" . taskjug-mode))
(add-to-list 'auto-mode-alist '("\\.tji\\'" . taskjug-mode))
(add-to-list 'auto-mode-alist '("\\.tjsp\\'" . taskjug-mode))
(defconst taskjug-font-lock-keywords-1
(list
'("\\<\\(flags\\|include\\|project\\|resource\\|task\\|scenario\\)\\>" . font-lock-keyword-face)
'("\\('\\w*'\\)" . font-lock-variable-name-face))
"Minimal highlighting expressions for Taskjug mode")
(defvar taskjug-font-lock-keywords taskjug-font-lock-keywords-1
"Default highlighting expressions for TASKJUG mode")
(defvar taskjug-mode-syntax-table
(let ((taskjug-mode-syntax-table (make-syntax-table)))
; This is added so entity names with underscores can be more easily parsed
(modify-syntax-entry ?_ "w" taskjug-mode-syntax-table)
(modify-syntax-entry ?# "<" taskjug-mode-syntax-table)
(modify-syntax-entry ?\n ">" taskjug-mode-syntax-table)
taskjug-mode-syntax-table)
"Syntax table for taskjug-mode")
(defun taskjug-indent-line ()
"Indent current line as TASKJUG code."
(interactive)
(beginning-of-line)
(if (bobp)
(indent-line-to 0) ; First line is always non-indented
(let ((not-indented t) cur-indent)
(if (looking-at "^[ \t]*}") ; If the line we are looking at is the end of a block, then decrease the indentation
(progn
(save-excursion
(forward-line -1)
(if (looking-at "^.*{")
(setq cur-indent (current-indentation)) ; Empty block, keep the same level
(setq cur-indent (- (current-indentation) tab-width))))
(if (< cur-indent 0) ; We can't indent past the left margin
(setq cur-indent 0)))
(save-excursion
(while not-indented ; Iterate backwards until we find an indentation hint
(forward-line -1)
(if (looking-at "^.*}") ; This hint indicates that we need to indent at the level of the } token
(progn
(setq cur-indent (current-indentation))
(setq not-indented nil))
(if (looking-at "^.*{") ;This hint indicates that we need to indent an extra level
(progn
(setq cur-indent (+ (current-indentation) tab-width)) ; Do the actual indenting
(setq not-indented nil))
(if (bobp)
(setq not-indented nil)))))))
(if cur-indent
(indent-line-to cur-indent)
(indent-line-to 0))))) ; If we didn't see an indentation hint, then allow no indentation
(defun taskjug-mode ()
"Major mode for editing TaskJuggler input files"
(interactive)
(kill-all-local-variables)
(set-syntax-table taskjug-mode-syntax-table)
(set (make-local-variable 'indent-line-function) 'taskjug-indent-line)
(use-local-map taskjug-mode-map)
(set (make-local-variable 'font-lock-defaults) '(taskjug-font-lock-keywords))
(setq major-mode 'taskjug-mode)
(setq mode-name "TaskJuggler")
(run-hooks 'taskjug-mode-hook))
(provide 'taskjug-mode)
|
