Add jinja-mode
This commit is contained in:
parent
943f3d1156
commit
8c291fd8aa
|
|
@ -0,0 +1,24 @@
|
|||
;;; jinja2-mode-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
|
||||
|
||||
;;;### (autoloads nil "jinja2-mode" "jinja2-mode.el" (21705 22864
|
||||
;;;;;; 361785 859000))
|
||||
;;; Generated autoloads from jinja2-mode.el
|
||||
|
||||
(autoload 'jinja2-mode "jinja2-mode" "\
|
||||
Major mode for editing jinja2 files
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(add-to-list 'auto-mode-alist '("\\.jinja2\\'" . jinja2-mode))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; End:
|
||||
;;; jinja2-mode-autoloads.el ends here
|
||||
|
|
@ -0,0 +1 @@
|
|||
(define-package "jinja2-mode" "0.1" "A major mode for jinja2" 'nil)
|
||||
|
|
@ -0,0 +1,328 @@
|
|||
;;; jinja2-mode.el --- A major mode for jinja2
|
||||
|
||||
;; Copyright (C) 2011 Florian Mounier aka paradoxxxzero
|
||||
|
||||
;; Author: Florian Mounier aka paradoxxxzero
|
||||
;; Version: 0.1
|
||||
|
||||
;; 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 3 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, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; This is an emacs major mode for jinja2 with:
|
||||
;; syntax highlighting
|
||||
;; sgml/html integration
|
||||
;; indentation (working with sgml)
|
||||
;; more to come
|
||||
|
||||
;; This file comes from http://github.com/paradoxxxzero/jinja2-mode
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'sgml-mode)
|
||||
|
||||
(defgroup jinja2 nil
|
||||
"Major mode for editing jinja2 code."
|
||||
:prefix "jinja2-"
|
||||
:group 'languages)
|
||||
|
||||
(defcustom jinja2-user-keywords nil
|
||||
"Custom keyword names"
|
||||
:type '(repeat string)
|
||||
:group 'jinja2)
|
||||
|
||||
(defcustom jinja2-user-functions nil
|
||||
"Custom function names"
|
||||
:type '(repeat string)
|
||||
:group 'jinja2)
|
||||
|
||||
;; (defcustom jinja2-debug nil
|
||||
;; "Log indentation logic"
|
||||
;; :type 'boolean
|
||||
;; :group 'jinja2)
|
||||
|
||||
(defun jinja2-closing-keywords ()
|
||||
(append
|
||||
jinja2-user-keywords
|
||||
'("if" "for" "block" "filter" "with"
|
||||
"raw" "macro" "autoescape" "trans" "call")))
|
||||
|
||||
(defun jinja2-indenting-keywords ()
|
||||
(append
|
||||
(jinja2-closing-keywords)
|
||||
'("else" "elif")))
|
||||
|
||||
(defun jinja2-builtin-keywords ()
|
||||
'("as" "autoescape" "debug" "extends"
|
||||
"firstof" "in" "include" "load"
|
||||
"now" "regroup" "ssi" "templatetag"
|
||||
"url" "widthratio" "elif" "true"
|
||||
"false" "none" "False" "True" "None"
|
||||
"loop" "super" "caller" "varargs"
|
||||
"kwargs" "break" "continue" "is"
|
||||
"not" "or" "and"
|
||||
"do" "pluralize" "set" "from" "import"
|
||||
"context" "with" "without" "ignore"
|
||||
"missing" "scoped"))
|
||||
|
||||
(defun jinja2-functions-keywords ()
|
||||
(append
|
||||
jinja2-user-functions
|
||||
'("abs" "attr" "batch" "capitalize"
|
||||
"center" "default" "dictsort"
|
||||
"escape" "filesizeformat" "first"
|
||||
"float" "forceescape" "format"
|
||||
"groupby" "indent" "int" "join"
|
||||
"last" "length" "list" "lower"
|
||||
"pprint" "random" "replace"
|
||||
"reverse" "round" "safe" "slice"
|
||||
"sort" "string" "striptags" "sum"
|
||||
"title" "trim" "truncate" "upper"
|
||||
"urlize" "wordcount" "wordwrap" "xmlattr")))
|
||||
|
||||
(defun jinja2-find-open-tag ()
|
||||
(if (search-backward-regexp
|
||||
(rx-to-string
|
||||
`(and "{%"
|
||||
(? "-")
|
||||
(* whitespace)
|
||||
(? (group
|
||||
"end"))
|
||||
(group
|
||||
,(append '(or)
|
||||
(jinja2-closing-keywords)
|
||||
))
|
||||
(group
|
||||
(*? anything))
|
||||
(* whitespace)
|
||||
(? "-")
|
||||
"%}")) nil t)
|
||||
(if (match-string 1) ;; End tag, going on
|
||||
(let ((matches (jinja2-find-open-tag)))
|
||||
(if (string= (car matches) (match-string 2))
|
||||
(jinja2-find-open-tag)
|
||||
(list (match-string 2) (match-string 3))))
|
||||
(list (match-string 2) (match-string 3)))
|
||||
nil))
|
||||
|
||||
(defun jinja2-close-tag ()
|
||||
"Close the previously opened template tag."
|
||||
(interactive)
|
||||
(let ((open-tag (save-excursion (jinja2-find-open-tag))))
|
||||
(if open-tag
|
||||
(insert
|
||||
(if (string= (car open-tag) "block")
|
||||
(format "{%% end%s%s %%}"
|
||||
(car open-tag)(nth 1 open-tag))
|
||||
(format "{%% end%s %%}"
|
||||
(match-string 2))))
|
||||
(error "Nothing to close")))
|
||||
(save-excursion (jinja2-indent-line)))
|
||||
|
||||
(defun jinja2-insert-tag ()
|
||||
"Insert an empty tag"
|
||||
(interactive)
|
||||
(insert "{% ")
|
||||
(save-excursion
|
||||
(insert " %}")
|
||||
(jinja2-indent-line)))
|
||||
|
||||
(defun jinja2-insert-var ()
|
||||
"Insert an empty tag"
|
||||
(interactive)
|
||||
(insert "{{ ")
|
||||
(save-excursion
|
||||
(insert " }}")
|
||||
(jinja2-indent-line)))
|
||||
|
||||
(defun jinja2-insert-comment ()
|
||||
"Insert an empty tag"
|
||||
(interactive)
|
||||
(insert "{# ")
|
||||
(save-excursion
|
||||
(insert " #}")
|
||||
(jinja2-indent-line)))
|
||||
|
||||
(defconst jinja2-font-lock-comments
|
||||
`(
|
||||
(,(rx "{#"
|
||||
(* whitespace)
|
||||
(group
|
||||
(*? anything)
|
||||
)
|
||||
(* whitespace)
|
||||
"#}")
|
||||
. (1 font-lock-comment-face t))))
|
||||
|
||||
(defconst jinja2-font-lock-keywords-1
|
||||
(append
|
||||
jinja2-font-lock-comments
|
||||
sgml-font-lock-keywords-1))
|
||||
|
||||
(defconst jinja2-font-lock-keywords-2
|
||||
(append
|
||||
jinja2-font-lock-keywords-1
|
||||
sgml-font-lock-keywords-2))
|
||||
|
||||
(defconst jinja2-font-lock-keywords-3
|
||||
(append
|
||||
jinja2-font-lock-keywords-1
|
||||
jinja2-font-lock-keywords-2
|
||||
`(
|
||||
(,(rx "{{"
|
||||
(* whitespace)
|
||||
(group
|
||||
(*? anything)
|
||||
)
|
||||
(*
|
||||
"|" (* whitespace) (*? anything))
|
||||
(* whitespace)
|
||||
"}}") (1 font-lock-variable-name-face t))
|
||||
(,(rx (group "|" (* whitespace))
|
||||
(group (+ word))
|
||||
)
|
||||
(1 font-lock-keyword-face t)
|
||||
(2 font-lock-warning-face t))
|
||||
(,(rx-to-string `(and (group "|" (* whitespace))
|
||||
(group
|
||||
,(append '(or)
|
||||
(jinja2-functions-keywords)
|
||||
))))
|
||||
(1 font-lock-keyword-face t)
|
||||
(2 font-lock-function-name-face t)
|
||||
)
|
||||
(,(rx-to-string `(and word-start
|
||||
(? "end")
|
||||
,(append '(or)
|
||||
(jinja2-indenting-keywords)
|
||||
)
|
||||
word-end)) (0 font-lock-keyword-face))
|
||||
(,(rx-to-string `(and word-start
|
||||
,(append '(or)
|
||||
(jinja2-builtin-keywords)
|
||||
)
|
||||
word-end)) (0 font-lock-builtin-face))
|
||||
|
||||
(,(rx (or "{%" "%}" "{%-" "-%}")) (0 font-lock-function-name-face t))
|
||||
(,(rx (or "{{" "}}")) (0 font-lock-type-face t))
|
||||
(,(rx "{#"
|
||||
(* whitespace)
|
||||
(group
|
||||
(*? anything)
|
||||
)
|
||||
(* whitespace)
|
||||
"#}")
|
||||
(1 font-lock-comment-face t))
|
||||
(,(rx (or "{#" "#}")) (0 font-lock-comment-delimiter-face t))
|
||||
)))
|
||||
|
||||
(defvar jinja2-font-lock-keywords
|
||||
jinja2-font-lock-keywords-1)
|
||||
|
||||
(defun sgml-indent-line-num ()
|
||||
"Indent the current line as SGML."
|
||||
(let* ((savep (point))
|
||||
(indent-col
|
||||
(save-excursion
|
||||
(back-to-indentation)
|
||||
(if (>= (point) savep) (setq savep nil))
|
||||
(sgml-calculate-indent))))
|
||||
(if (null indent-col)
|
||||
0
|
||||
(if savep
|
||||
(save-excursion indent-col)
|
||||
indent-col))))
|
||||
|
||||
(defun jinja2-calculate-indent-backward (default)
|
||||
"Return indent column based on previous lines"
|
||||
(let ((indent-width sgml-basic-offset) (default (sgml-indent-line-num)))
|
||||
(forward-line -1)
|
||||
(if (looking-at "^[ \t]*{%-? *end") ; Don't indent after end
|
||||
(current-indentation)
|
||||
(if (looking-at (concat "^[ \t]*{%-? *.*?{%-? *end" (regexp-opt (jinja2-indenting-keywords))))
|
||||
(current-indentation)
|
||||
(if (looking-at (concat "^[ \t]*{%-? *" (regexp-opt (jinja2-indenting-keywords)))) ; Check start tag
|
||||
(+ (current-indentation) indent-width)
|
||||
(if (looking-at "^[ \t]*<") ; Assume sgml block trust sgml
|
||||
default
|
||||
(if (bobp)
|
||||
0
|
||||
(jinja2-calculate-indent-backward default))))))))
|
||||
|
||||
|
||||
(defun jinja2-calculate-indent ()
|
||||
"Return indent column"
|
||||
(if (bobp) ; Check begining of buffer
|
||||
0
|
||||
(let ((indent-width sgml-basic-offset) (default (sgml-indent-line-num)))
|
||||
(if (looking-at "^[ \t]*{%-? *e\\(nd\\|lse\\|lif\\)") ; Check close tag
|
||||
(save-excursion
|
||||
(forward-line -1)
|
||||
(if
|
||||
(and
|
||||
(looking-at (concat "^[ \t]*{%-? *" (regexp-opt (jinja2-indenting-keywords))))
|
||||
(not (looking-at (concat "^[ \t]*{%-? *.*?{% *end" (regexp-opt (jinja2-indenting-keywords))))))
|
||||
(current-indentation)
|
||||
(- (current-indentation) indent-width)))
|
||||
(if (looking-at "^[ \t]*</") ; Assume sgml end block trust sgml
|
||||
default
|
||||
(save-excursion
|
||||
(jinja2-calculate-indent-backward default)))))))
|
||||
|
||||
(defun jinja2-indent-line ()
|
||||
"Indent current line as Jinja code"
|
||||
(interactive)
|
||||
(let ((old_indent (current-indentation)) (old_point (point)))
|
||||
(move-beginning-of-line nil)
|
||||
(let ((indent (max 0 (jinja2-calculate-indent))))
|
||||
(indent-line-to indent)
|
||||
(if (< old_indent (- old_point (line-beginning-position)))
|
||||
(goto-char (+ (- indent old_indent) old_point)))
|
||||
indent)))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
(define-derived-mode jinja2-mode sgml-mode "Jinja2"
|
||||
"Major mode for editing jinja2 files"
|
||||
:group 'jinja2
|
||||
;; Disabling this because of this emacs bug:
|
||||
;; http://lists.gnu.org/archive/html/bug-gnu-emacs/2002-09/msg00041.html
|
||||
;; (modify-syntax-entry ?\' "\"" sgml-mode-syntax-table)
|
||||
(set (make-local-variable 'comment-start) "{#")
|
||||
(set (make-local-variable 'comment-start-skip) "{#")
|
||||
(set (make-local-variable 'comment-end) "#}")
|
||||
(set (make-local-variable 'comment-end-skip) "#}")
|
||||
;; it mainly from sgml-mode font lock setting
|
||||
(set (make-local-variable 'font-lock-defaults)
|
||||
'((
|
||||
jinja2-font-lock-keywords
|
||||
jinja2-font-lock-keywords-1
|
||||
jinja2-font-lock-keywords-2
|
||||
jinja2-font-lock-keywords-3)
|
||||
nil t nil nil
|
||||
(font-lock-syntactic-keywords
|
||||
. sgml-font-lock-syntactic-keywords)))
|
||||
(set (make-local-variable 'indent-line-function) 'jinja2-indent-line))
|
||||
|
||||
(define-key jinja2-mode-map (kbd "C-c c") 'jinja2-close-tag)
|
||||
(define-key jinja2-mode-map (kbd "C-c t") 'jinja2-insert-tag)
|
||||
(define-key jinja2-mode-map (kbd "C-c v") 'jinja2-insert-var)
|
||||
(define-key jinja2-mode-map (kbd "C-c #") 'jinja2-insert-comment)
|
||||
|
||||
;;;###autoload
|
||||
(add-to-list 'auto-mode-alist '("\\.jinja2\\'" . jinja2-mode))
|
||||
|
||||
(provide 'jinja2-mode)
|
||||
|
||||
;;; jinja2-mode.el ends here
|
||||
Loading…
Reference in New Issue