[nongnu] elpa/jade-mode a22d4acd31 001/128: initial commit

[ELPA Syncer]

branch: elpa/jade-mode
commit a22d4acd315acd36dce11d37276ceab9550f2ec0
Author: Brian Carlson <brian.m.carlson@gmail.com>
Commit: Brian Carlson <brian.m.carlson@gmail.com>

    initial commit
---
 example.jade | 21 +++++++++++++++++++
 jade-mode.el | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 87 insertions(+)

diff --git a/example.jade b/example.jade
new file mode 100644
index 0000000000..f780219f0e
--- /dev/null
+++ b/example.jade
@@ -0,0 +1,21 @@
+!!!
+html
+  head
+    title My page
+  body.bp
+    #container
+      #header
+        h1.page-title= My.awesome. page #is awesome#
+      #nav
+        ul#nav_list something sweet
+          li
+      #content
+      #footer
+        #copywrite-text= locals
+        
+        
+
+        
+
+        
+        
diff --git a/jade-mode.el b/jade-mode.el
new file mode 100644
index 0000000000..7b7ecf0f8a
--- /dev/null
+++ b/jade-mode.el
@@ -0,0 +1,66 @@
+;; copied from http://xahlee.org/emacs/elisp_syntax_coloring.html
+(require 'font-lock)
+
+(defvar jade-function-regexp "[A-Za-z]")
+(defvar jade-tab-width 2)
+
+(defun jade-debug (string &rest args)
+  "Prints a debug message"
+  (apply 'message (append (list string) args)))
+
+
+(defun jade-indent-line ()
+  "Indents current line"
+  (interactive)
+  (if (= (point) (point-at-bol))
+      (insert-tab)
+    (save-excursion
+      (let ((prev-indent 0) (cur-indent 0))
+        ;; Figure out the indentation of the previous line
+        (setq prev-indent)
+
+        ;; Figure out the current line's indentation
+        (setq cur-indent (current-indentation))
+
+        ;; Shift one column to the left
+        (beginning-of-line)
+        (insert-tab)
+
+        (when (= (point-at-bol) (point))
+          (forward-char 2))
+
+
+        ;; We're too far, remove all indentation.
+        ;;         (when (> (- (current-indentation) prev-indent) 
coffee-tab-width)
+        ;;           (backward-to-indentation 0)
+        ;;           (delete-region (point-at-bol) (point)))
+        ))))
+
+(setq jade-font-lock-keywords
+      `((,"!!!\\( \\(default\\|5\\|transitional\\)\\)?" . 
font-lock-constant-face)
+        (,"#\\(\\w\\|_\\|-\\)*" . font-lock-type-face)
+        (,"\\.[A-Za-z0-9\-\_]*" . font-lock-function-name-face)
+        (,"^ *\\<\\([A-Za-z0-9]*\\)\\>" . font-lock-keyword-face)))
+
+
+;; mode declaration
+(define-derived-mode jade-mode fundamental-mode
+  "Jade"
+  "Major mode for editing jade node.js templates"
+  ;; ...
+  (kill-all-local-variables)
+  (setq tab-width 2)
+  ;; code for syntax highlighting
+  (setq major-mode 'jade-mode)
+
+
+  (setq font-lock-defaults '(jade-font-lock-keywords))
+  (setq mode-name "Jade")
+  (make-local-variable 'indent-line-function)
+  (setq indent-line-function 'jade-indent-line)
+  ;; no tabs
+  (setq indent-tabs-mode nil))
+
+(provide 'jade-mode)
+
+(add-to-list 'auto-mode-alist '("\\.jade$" . jade-mode))