From 8c291fd8aab6ea91d467442fd87095ec64c1979e Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely@polonkai.eu>
Date: Wed, 28 Jan 2015 22:51:02 +0100
Subject: [PATCH] Add jinja-mode

---
 elpa/jinja2-mode-0.1/jinja2-mode-autoloads.el |  24 ++
 elpa/jinja2-mode-0.1/jinja2-mode-pkg.el       |   1 +
 elpa/jinja2-mode-0.1/jinja2-mode.el           | 328 ++++++++++++++++++
 3 files changed, 353 insertions(+)
 create mode 100644 elpa/jinja2-mode-0.1/jinja2-mode-autoloads.el
 create mode 100644 elpa/jinja2-mode-0.1/jinja2-mode-pkg.el
 create mode 100644 elpa/jinja2-mode-0.1/jinja2-mode.el

diff --git a/elpa/jinja2-mode-0.1/jinja2-mode-autoloads.el b/elpa/jinja2-mode-0.1/jinja2-mode-autoloads.el
new file mode 100644
index 0000000..21908d5
--- /dev/null
+++ b/elpa/jinja2-mode-0.1/jinja2-mode-autoloads.el
@@ -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
diff --git a/elpa/jinja2-mode-0.1/jinja2-mode-pkg.el b/elpa/jinja2-mode-0.1/jinja2-mode-pkg.el
new file mode 100644
index 0000000..e0ee105
--- /dev/null
+++ b/elpa/jinja2-mode-0.1/jinja2-mode-pkg.el
@@ -0,0 +1 @@
+(define-package "jinja2-mode" "0.1" "A major mode for jinja2" 'nil)
diff --git a/elpa/jinja2-mode-0.1/jinja2-mode.el b/elpa/jinja2-mode-0.1/jinja2-mode.el
new file mode 100644
index 0000000..b191b26
--- /dev/null
+++ b/elpa/jinja2-mode-0.1/jinja2-mode.el
@@ -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