[nongnu] elpa/textile-mode 86e45d5a2b 02/19: Initial import

[ELPA Syncer]

branch: elpa/textile-mode
commit 86e45d5a2b37eac6adca9ffbe29edca78c0b696b
Author: Julien Barnier <julien@nozav.org>
Commit: Julien Barnier <julien@nozav.org>

    Initial import
---
 textile-mode.el | 402 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 402 insertions(+)

diff --git a/textile-mode.el b/textile-mode.el
new file mode 100644
index 0000000000..d794c09904
--- /dev/null
+++ b/textile-mode.el
@@ -0,0 +1,402 @@
+;;; textile-mode.el --- Textile markup editing major mode
+
+;; Copyright (C) 2006 Free Software Foundation, Inc.
+
+;; Author: Julien Barnier <julien@nozav.org>
+;; $Id: textile-mode.el 6 2006-03-30 22:37:08Z juba $
+
+;; This file 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, or (at your option)
+;; any later version.
+
+;; This file 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 GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; 
+
+
+;; Known bugs or limitations:
+
+;; - if several {style}, [lang] or (class) attributes are given for
+;;   the same block, only the first one of each type will be
+;;   highlighted.
+;;
+;; - some complex imbrications of inline markup and attributes are
+;;   not well-rendered (for example, *strong *{something}notstrong*)
+;;
+
+                                       
+
+;;; Code:
+
+
+
+(defvar textile-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [foo] 'textile-do-foo)
+    map)
+  "Keymap for `textile-mode'.")
+
+
+(defun textile-re-concat (l)
+  "Concatenate the elements of a list with a \\| separator and
+non-matching parentheses"
+  (concat 
+   "\\(?:"
+   (mapconcat 'identity l "\\|")
+   "\\)"))
+
+
+(setq textile-attributes 
+      '("{[^}]*}" "([^)]*)" "\\[[^]]*\\]"))
+
+(setq textile-blocks 
+      '("^h1" "^h2" "^h3" "^h4" "^h5" "^h6" "^p" "^bq" "^fn[0-9]+" "^#+ " 
"^\\*+ " "^table"))
+
+(setq textile-inline-markup
+      '("\\*" "\\*\\*" "_" "__" "\\?\\?" "@" "-" "\\+" "^" "~" "%"))
+
+(setq textile-alignments
+      '( "<>" "<" ">" "=" "(+" ")+"))
+
+(setq textile-table-alignments
+      '( "<>" "<" ">" "=" "_" "\\^" "~" "\\\\[0-9]+" "/[0-9]+"))
+
+; from gnus-button-url-regexp
+(setq textile-url-regexp 
"\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)")
+
+
+(defun textile-block-matcher (bloc)
+  "Return the matcher regexp for a block element"
+  (concat 
+   "^"
+   bloc 
+   (textile-re-concat textile-alignments) "?" 
+   (textile-re-concat textile-attributes) "*" 
+   "\\. "
+   "\\(\\(?:.\\|\n\\)*?\\)\n\n"))
+
+(defun textile-attribute-matcher (attr-start attr-end)
+  "Return the matcher regexp for an attribute"
+  (concat
+   (textile-re-concat (append textile-blocks textile-inline-markup))
+   (textile-re-concat textile-alignments) "*"
+   (textile-re-concat textile-attributes) "*" 
+   "\\(" attr-start "[^" 
+   (if (string-equal attr-end "\\]") "]" attr-end)
+   "]*" attr-end "\\)"))
+
+(defun textile-inline-markup-matcher (markup)
+  "Return the matcher regexp for an inline markup"
+  (concat
+   "\\W\\(" 
+   markup
+   "\\(?:\\w\\|\\w.*?\\w\\|[[{(].*?\\w\\)"
+   markup 
+   "\\)\\W"))
+
+(defun textile-list-bullet-matcher (bullet)
+  "Return the matcher regexp for a list bullet"
+  (concat
+   "^\\(" bullet "\\)"
+   (textile-re-concat textile-alignments) "*" 
+   (textile-re-concat textile-attributes) "*"))
+
+(defun textile-alignments-matcher ()
+  "Return the matcher regexp for an alignments or indentation"
+  (concat
+   "\\(?:" (textile-re-concat textile-blocks) "\\|" "!" "\\)"
+   "\\(" (textile-re-concat textile-alignments) "+" "\\)"))
+
+(defun textile-table-matcher ()
+  "Return the matcher regexp for a table row or header"
+  (concat
+   "\\(?:" 
+   "^table" (textile-re-concat textile-table-alignments) "*" 
(textile-re-concat textile-attributes) "*" "\\. *$" 
+   "\\|"
+   "^" (textile-re-concat textile-table-alignments) "*" (textile-re-concat 
textile-attributes) "*" "\\(?:\\. *|\\)"
+   "\\|"
+   "|" (textile-re-concat textile-table-alignments) "*" (textile-re-concat 
textile-attributes) "*" "\\(?:\\. \\)?"
+   "\\|"
+   "| *$"
+   "\\)"))
+
+(defun textile-link-matcher ()
+  "Return the matcher regexp for a link"
+  (concat
+   "\\(?:"
+   "\\(?:" "\".*?\"" "\\|" "\\[.*?\\]" "\\)?"
+   textile-url-regexp
+   "\\|"
+   "\".*?\":[^ \n\t]+"
+   "\\)"))
+
+(defun textile-image-matcher ()
+  "Return the matcher regexp for an image link"
+  (concat
+   "!"
+   (textile-re-concat textile-alignments) "*"
+   "/?\\w[^ \n\t]*?\\(?: *(.*?)\\|\\w\\)"
+   "!:?"))
+
+(defun textile-acronym-matcher ()
+  "Return the matcher regexp for an acronym"
+  (concat
+   "\\w+" "(.*?)"))
+
+(defvar textile-font-lock-keywords
+      (list
+       ;; headers
+       `(,(textile-block-matcher "h1") 1 'textile-h1-face t t)
+       `(,(textile-block-matcher "h2") 1 'textile-h2-face t t)
+       `(,(textile-block-matcher "h3") 1 'textile-h3-face t t)
+       `(,(textile-block-matcher "h4") 1 'textile-h4-face t t) 
+       `(,(textile-block-matcher "h5") 1 'textile-h5-face t t)
+       `(,(textile-block-matcher "h6") 1 'textile-h6-face t t)
+       ;; blockquotes
+       `(,(textile-block-matcher "bq") 1 'textile-blockquote-face t t)
+       ;; footnotes
+       `(,(textile-block-matcher "fn[0-9]+") 1 'textile-footnote-face t t)
+       ;; footnote marks
+       '("\\w\\([[0-9]+]\\)" 1 'textile-footnotemark-face prepend t)
+       ;; acronyms
+       `(,(textile-acronym-matcher) 0 'textile-acronym-face t t)
+
+       ;; emphasis
+       `(,(textile-inline-markup-matcher "__") 1 'textile-emph-face prepend t)
+       `(,(textile-inline-markup-matcher "_") 1 'textile-emph-face prepend t)
+       '("<em>\\(.\\|\n\\)*?</em>" 0 'textile-emph-face prepend t) 
+       ;; strength
+       `(,(textile-inline-markup-matcher "\\*\\*") 1 'textile-strong-face 
prepend t)
+       `(,(textile-inline-markup-matcher "\\*") 1 'textile-strong-face prepend 
t)
+       '("<strong>\\(.\\|\n\\)*?</strong>" 0 'textile-strong-face prepend t) 
+       ;; citation
+       `(,(textile-inline-markup-matcher "\\?\\?") 1 'textile-citation-face 
prepend t)
+       ;; code
+       `(,(textile-inline-markup-matcher "@") 1 'textile-code-face prepend t)
+       ;; deletion
+       `(,(textile-inline-markup-matcher "-") 1 'textile-deleted-face prepend 
t)
+       ;; insertion
+       `(,(textile-inline-markup-matcher "\\+") 1 'textile-inserted-face 
prepend t)
+       ;; superscript
+       `(,(textile-inline-markup-matcher "\\^") 1 'textile-superscript-face 
prepend t)
+       ;; subscript
+       `(,(textile-inline-markup-matcher "~") 1 'textile-subscript-face 
prepend t)
+       ;; span
+       `(,(textile-inline-markup-matcher "%") 1 'textile-span-face prepend t)
+
+       ;; image link
+       `(,(textile-image-matcher) 0 'textile-image-face t t)
+
+       ;; ordered list bullet
+       `(,(textile-list-bullet-matcher "#+") 1 'textile-ol-bullet-face)       
+       ;; unordered list bullet
+       `(,(textile-list-bullet-matcher "\\*+") 1 'textile-ul-bullet-face) 
+
+       ;; style
+       `(,(textile-attribute-matcher "{" "}") 1 'textile-style-face t t)
+       ;; class
+       `(,(textile-attribute-matcher "(" ")") 1 'textile-class-face t t)
+       ;; lang
+       `(,(textile-attribute-matcher "\\[" "\\]") 1 'textile-lang-face t t)
+
+       ;; alignments and indentation
+       `(,(textile-alignments-matcher) 1 'textile-alignments-face t t)
+
+       ;; tables
+       `(,(textile-table-matcher) 0 'textile-table-face t t)
+
+       ;; links
+       `(,(textile-link-matcher) 0 'textile-link-face t t)
+
+        ;; <pre> blocks
+       '("<pre>\\(.\\|\n\\)*?</pre>" 0 'textile-pre-face t t) 
+       ;; <code> blocks
+       '("<code>\\(.\\|\n\\)*?</code>" 0 'textile-code-face t t))
+      "Keywords/Regexp for fontlocking of textile-mode")
+
+
+;; (defvar textile-imenu-generic-expression
+;; ...)
+
+;; (defvar textile-outline-regexp
+;;   ...)
+
+
+(define-derived-mode textile-mode text-mode "Textile"
+  "A major mode for editing textile files."
+  (set (make-local-variable 'font-lock-defaults) '(textile-font-lock-keywords 
t))
+  (set (make-local-variable 'font-lock-multiline) 'undecided))
+
+
+
+
+;; FACES
+
+(defgroup textile-faces nil
+  "Faces used by textile-mode for syntax highlighting"
+  :group 'faces)
+
+(defface textile-h1-face
+  '((t (:height 2.0 :weight bold)))
+  "Face used to highlight h1 headers."
+  :group 'textile-faces)
+
+(defface textile-h2-face
+  '((t (:height 1.75 :weight bold)))
+  "Face used to highlight h2 headers."
+  :group 'textile-faces)
+
+(defface textile-h3-face
+  '((t (:height 1.6 :weight bold)))
+  "Face used to highlight h3 headers."
+  :group 'textile-faces)
+
+(defface textile-h4-face
+  '((t (:height 1.35 :weight bold)))
+  "Face used to highlight h4 headers."
+  :group 'textile-faces)
+
+(defface textile-h5-face
+  '((t (:height 1.2 :weight bold)))
+  "Face used to highlight h5 headers."
+  :group 'textile-faces)
+
+(defface textile-h6-face
+  '((t (:height 1.0 :weight bold)))
+  "Face used to highlight h6 headers."
+  :group 'textile-faces)
+
+(defface textile-blockquote-face
+  '((t (:foreground "ivory4")))
+  "Face used to highlight bq blocks."
+  :group 'textile-faces)
+
+(defface textile-footnote-face
+  '((t (:foreground "orange red")))
+  "Face used to highlight footnote blocks."
+  :group 'textile-faces)
+
+(defface textile-footnotemark-face
+  '((t (:foreground "orange red")))
+  "Face used to highlight footnote marks."
+  :group 'textile-faces)
+
+(defface textile-style-face
+  '((t (:foreground "sandy brown")))
+  "Face used to highlight style parameters."
+  :group 'textile-faces)
+
+(defface textile-class-face
+  '((t (:foreground "yellow green")))
+  "Face used to highlight class and id parameters."
+  :group 'textile-faces)
+
+(defface textile-lang-face
+  '((t (:foreground "sky blue")))
+  "Face used to highlight lang parameters."
+  :group 'textile-faces)
+
+(defface textile-emph-face
+  '((t (:slant italic)))
+  "Face used to highlight emphasized words."
+  :group 'textile-faces)
+
+(defface textile-strong-face
+  '((t (:weight bold)))
+  "Face used to highlight strong words."
+  :group 'textile-faces)
+
+(defface textile-code-face
+  '((t (:foreground "ivory3")))
+  "Face used to highlight inline code."
+  :group 'textile-faces)
+
+(defface textile-citation-face
+  '((t (:slant italic)))
+  "Face used to highlight citations."
+  :group 'textile-faces)
+
+(defface textile-deleted-face
+  '((t (:strike-through t)))
+  "Face used to highlight deleted words."
+  :group 'textile-faces)
+
+(defface textile-inserted-face
+  '((t (:underline t)))
+  "Face used to highlight inserted words."
+  :group 'textile-faces)
+
+(defface textile-superscript-face
+  '((t (:height 1.1)))
+  "Face used to highlight superscript words."
+  :group 'textile-faces)
+
+(defface textile-subscript-face
+  '((t (:height 0.8)))
+  "Face used to highlight subscript words."
+  :group 'textile-faces)
+
+(defface textile-span-face
+  '((t (:foreground "pink")))
+  "Face used to highlight span words."
+  :group 'textile-faces)
+
+(defface textile-alignments-face
+  '((t (:foreground "cyan")))
+  "Face used to highlight alignments."
+  :group 'textile-faces)
+
+(defface textile-ol-bullet-face
+  '((t (:foreground "red")))
+  "Face used to highlight ordered lists bullets."
+  :group 'textile-faces)
+
+(defface textile-ul-bullet-face
+  '((t (:foreground "blue")))
+  "Face used to highlight unordered list bullets."
+  :group 'textile-faces)
+
+(defface textile-pre-face
+  '((t (:foreground "green")))
+  "Face used to highlight <pre> blocks."
+  :group 'textile-faces)
+
+(defface textile-code-face
+  '((t (:foreground "yellow")))
+  "Face used to highlight <code> blocks."
+  :group 'textile-faces)
+
+(defface textile-table-face
+  '((t (:foreground "red")))
+  "Face used to highlight tables."
+  :group 'textile-faces)
+
+(defface textile-link-face
+  '((t (:foreground "blue")))
+  "Face used to highlight links."
+  :group 'textile-faces)
+
+(defface textile-image-face
+  '((t (:foreground "pink")))
+  "Face used to highlight image links."
+  :group 'textile-faces)
+
+(defface textile-acronym-face
+  '((t (:foreground "cyan")))
+  "Face used to highlight acronyms links."
+  :group 'textile-faces)
+
+
+(provide 'textile-mode)
+ ;;; textile-mode.el ends here
\ No newline at end of file