picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit a24a7c2df15a1e47d03cdf0928e06f48e5a998d3
parent b1af8428c23d9d75e47ca7c3ddd18954efb4a341
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 19 Jan 2013 09:26:53 +0100

New version of "picolisp-wiki-mode" from Thorsten
Diffstat:
Mlib/el/picolisp-wiki-mode.el | 25+++++++++++++++----------
1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/lib/el/picolisp-wiki-mode.el b/lib/el/picolisp-wiki-mode.el @@ -1,6 +1,6 @@ ;;; picolisp-wiki-mode.el --- Emacs Major mode for PicoLisp-Wiki formatted text files -;; Copyright (C) 2012 Thorsten Jolitz <tjolitz@gmail.com> +;; Copyright (C) 2012-13 Thorsten Jolitz <tjolitz@gmail.com> ;; Author: Thorsten Jolitz <tjolitz@gmail.com> ;; Maintainer: Thorsten Jolitz <tjolitz@gmail.com> @@ -162,7 +162,7 @@ ;;; Constants ================================================================= -(defconst picolisp-wiki-mode-version "0.9" +(defconst picolisp-wiki-mode-version "1.0" "Picolisp-Wiki mode version number.") ;;; Customizable variables ==================================================== @@ -359,6 +359,7 @@ (defface picolisp-wiki-pre-face '((t (:inherit font-lock-constant-face))) + ;; '((t (:inherit font-lock-string-face))) "Face for preformatted text." :group 'picolisp-wiki-faces) @@ -624,15 +625,15 @@ text.") (cons picolisp-wiki-regex-angle-uri '(2 picolisp-wiki-url-face)) (cons picolisp-wiki-regex-uri '(2 picolisp-wiki-url-face)) (cons picolisp-wiki-regex-email '(2 picolisp-wiki-url-face)) - (cons picolisp-wiki-regex-left-floating-content - '(2 picolisp-wiki-left-floating-content-fact)) - (cons picolisp-wiki-regex-non-floating-content - '(2 picolisp-wiki-non-floating-content-fact)) - (cons picolisp-wiki-regex-right-floating-content - '(2 picolisp-wiki-right-floating-content-fact)) + ;; (cons picolisp-wiki-regex-left-floating-content + ;; '(2 picolisp-wiki-left-floating-content-fact)) + ;; (cons picolisp-wiki-regex-non-floating-content + ;; '(2 picolisp-wiki-non-floating-content-fact)) + ;; (cons picolisp-wiki-regex-right-floating-content + ;; '(2 picolisp-wiki-right-floating-content-fact)) (cons picolisp-wiki-regex-email '(2 picolisp-wiki-url-face)) ;; changed from picolisp-wiki-regex-list-item - (cons picolisp-wiki-regex-list-item '(2 picolisp-wiki-list-item-face)) + ;; (cons picolisp-wiki-regex-list-item '(2 picolisp-wiki-list-item-face)) ;; (cons picolisp-wiki-regex-list-item-text 'picolisp-wiki-list-item-face) (cons picolisp-wiki-regex-internal-link '((2 picolisp-wiki-url-face t) @@ -1166,8 +1167,12 @@ This is an exact copy of `line-number-at-pos' for use in emacs21." ;; (set (make-local-variable 'paragraph-start) ;; "\f\\|[ \t]*$\\|^[ \t]*[*+-] \\|^[ \t*][0-9]+\\.\\|^[ \t]*: ") ;; Outline mode + (make-local-variable 'eval) + (setq eval (outline-minor-mode)) (make-local-variable 'outline-regexp) - (setq outline-regexp "^[ \t]*[0-9]{") + ;; (setq outline-regexp "^[ \t]*[0-9]{") + (setq outline-regexp + "^[ ]*\\(1{\\|2{.\\|3{..\\|4{...\\|5{....\\|6{.....\\)") ;; Cause use of ellipses for invisible text. (add-to-invisibility-spec '(outline . t)))