emacs stuff
This commit is contained in:
Sami Samhuri
parent
80a70e3bcc
commit
960852d084
2 changed files with 317 additions and 55 deletions
92
emacs
92
emacs
|
|
@ -205,16 +205,17 @@
|
||||||
|
|
||||||
;; js-mode (espresso)
|
;; js-mode (espresso)
|
||||||
;; Espresso mode has sane indenting so we use that.
|
;; Espresso mode has sane indenting so we use that.
|
||||||
(setq js-indent-level 4)
|
(setq js-indent-level 2)
|
||||||
|
|
||||||
;; Customize JS2
|
;; Customize JS2
|
||||||
(setq js2-basic-offset 4)
|
(setq js2-basic-offset 2)
|
||||||
(setq js2-cleanup-whitespace t)
|
(setq js2-cleanup-whitespace t)
|
||||||
|
|
||||||
(autoload 'js2-mode "js2-mode" nil t)
|
(autoload 'js2-mode "js2-mode" nil t)
|
||||||
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
|
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
|
||||||
(add-to-list 'auto-mode-alist '("Jakefile$" . js2-mode))
|
(add-to-list 'auto-mode-alist '("Jakefile$" . js2-mode))
|
||||||
|
(add-hook 'js2-mode-hook (lambda () (slime-js-minor-mode 1)))
|
||||||
|
(global-set-key [f5] 'slime-js-reload)
|
||||||
|
|
||||||
;; Custom indentation function since JS2 indenting is terrible.
|
;; Custom indentation function since JS2 indenting is terrible.
|
||||||
;; Uses js-mode's (espresso-mode) indentation semantics.
|
;; Uses js-mode's (espresso-mode) indentation semantics.
|
||||||
|
|
@ -277,6 +278,9 @@
|
||||||
;; coffee script
|
;; coffee script
|
||||||
(require 'coffee-mode)
|
(require 'coffee-mode)
|
||||||
|
|
||||||
|
;; mustache
|
||||||
|
(require 'mustache-mode)
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; objective j
|
;; objective j
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
@ -299,15 +303,18 @@
|
||||||
(add-hook 'objc-mode-hook 'my-objc-mode-hook)
|
(add-hook 'objc-mode-hook 'my-objc-mode-hook)
|
||||||
|
|
||||||
|
|
||||||
|
;; css
|
||||||
|
(setq css-mode-hook (lambda () (setq indent-tabs-mode nil)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; mojo (webos)
|
;; mojo (webos)
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(require 'mojo)
|
;(require 'mojo)
|
||||||
|
|
||||||
;; enable Mojo for CSS, HTML, JS, and JSON files within a Mojo project
|
;; enable Mojo for CSS, HTML, JS, and JSON files within a Mojo project
|
||||||
;; root. Did I forget anything?
|
;; root. Did I forget anything?
|
||||||
(mojo-setup-mode-hooks 'css-mode-hook 'js2-mode-hook 'espresso-mode-hook 'html-mode-hook)
|
;(mojo-setup-mode-hooks 'css-mode-hook 'js2-mode-hook 'espresso-mode-hook 'html-mode-hook)
|
||||||
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
@ -374,7 +381,7 @@
|
||||||
(when (file-exists-p "~/.slime")
|
(when (file-exists-p "~/.slime")
|
||||||
(add-to-list 'load-path "~/.slime")
|
(add-to-list 'load-path "~/.slime")
|
||||||
(require 'slime)
|
(require 'slime)
|
||||||
(slime-setup)
|
(slime-setup '(slime-repl slime-js))
|
||||||
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
|
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
|
||||||
(add-hook 'scheme-mode-hook (lambda () (slime-mode t)))
|
(add-hook 'scheme-mode-hook (lambda () (slime-mode t)))
|
||||||
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
|
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
|
||||||
|
|
@ -426,61 +433,38 @@
|
||||||
;; Select the enclosed parens/brackets/braces
|
;; Select the enclosed parens/brackets/braces
|
||||||
(global-set-key "\M-B" 'select-enclosing-pair)
|
(global-set-key "\M-B" 'select-enclosing-pair)
|
||||||
|
|
||||||
;; nice OS X keyboard behaviors that save my pinky too
|
(when macosx-p
|
||||||
(defun save-the-pinky-buffer () (interactive) (message "Save your pinky! Use s-b (Opt-b) instead."))
|
;; nice OS X keyboard behaviors that save my pinky too
|
||||||
(defun save-the-pinky-open () (interactive) (message "Save your pinky! Use M-o (Cmd-o) instead."))
|
(defun save-the-pinky-buffer () (interactive) (message "Save your pinky! Use s-b (Opt-b) instead."))
|
||||||
(defun save-the-pinky-save () (interactive) (message "Save your pinky! Use M-s (Cmd-s) instead."))
|
(defun save-the-pinky-open () (interactive) (message "Save your pinky! Use M-o (Cmd-o) instead."))
|
||||||
(defun save-the-pinky-undo () (interactive) (message "Save your pinky! Use M-z (Cmd-z) instead."))
|
(defun save-the-pinky-save () (interactive) (message "Save your pinky! Use M-s (Cmd-s) instead."))
|
||||||
(defun save-the-pinky-window () (interactive) (message "Save your pinky! Use M-` (Cmd-`) instead."))
|
(defun save-the-pinky-undo () (interactive) (message "Save your pinky! Use M-z (Cmd-z) instead."))
|
||||||
(global-set-key "\C-_" 'save-the-pinky-undo)
|
(defun save-the-pinky-window () (interactive) (message "Save your pinky! Use M-` (Cmd-`) instead."))
|
||||||
(global-set-key "\C-x\C-f" 'save-the-pinky-open)
|
(global-set-key "\C-_" 'save-the-pinky-undo)
|
||||||
(global-set-key "\C-xo" 'save-the-pinky-window)
|
(global-set-key "\C-x\C-f" 'save-the-pinky-open)
|
||||||
(global-set-key "\C-x\C-s" 'save-the-pinky-save)
|
(global-set-key "\C-xo" 'save-the-pinky-window)
|
||||||
(global-set-key "\C-x\C-b" 'save-the-pinky-buffer)
|
(global-set-key "\C-x\C-s" 'save-the-pinky-save)
|
||||||
|
(global-set-key "\C-x\C-b" 'save-the-pinky-buffer)
|
||||||
|
|
||||||
(global-set-key "\M-n" 'new-frame)
|
(global-set-key "\M-n" 'new-frame)
|
||||||
(global-set-key "\M-o" 'find-file)
|
(global-set-key "\M-o" 'find-file)
|
||||||
(global-set-key "\M-s" 'save-buffer)
|
(global-set-key "\M-s" 'save-buffer)
|
||||||
(global-set-key "\M-z" 'undo)
|
(global-set-key "\M-z" 'undo)
|
||||||
(global-set-key [(meta down)] 'end-of-buffer)
|
(global-set-key [(meta down)] 'end-of-buffer)
|
||||||
(global-set-key [(meta up)] 'beginning-of-buffer)
|
(global-set-key [(meta up)] 'beginning-of-buffer)
|
||||||
(global-set-key [(meta right)] 'end-of-line)
|
(global-set-key [(meta right)] 'end-of-line)
|
||||||
(global-set-key [(meta left)] 'beginning-of-line)
|
(global-set-key [(meta left)] 'beginning-of-line)
|
||||||
|
|
||||||
;; can't seem to un-hijack cmd-`, so make it do something useful
|
;; can't seem to un-hijack cmd-`, so make it do something useful
|
||||||
(global-set-key "\M-`" 'other-window-in-any-frame)
|
(global-set-key "\M-`" 'other-window-in-any-frame)
|
||||||
|
|
||||||
;; find files like textmate
|
;; find files like textmate
|
||||||
(global-set-key "\M-F" 'textmate-find-regex-in-project)
|
(global-set-key "\M-F" 'textmate-find-regex-in-project)
|
||||||
|
)
|
||||||
;; run the ssa server
|
|
||||||
(global-set-key [(super s)] 'ssa-run-server)
|
|
||||||
|
|
||||||
;; quickly jump to a project
|
;; quickly jump to a project
|
||||||
(global-set-key [(super o)] 'open-project)
|
(global-set-key [(super o)] 'open-project)
|
||||||
|
|
||||||
(defun ssa-start-server (buffer)
|
|
||||||
(process-send-string buffer "cd ~/Projects/ssa/SelfServeApps/Backend")
|
|
||||||
(comint-send-input)
|
|
||||||
(process-send-string buffer "node listener.js")
|
|
||||||
(comint-send-input))
|
|
||||||
|
|
||||||
(defun ssa-run-server (&optional args)
|
|
||||||
"Run the ssa backend in an inferior shell."
|
|
||||||
(interactive "P")
|
|
||||||
(let* ((arg (car args))
|
|
||||||
(running (get-buffer "*server*"))
|
|
||||||
(restart (and (numberp arg) (= arg 4))))
|
|
||||||
(when (not running)
|
|
||||||
(shell "*server*")
|
|
||||||
(sleep-for 0.5)
|
|
||||||
(ssa-start-server "*server*"))
|
|
||||||
(when running
|
|
||||||
(switch-to-buffer "*server*")
|
|
||||||
(when restart
|
|
||||||
(comint-interrupt-subjob)
|
|
||||||
(ssa-start-server "*server*")))))
|
|
||||||
|
|
||||||
(defvar *open-project-registry* (list))
|
(defvar *open-project-registry* (list))
|
||||||
|
|
||||||
(defun register-project (name root-file)
|
(defun register-project (name root-file)
|
||||||
|
|
|
||||||
278
emacs.d/mustache-mode.el
Normal file
278
emacs.d/mustache-mode.el
Normal file
|
|
@ -0,0 +1,278 @@
|
||||||
|
;;; tpl-mode.el -- a major mode for editing Google CTemplate files.
|
||||||
|
;;; By Tony Gentilcore, July 2006
|
||||||
|
;;;
|
||||||
|
;;; Very minor, backwards compatible changes added for Mustache compatibility
|
||||||
|
;;; by Chris Wanstrath, October 2009
|
||||||
|
;;;
|
||||||
|
;;; TO USE:
|
||||||
|
;;; 1) Copy this file somewhere you in emacs load-path. To see what
|
||||||
|
;;; your load-path is, run inside emacs: C-h v load-path<RET>
|
||||||
|
;;; 2) Add the following two lines to your .emacs file:
|
||||||
|
;;; (setq auto-mode-alist (cons '("\\.tpl$" . tpl-mode) auto-mode-alist))
|
||||||
|
;;; (autoload 'tpl-mode "tpl-mode" "Major mode for editing CTemplate files." t)
|
||||||
|
;;; 3) Optionally (but recommended), add this third line as well:
|
||||||
|
;;; (add-hook 'tpl-mode-hook '(lambda () (font-lock-mode 1)))
|
||||||
|
;;; ---
|
||||||
|
;;;
|
||||||
|
;;; While the Mustache language can be used for any types of text,
|
||||||
|
;;; this mode is intended for using Mustache to write HTML.
|
||||||
|
;;;
|
||||||
|
;;; The indentation still has minor bugs due to the fact that
|
||||||
|
;;; templates do not require valid HTML.
|
||||||
|
;;;
|
||||||
|
;;; It would be nice to be able to highlight attributes of HTML tags,
|
||||||
|
;;; however this is difficult due to the presence of CTemplate symbols
|
||||||
|
;;; embedded within attributes.
|
||||||
|
|
||||||
|
(eval-when-compile
|
||||||
|
(require 'font-lock))
|
||||||
|
|
||||||
|
(defgroup tpl-mode nil
|
||||||
|
"Major mode for editing Google CTemplate and Mustache files"
|
||||||
|
:group 'languages)
|
||||||
|
|
||||||
|
(defvar tpl-mode-version "1.1"
|
||||||
|
"Version of `tpl-mode.el'.")
|
||||||
|
|
||||||
|
(defvar tpl-mode-abbrev-table nil
|
||||||
|
"Abbrev table for use in tpl-mode buffers.")
|
||||||
|
|
||||||
|
(define-abbrev-table 'tpl-mode-abbrev-table ())
|
||||||
|
|
||||||
|
(defcustom tpl-mode-hook nil
|
||||||
|
"*Hook that runs upon entering tpl-mode."
|
||||||
|
:type 'hook)
|
||||||
|
|
||||||
|
(defvar tpl-mode-map nil
|
||||||
|
"Keymap for tpl-mode major mode")
|
||||||
|
|
||||||
|
(if tpl-mode-map
|
||||||
|
nil
|
||||||
|
(setq tpl-mode-map (make-sparse-keymap)))
|
||||||
|
|
||||||
|
(define-key tpl-mode-map "\t" 'tpl-indent-command)
|
||||||
|
(define-key tpl-mode-map "\C-m" 'reindent-then-newline-and-indent)
|
||||||
|
(define-key tpl-mode-map "\C-ct" 'tpl-insert-tag)
|
||||||
|
(define-key tpl-mode-map "\C-cv" 'tpl-insert-variable)
|
||||||
|
(define-key tpl-mode-map "\C-cs" 'tpl-insert-section)
|
||||||
|
|
||||||
|
|
||||||
|
(defvar tpl-mode-syntax-table nil
|
||||||
|
"Syntax table in use in tpl-mode buffers.")
|
||||||
|
|
||||||
|
;; Syntax table.
|
||||||
|
(if tpl-mode-syntax-table
|
||||||
|
nil
|
||||||
|
(setq tpl-mode-syntax-table (make-syntax-table text-mode-syntax-table))
|
||||||
|
(modify-syntax-entry ?< "(> " tpl-mode-syntax-table)
|
||||||
|
(modify-syntax-entry ?> ")< " tpl-mode-syntax-table)
|
||||||
|
(modify-syntax-entry ?\" ". " tpl-mode-syntax-table)
|
||||||
|
(modify-syntax-entry ?\\ ". " tpl-mode-syntax-table)
|
||||||
|
(modify-syntax-entry ?' "w " tpl-mode-syntax-table))
|
||||||
|
|
||||||
|
(defvar tpl-basic-offset 2
|
||||||
|
"The basic indentation offset.")
|
||||||
|
|
||||||
|
;; Constant regular expressions to identify template elements.
|
||||||
|
(defconst tpl-mode-tpl-token "[a-zA-Z_][a-zA-Z0-9_:=\?!-]*?")
|
||||||
|
(defconst tpl-mode-section (concat "\\({{[#^/]\s*"
|
||||||
|
tpl-mode-tpl-token
|
||||||
|
"\s*}}\\)"))
|
||||||
|
(defconst tpl-mode-open-section (concat "\\({{#\s*"
|
||||||
|
tpl-mode-tpl-token
|
||||||
|
"\s*}}\\)"))
|
||||||
|
(defconst tpl-mode-close-section (concat "{{/\\(\s*"
|
||||||
|
tpl-mode-tpl-token
|
||||||
|
"\s*\\)}}"))
|
||||||
|
;; TODO(tonyg) Figure out a way to support multiline comments.
|
||||||
|
(defconst tpl-mode-comment "\\({{!.*?}}\\)")
|
||||||
|
(defconst tpl-mode-include (concat "\\({{[><]\s*"
|
||||||
|
tpl-mode-tpl-token
|
||||||
|
"\s*}}\\)"))
|
||||||
|
(defconst tpl-mode-variable (concat "\\({{\s*"
|
||||||
|
tpl-mode-tpl-token
|
||||||
|
"\s*}}\\)"))
|
||||||
|
(defconst tpl-mode-builtins
|
||||||
|
(concat
|
||||||
|
"\\({{\\<\s*"
|
||||||
|
(regexp-opt
|
||||||
|
'("BI_NEWLINE" "BI_SPACE")
|
||||||
|
t)
|
||||||
|
"\s*\\>}}\\)"))
|
||||||
|
(defconst tpl-mode-close-section-at-start (concat "^[ \t]*?"
|
||||||
|
tpl-mode-close-section))
|
||||||
|
|
||||||
|
;; Constant regular expressions to identify html tags.
|
||||||
|
;; Taken from HTML 4.01 / XHTML 1.0 Reference found at:
|
||||||
|
;; http://www.w3schools.com/tags/default.asp.
|
||||||
|
(defconst tpl-mode-html-constant "\\(&#?[a-z0-9]\\{2,5\\};\\)")
|
||||||
|
(defconst tpl-mode-pair-tag
|
||||||
|
(concat
|
||||||
|
"\\<"
|
||||||
|
(regexp-opt
|
||||||
|
'("a" "abbr" "acronym" "address" "applet" "area" "b" "bdo"
|
||||||
|
"big" "blockquote" "body" "button" "caption" "center" "cite"
|
||||||
|
"code" "col" "colgroup" "dd" "del" "dfn" "dif" "div" "dl"
|
||||||
|
"dt" "em" "fieldset" "font" "form" "frame" "frameset" "h1"
|
||||||
|
"h2" "h3" "h4" "h5" "h6" "head" "html" "i" "iframe" "ins"
|
||||||
|
"kbd" "label" "legend" "li" "link" "map" "menu" "noframes"
|
||||||
|
"noscript" "object" "ol" "optgroup" "option" "p" "pre" "q"
|
||||||
|
"s" "samp" "script" "select" "small" "span" "strike"
|
||||||
|
"strong" "style" "sub" "sup" "table" "tbody" "td" "textarea"
|
||||||
|
"tfoot" "th" "thead" "title" "tr" "tt" "u" "ul" "var")
|
||||||
|
t)
|
||||||
|
"\\>"))
|
||||||
|
(defconst tpl-mode-standalone-tag
|
||||||
|
(concat
|
||||||
|
"\\<"
|
||||||
|
(regexp-opt
|
||||||
|
'("base" "br" "hr" "img" "input" "meta" "param")
|
||||||
|
t)
|
||||||
|
"\\>"))
|
||||||
|
(defconst tpl-mode-open-tag (concat "<\\("
|
||||||
|
tpl-mode-pair-tag
|
||||||
|
"\\)"))
|
||||||
|
(defconst tpl-mode-close-tag (concat "</\\("
|
||||||
|
tpl-mode-pair-tag
|
||||||
|
"\\)>"))
|
||||||
|
(defconst tpl-mode-close-tag-at-start (concat "^[ \t]*?"
|
||||||
|
tpl-mode-close-tag))
|
||||||
|
|
||||||
|
(defconst tpl-mode-blank-line "^[ \t]*?$")
|
||||||
|
(defconst tpl-mode-dangling-open (concat "\\("
|
||||||
|
tpl-mode-open-section
|
||||||
|
"\\)\\|\\("
|
||||||
|
tpl-mode-open-tag
|
||||||
|
"\\)[^/]*$"))
|
||||||
|
|
||||||
|
(defun tpl-indent-command ()
|
||||||
|
"Command for indenting text. Just calls tpl-indent."
|
||||||
|
(interactive)
|
||||||
|
(tpl-indent))
|
||||||
|
|
||||||
|
(defun tpl-insert-tag (tag)
|
||||||
|
"Inserts an HTML tag."
|
||||||
|
(interactive "sTag: ")
|
||||||
|
(tpl-indent)
|
||||||
|
(insert (concat "<" tag ">"))
|
||||||
|
(insert "\n\n")
|
||||||
|
(insert (concat "</" tag ">"))
|
||||||
|
(tpl-indent)
|
||||||
|
(forward-line -1)
|
||||||
|
(tpl-indent))
|
||||||
|
|
||||||
|
(defun tpl-insert-variable (variable)
|
||||||
|
"Inserts a tpl variable."
|
||||||
|
(interactive "sVariable: ")
|
||||||
|
(insert (concat "{{" variable "}}")))
|
||||||
|
|
||||||
|
(defun tpl-insert-section (section)
|
||||||
|
"Inserts a tpl section."
|
||||||
|
(interactive "sSection: ")
|
||||||
|
(tpl-indent)
|
||||||
|
(insert (concat "{{#" section "}}\n"))
|
||||||
|
(insert "\n")
|
||||||
|
(insert (concat "{{/" section "}}"))
|
||||||
|
(tpl-indent)
|
||||||
|
(forward-line -1)
|
||||||
|
(tpl-indent))
|
||||||
|
|
||||||
|
;; Function to control indenting.
|
||||||
|
(defun tpl-indent ()
|
||||||
|
"Indent current line"
|
||||||
|
;; Set the point to beginning of line.
|
||||||
|
(beginning-of-line)
|
||||||
|
;; If we are at the beginning of the file, indent to 0.
|
||||||
|
(if (bobp)
|
||||||
|
(indent-line-to 0)
|
||||||
|
(let ((tag-stack 1) (close-tag "") (cur-indent 0) (old-pnt (point-marker))
|
||||||
|
(close-at-start) (open-token) (dangling-open))
|
||||||
|
(progn
|
||||||
|
;; Determine if this is a template line or an html line.
|
||||||
|
(if (looking-at "^[ \t]*?{{")
|
||||||
|
(setq close-at-start tpl-mode-close-section-at-start
|
||||||
|
open-token "{{#")
|
||||||
|
(setq close-at-start tpl-mode-close-tag-at-start
|
||||||
|
open-token "<"))
|
||||||
|
;; If there is a closing tag at the start of the line, search back
|
||||||
|
;; for its opener and indent to that level.
|
||||||
|
(if (looking-at close-at-start)
|
||||||
|
(progn
|
||||||
|
(save-excursion
|
||||||
|
(setq close-tag (match-string 1))
|
||||||
|
;; Keep searching for a match for the close tag until
|
||||||
|
;; the tag-stack is 0.
|
||||||
|
(while (and (not (bobp))
|
||||||
|
(> tag-stack 0)
|
||||||
|
(re-search-backward (concat open-token
|
||||||
|
"\\(/?\\)"
|
||||||
|
close-tag) nil t))
|
||||||
|
(if (string-equal (match-string 1) "/")
|
||||||
|
;; We found another close tag, so increment tag-stack.
|
||||||
|
(setq tag-stack (+ tag-stack 1))
|
||||||
|
;; We found an open tag, so decrement tag-stack.
|
||||||
|
(setq tag-stack (- tag-stack 1)))
|
||||||
|
(setq cur-indent (current-indentation))))
|
||||||
|
(if (> tag-stack 0)
|
||||||
|
(save-excursion
|
||||||
|
(forward-line -1)
|
||||||
|
(setq cur-indent (current-indentation)))))
|
||||||
|
;; This was not a closing tag, so we check if the previous line
|
||||||
|
;; was an opening tag.
|
||||||
|
(save-excursion
|
||||||
|
;; Keep moving back until we find a line that is not blank
|
||||||
|
(while (progn
|
||||||
|
(forward-line -1)
|
||||||
|
(and (not (bobp)) (looking-at tpl-mode-blank-line))))
|
||||||
|
(setq cur-indent (current-indentation))
|
||||||
|
(if (re-search-forward tpl-mode-dangling-open old-pnt t)
|
||||||
|
(setq cur-indent (+ cur-indent tpl-basic-offset)))))
|
||||||
|
;; Finally, we execute the actual indentation.
|
||||||
|
(if (> cur-indent 0)
|
||||||
|
(indent-line-to cur-indent)
|
||||||
|
(indent-line-to 0))))))
|
||||||
|
|
||||||
|
;; controls highlighting
|
||||||
|
(defconst tpl-mode-font-lock-keywords
|
||||||
|
(list
|
||||||
|
(list tpl-mode-section
|
||||||
|
'(1 font-lock-keyword-face))
|
||||||
|
(list tpl-mode-comment
|
||||||
|
'(1 font-lock-comment-face))
|
||||||
|
(list tpl-mode-include
|
||||||
|
'(1 font-lock-function-name-face))
|
||||||
|
(list tpl-mode-builtins
|
||||||
|
'(1 font-lock-variable-name-face))
|
||||||
|
(list tpl-mode-variable
|
||||||
|
'(1 font-lock-reference-face))
|
||||||
|
(list (concat "</?\\(" tpl-mode-pair-tag "\\)")
|
||||||
|
'(1 font-lock-function-name-face))
|
||||||
|
(list (concat "<\\(" tpl-mode-standalone-tag "\\)")
|
||||||
|
'(1 font-lock-function-name-face))
|
||||||
|
(list tpl-mode-html-constant
|
||||||
|
'(1 font-lock-variable-name-face))))
|
||||||
|
|
||||||
|
(put 'tpl-mode 'font-lock-defaults '(tpl-font-lock-keywords nil t))
|
||||||
|
|
||||||
|
(defun tpl-mode ()
|
||||||
|
"Major mode for editing Google CTemplate file."
|
||||||
|
(interactive)
|
||||||
|
(kill-all-local-variables)
|
||||||
|
(use-local-map tpl-mode-map)
|
||||||
|
(setq major-mode 'tpl-mode)
|
||||||
|
(setq mode-name "tpl-mode")
|
||||||
|
(setq local-abbrev-table tpl-mode-abbrev-table)
|
||||||
|
(setq indent-tabs-mode nil)
|
||||||
|
(set-syntax-table tpl-mode-syntax-table)
|
||||||
|
;; show trailing whitespace, but only when the user can fix it
|
||||||
|
(setq show-trailing-whitespace (not buffer-read-only))
|
||||||
|
(make-local-variable 'indent-line-function)
|
||||||
|
(setq indent-line-function 'tpl-indent)
|
||||||
|
(setq font-lock-defaults '(tpl-mode-font-lock-keywords))
|
||||||
|
(run-hooks 'tpl-mode-hook))
|
||||||
|
|
||||||
|
;; Automatically load tpl-mode for .mustache files.
|
||||||
|
(add-to-list 'auto-mode-alist '("\\.mustache$" . tpl-mode))
|
||||||
|
(add-hook 'tpl-mode-hook '(lambda () (font-lock-mode 1)))
|
||||||
|
|
||||||
|
(provide 'mustache-mode)
|
||||||
Loading…
Reference in a new issue