From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Ralph Amissah Newsgroups: gmane.emacs.devel Subject: Re: Ambrose Kofi Laing & Ralph Neelante Amissah [Emacs] sisu-mode.el - a major-mode for highlighting a structured text Date: Thu, 18 Feb 2016 17:19:33 -0500 Message-ID: <20160218221933.GA32234@niu> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="17pEHd4RhPHOinZp" Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1455834144 23421 80.91.229.3 (18 Feb 2016 22:22:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 18 Feb 2016 22:22:24 +0000 (UTC) Cc: Kevin Ryde , Ambrose Kofi Laing To: Stefan Monnier , emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Feb 18 23:22:09 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aWWxb-0007k8-S3 for ged-emacs-devel@m.gmane.org; Thu, 18 Feb 2016 23:22:08 +0100 Original-Received: from localhost ([::1]:46165 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aWWxa-0004qy-VM for ged-emacs-devel@m.gmane.org; Thu, 18 Feb 2016 17:22:06 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53062) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aWWvF-0003eJ-Ax for emacs-devel@gnu.org; Thu, 18 Feb 2016 17:19:43 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aWWvC-0003Pv-0n for emacs-devel@gnu.org; Thu, 18 Feb 2016 17:19:41 -0500 Original-Received: from mail-qg0-x22b.google.com ([2607:f8b0:400d:c04::22b]:36643) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aWWvB-0003Pg-PA for emacs-devel@gnu.org; Thu, 18 Feb 2016 17:19:37 -0500 Original-Received: by mail-qg0-x22b.google.com with SMTP id y9so49190427qgd.3 for ; Thu, 18 Feb 2016 14:19:37 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=date:from:to:cc:subject:message-id:mime-version:content-type :content-disposition:content-transfer-encoding:user-agent; bh=6ZU1jSDNZ+ZWhvnRdmDTbYRDGLuctsvOO1R4VnjiteM=; b=lo/AuMfYu1xRzXjAGF5+rrGu7JDoMngeespDozRD1uWDE9/a5ep0PuzqZ9/+GpNPGF m0PbCgciZEA7AqTssKx9ZzaL0JBU/1MkyXv4OtR0KFi1JzWwWXyOCD/8amDnlzCqrMG+ ksPzlG3Fz6KM5VubenZkSfGWBSXKJQ9wyaCEtUZtjZCdBbgCjWPKqQZOCgkNGe1cC+LS 9LPthSofduZ5ilqNmaxA3Edxk0Rzb7KQnLzIYWY686PF8q23JDSioApfaItRe+ofK3x3 sVOtjLyOFmRkba86OCoTgeVMxmOzey0jy56xkbvDLb8F1TIziODYdneWV3uzkJzu6BFq d/IQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:date:from:to:cc:subject:message-id:mime-version :content-type:content-disposition:content-transfer-encoding :user-agent; bh=6ZU1jSDNZ+ZWhvnRdmDTbYRDGLuctsvOO1R4VnjiteM=; b=jvrGTh55yU+CQwJ1jsANDkiaWbHwGMwfwjeN0PPGHELCK3Q2e09BIWtqe6Pouz5PhA 3+/48zV7JUX7DiBrecZtG+Fp4ZYyq5JWma8QFoAJoM3884BiJFqmS+qFkUJb9gjC23qt pWiV+FRY2gPoqaI68hP2kou7PxsfVBptDo1YkprZaFnoUHpwsvbvc1y8WJHCVrjwnDcZ Qy7kGJF156zrZVNc57EZCjx1U9D9eFMC7XRADUvb4rDjuhprPiz//vLaigRhSTvY+5ac UL0EvjMkdW0urjLTAd2x6pIdFyBLPUAAlzHqB+J0ZYP5EMU9pBwVMOLnsEUw/WI4E44o Jagg== X-Gm-Message-State: AG10YOTaG7deU6QVRELCSqVyWRy1CjL9uMGHkG95KcscTOlR3yAjGmHeIYzNt0vVDFWQfA== X-Received: by 10.140.104.242 with SMTP id a105mr12008490qgf.1.1455833977180; Thu, 18 Feb 2016 14:19:37 -0800 (PST) Original-Received: from niu (pool-72-79-53-224.nwrknj.east.verizon.net. [72.79.53.224]) by smtp.gmail.com with ESMTPSA id c68sm3489427qkj.11.2016.02.18.14.19.35 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 18 Feb 2016 14:19:35 -0800 (PST) Content-Disposition: inline User-Agent: Mutt/1.5.24 (2015-08-30) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2607:f8b0:400d:c04::22b X-Mailman-Approved-At: Thu, 18 Feb 2016 17:22:02 -0500 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:200162 Archived-At: --17pEHd4RhPHOinZp Content-Type: text/plain; charset=iso-8859-1 Content-Disposition: inline Content-Transfer-Encoding: 8bit Dear Stefan, >> I've just added sisu-mode.el to Emacs's `elpa' branch in the >> Bzr repository.  It will appear in the GNU ELPA next time we update it >> from the branch. >> I do not know whether you are still the correct person to address this email to, but it is easiest to continue the trail where we last left off. I hope this note finds you in good health. >> Whenever there are any updates, please send a patch to >> emacs-devel@gnu.org or via M-x report-emacs-bug so someone can install >> it for you. > ah, I copy this request to emacs-devel@gnu.org Please find attached sisu-mode.el and sisu-mode-autoloads.el updated to for current sisu markup, and with corrections with regard to autoload (re: the relevant filenames). "Evil-mode" helm, org-mode have made serious inroads to my dependence on vim, now "spacemacs" as well ... but one of the results is that I need more ram for my laptop(s). Kofi and Kevin, greetings and thank you. Ralph Amissah On Wed, Jul 06, 2011 at 08:39:18PM -0400, Ralph Amissah wrote: > On Mon, Jul 4, 2011 at 3:32 PM, Stefan Monnier wrote: > > I've just added sisu-mode.el to Emacs's `elpa' branch in the > > Bzr repository.  It will appear in the GNU ELPA next time we update it > > from the branch. > > > > I made a few changes to the format of the comments in the file you sent, > > w.r.t ";;; Commentary:" and ";;; Code:", the Author and such fields, as > > well as the license info, to make it follow Emacs conventions. > > Thank you for your contribution, > > > > Thank you. > > > Whenever there are any updates, please send a patch to > > emacs-devel@gnu.org or via M-x report-emacs-bug so someone can install > > it for you. > > Will do. > > > If you want, we could also give you access to the repository > > so you can install changes yourself. > > > > This might be interesting in future. > Will come back to this when it seems convenient. > Will have a look sometime and try to become familiar with how you > would prefer commit comments to be. > > > > >        Stefan > > > > Again thank you, > Ralph > > > > >>>>>> "Ralph" == Ralph Amissah writes: > > > >> On Thu, Mar 17, 2011 at 4:07 PM, Stefan Monnier wrote: > >>> [ Requesting the copyright paperwork. ] > >>> > >>> Great.  Could you remind me how Sun Tong's work is (ir)relevant here? > >>> I.e. did you copy some of his code?  If so, is that code still present > >>> in sisu-mode or has it been superceded by new code since then?  How much > >>> code are we talking about? > >>> I'm trying to assess whether we need him to sign some copyright paperwork > >>> as well. > >>> > > > >> We used his syntax highlighting file doc-mode.el as a starting point. We > >> wrote to him and got permission for its use. I forward a copy of his > >> response to our request, and attach: Sun Tong's doc-mode.el; > >> sisu-mode.el as it was at the time here named sisu2008-mode.el, and; the > >> current sisu-mode.el should you need to make a determination as to > >> whether more needs to be done. I think it is fine. > > > >>>> ---------- Forwarded message ---------- > >>>> From: Tong Sun > >>>> Date: Sun, Nov 2, 2008 at 11:20 PM > >>>> Subject: Re: request to base another markup language syntax > >>>> highlighting on your emacs doc-mode.el > >>>> To: Ralph Amissah > >>>> > >>>> Hi Ralph, > >>>> > >>>> Sure, no problem at all. My pleasure. > >>>> > >>>> Thanks a lot for the kind words in the credit intro. > >>>> > >>>> Cheers. > >>>> > >>>> tong > >>>> > >>>> On Sun, Nov 2, 2008 at 11:10 PM, Ralph Amissah wrote: > >>>>> Dear Tong, > >>>>> I am the author of sisu, an open source project including a markup > >>>>> language and processor. > >>>>> I have been working on this project for the last 10 years: > >>>>> http://www.jus.uio.no/sisu > >>>>> the most recent blogging on it being: > >>>>> http://twobits.net/2008/10/15/oh-wow-sisu-rocks-two-bits/ > >>>>> > >>>>> This is to request permission to use our reworked sisu-mode.el for > >>>>> sisu syntax highlighting (parts of which are) based on your emacs > >>>>> doc-mode.el: > >>>>> http://xpt.sourceforge.net/tools/doc-mode/ > >>>>> http://xpt.sourceforge.net/tools/doc-mode/doc-mode.el > >>>>> > >>>>> I confess to having been primarily a user of vim, and for a long time > >>>>> wishing to have a emacs syntax highlighter for SiSU. Finally with a > >>>>> friend (Kofi Laing), working with your file we have done this, the > >>>>> syntax highlighter is attached and we would like to add it to the SiSU > >>>>> program bundle under GPL together with credit to you for doc-mode.el > >>>>> > >>>>> A copy of sisu-mode.el is attached, the header currently reads as follows: > >>>>> > >>>>> ;;; sisu-mode.el --- a major-mode for highlighting a hierarchy structured text. > >>>>> ;; @Author: Ambrose Kofi Laing > >>>>> ;; @Keywords: text, processes, tools > >>>>> ;; @Version: 0.96.4 2008-11-01 > >>>>> ;; @License: GPLv3 > >>>>> ;; @Home URL: SiSU:   http://www.jus.uio.no/sisu > >>>>> ;; originally looked at (based on) doc-mode, with kind permission of the author > >>>>> ;;   Author: SUN, Tong , (c)2001-6, all right reserved > >>>>> ;;   Version: $Date: 2006/01/19 03:13:41 $ $Revision: 1.14 $ > >>>>> ;;   Home URL: http://xpt.sourceforge.net/ > >>>>> ;; > >>>>> ;;   Distribute freely, but please include the author's info & copyright, > >>>>> ;;   the file's version & url with the distribution. > >>>>> ;; > >>>>> ;  Viva Software Libre! > >>>>> ;; Support the free software movement! > >>>>> > >>>>> We would be grateful for your permission to do this. > >>>>> > >>>>> Much gratitude in advance, > >>>>> Sincerely, > >>>>> Ralph Amissah > >>>>> > >>>>> > >>>>> -- > >>>>> email:  ralph.amissah@gmail.com > >>>>> SiSU:   http://www.jus.uio.no/sisu > > > >>> > >>> Stefan > >>> > >>> > >>> PS: Congratulation on your second child, BTW. > >>> > > > >> Thank you :-) both young ones are joys. > > > >> Ralph > > --17pEHd4RhPHOinZp Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="sisu-mode.el" ;;; sisu-mode.el --- a major-mode for highlighting a hierarchy structured text. ;; Copyright (C): Free Software Foundation, Inc. (FSF) (GNU EMACS) ;; Assigned to FSF 2011-04-08 ;; ;; [this file has been edited and updated by Ralph Amissah] ;; Author: Ralph Amissah & Ambrose Kofi Laing ;; Keywords: text, syntax, processes, tools ;; Version: 7.1.7 2015-12-26 Ralph Amissah, ;; including patch from Kevin Ryde; ;; 5.7.2 2014-10-28 Ralph Amissah; ;; 4.0.8 2013-02-17 Ralph Amissah; ;; 3.0.7 2011-04-20 Ambrose Kofi Laing & Ralph Amissah; ;; 2008-12-14 ;; URL: [http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=blob;f=data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el;hb=HEAD] ;; License: GPLv3 ;; Home URL: SiSU: http://www.jus.uio.no/sisu ;; originally looked at (based on) doc-mode, with kind permission of the author ;; Author: SUN, Tong , (c)2001-6, all right reserved ;; Version: $Date: 2006/01/19 03:13:41 $ $Revision: 1.14 $ ;; Home URL: http://xpt.sourceforge.net/ ;; 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, 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/]. ;; Viva Software Libre! ;; Support the free software movement! ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Commentary: ;; SiSU (http://www.sisudoc.org/) is a document structuring and ;; publishing framework. This package provides an Emacs major mode ;; for SiSU markup. ;; When this package is installed, files ending in ".sisu" are ;; automatically associated with sisu-mode. If a file doesn't have a ;; .sisu extension, add a first line: ;; # -*- Sisu -*- ;; The documentation for the "Structure Of The Hierarchy Text" can be ;; found in the sisustring for the sisu-mode function. (defgroup sisu-faces nil "AsciiSisu highlighting" :group 'sisus) ;; == Colors ; color n is more prominent than color n+1 (defface sisu-title-1-face `((((class color) (background dark)) (:foreground "brown3" :bold t :height 1.2 :inherit variable-pitch)) (((class color) (background light)) (:foreground "brown3" :bold t :height 1.2 :inherit variable-pitch)) (t (:weight bold :inherit variable-pitch))) "Face for AsciiSisu titles at level 1." :group 'sisu-faces) (defface sisu-title-2-face `((((class color) (background dark)) (:foreground "yellow4" :bold t :height 1.1 :inherit variable-pitch)) (((class color) (background light)) (:foreground "yellow4" :bold t :height 1.1 :inherit variable-pitch)) (t (:weight bold :inherit variable-pitch))) "Face for AsciiSisu titles at level 2." :group 'sisu-faces) (defface sisu-title-3-face `((((class color) (background dark)) (:foreground "sienna3" :bold t)) (((class color) (background light)) (:foreground "sienna3" :bold t)) (t (:weight bold))) "Face for AsciiSisu titles at level 3." :group 'sisu-faces) (defface sisu-title-4-face `((((class color) (background dark)) (:foreground "burlywood3")) (((class color) (background light)) (:foreground "burlywood3")) (t ())) "Face for AsciiSisu titles at level 4." :group 'sisu-faces) (defface info-node '((((class color) (background light)) (:foreground "brown" :bold t :italic t)) (((class color) (background dark)) (:foreground "white" :bold t :italic t)) (t (:bold t :italic t))) "Face for Info node names." :group 'sisu-faces) (defvar sisu-title-1 'sisu-title-1-face) (defvar sisu-title-2 'sisu-title-2-face) (defvar sisu-title-3 'sisu-title-3-face) (defvar sisu-title-4 'sisu-title-4-face) (defvar general-font-lock-red1 font-lock-warning-face) (defvar general-font-lock-red2 font-lock-comment-face) (defvar general-font-lock-red3 font-lock-string-face) (defvar general-font-lock-green1 font-lock-type-face) (defvar general-font-lock-green2 font-lock-constant-face) (defvar general-font-lock-blue1 font-lock-keyword-face) (defvar general-font-lock-blue2 font-lock-function-name-face) (defvar general-font-lock-blue3 font-lock-builtin-face) (defvar general-font-lock-yellow1 font-lock-variable-name-face) (defvar general-font-lock-yellow2 font-lock-comment-face) ;; == sisu-mode settings (defvar sisu-mode-hook nil "Normal hook run when entering Sisu Text mode.") (defvar sisu-mode-abbrev-table nil "Abbrev table in use in Sisu-mode buffers.") (define-abbrev-table 'sisu-mode-abbrev-table ()) (defconst sisu-font-lock-keywords (eval-when-compile (list ;;grouped text --------- ;(cons "^```[ ]code\\(.\\|\n\\)+?\n```\n" 'general-font-lock-red2) (cons "^```[ ]+code.*?$\\|^```$" 'general-font-lock-red2) (cons "^```[ ]+table.*?$\\|^```$" 'general-font-lock-red2) (cons "^```[ ]+group$\\|^```$" 'general-font-lock-red2) (cons "^```[ ]+block$\\|^```$" 'general-font-lock-red2) (cons "^```[ ]+poem$\\|^```$" 'general-font-lock-red2) (cons "^```[ ]+alt$\\|^```$" 'general-font-lock-red2) ;;grouped text --------- (cons "^group\{\\|^\}group" 'general-font-lock-red2) (cons "^block\{\\|^\}block" 'general-font-lock-red2) (cons "^code\{\\|^\}code" 'general-font-lock-red2) (cons "^poem\{\\|^\}poem" 'general-font-lock-red2) (cons "^alt\{\\|^\}alt" 'general-font-lock-red2) (cons "^table\{.+\\|^\}table" 'general-font-lock-red2) (cons "^\{table[^}]+\}" 'general-font-lock-red2) (list (concat "^\`\\{3\\}[ ]+code.*?$" "\\(.\\|\n\\)+?" "\`\\{3\\}$" ) '(1 general-font-lock-red2 t) '(2 nil t) '(3 general-font-lock-red2 t) ) (list (concat "^\`\\{3\\}[ ]+table.*?$" "\\(.\\|\n\\)+?" "\`\\{3\\}$" ) '(1 general-font-lock-red2 t) '(2 nil t) '(3 general-font-lock-red2 t) ) (list (concat "^\`\\{3\\}[ ]+\\(group\\|block\\|alt\\|poem\\)$" "\\(.\\|\n\\)+?" "^\`\\{3\\}$" ) '(1 general-font-lock-red2 t) '(2 nil t) '(3 general-font-lock-red2 t) ) ;; footnote/endnote ---- ;(cons "\~\{.+?\}\~" 'general-font-lock-green1) (cons "\~\{\\*\\*\\|\~\{\\*\\|\~\{\\|\}\~" 'general-font-lock-red2) (cons "\~\\[\\+\\|\~\\[\\*\\|\~\\[\\|\\]\~" 'general-font-lock-red2) (cons "\~\\^ \\|^\\^\~ " 'general-font-lock-red2) (list (concat "\\(\*\~\\)" "\\([^ \r\t\n]+\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-blue2 t) ) ;; emphasis (can be program configured to be bold italics or underscore) (list (concat "\\([*]\{\\)" "\\([^\}]+\\)" "\\(\}[*]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; bold ---------------- (list (concat "\\([!]\{\\)" "\\([^\}]+\\)" "\\(\}[!]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) (cons "\\*[^ ]+\\*" 'general-font-lock-red1) (cons "^!_ .+" 'general-font-lock-red1) ;; italics ------------- (list (concat "\\([/]\{\\)" "\\([^\}]+\\)" "\\(\}[/]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-blue1 t) '(3 general-font-lock-red1 t) ) ;; underscore ---------- (list (concat "\\([_]\{\\)" "\\([^\}]+\\)" "\\(\}[_]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; monospace ----------- (list (concat "\\([#]\{\\)" "\\([^\}]+\\)" "\\(\}[#]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; citation ------------ (list (concat "\\([\"]\{\\)" "\\([^\}]+\\)" "\\(\}[\"]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; inserted text ------- (list (concat "\\([\+]\{\\)" "\\([^\}]+\\)" "\\(\}[\+]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; strike through ------ (list (concat "\\(\\-\{\\)" "\\([^\}]+\\)" "\\(\}\\-\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; superscript --------- (list (concat "\\(\\^\{\\)" "\\([^\}]+\\)" "\\(\}\\^\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; subscript ----------- (list (concat "\\([,]\{\\)" "\\([^\}]+\\)" "\\(\}[,]\\)" ) '(1 general-font-lock-red1 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-red1 t) ) ;; numbered list (cons "^# \\|^_# " 'general-font-lock-red1) ;; bullet text (cons "^_\\*[1-9] \\|^_\\* " 'general-font-lock-red1) ;; indented text (cons "^_[1-9] " 'general-font-lock-red1) (cons "^_[1-9]! " 'general-font-lock-red1) ;; hanging indented text [proposed enable when implemented] (cons "^__[1-9] " 'general-font-lock-red1) (cons "^_[0-9]_[0-9] " 'general-font-lock-red1) (cons "^__[1-9]! " 'general-font-lock-red1) (cons "^_[0-9]_[0-9]! " 'general-font-lock-red1) ;; url (cons "\\(^\\|[ ]\\)http:[/][/][^ \t\n\r<]+" 'general-font-lock-blue2) ;; Comment Lines (cons "^% .*" 'general-font-lock-blue1) ;; page break (cons "^\\(-\\\\\\\\-\\|=\\\\\\\\=\\|-\\.\\.-\\)" 'general-font-lock-red2) ;; line break (cons " \\\\\\\\ " 'general-font-lock-red1) ;; line break (depreciated) (cons "
" 'general-font-lock-red1) ;; Section titles (list "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\)\\(.*\\)" '(1 sisu-title-1 t) '(3 sisu-title-2 t) ) ;; hyper-links (list (concat "\\(\{~^\\|\{\\)" "\\([^\}\{]+\\)" "\\(\}http:[/][/][^ \r\n\t<]+\\)" ) '(1 general-font-lock-blue2 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-blue2 t) ) ;; book index (list (concat "^\\(\=\{\\)" "\\([^\}\{]+\\)" "\\(}\\)$" ) '(1 general-font-lock-green1 t) '(2 nil t) '(3 general-font-lock-green1 t) ) ;(cons "^\=\{.+\}" 'general-font-lock-green1) ;; numbers (cons "\\<[.0-9]+\\>" 'general-font-lock-green2) ;; bullets sisu_normal (nearly copied regexp) (cons "^_\\([1-9*]\\|[1-9]\\*\\) " 'general-font-lock-blue2) ;; image links (list (concat "\\(\{\\)" "\\([^\}\{]+\\)" "\\(\}image\\)" ) '(1 general-font-lock-blue2 t) '(2 general-font-lock-red1 t) '(3 general-font-lock-blue2 t) ) ;; insert file links (list (concat "\\(<< \\)" "\\([^ \r\t\n]+\\.ss\\)" "\\(i\\|t\\)" ) '(1 general-font-lock-blue2 t) '(2 general-font-lock-blue2 t) '(3 general-font-lock-blue2 t) ) ;; raw keywords (list (concat "^\\(\\@\\(" "creator\\|" "title\\|" "date\\|" "rights\\|" "publisher\\|" "classify\\|" "identifier\\|" "original\\|" "notes\\|" "links\\|" "make\\|" "\\):\\)\\(.*\\)" ) '(1 sisu-title-2 keep) '(3 sisu-title-3 keep) ) ) ) "Default expressions to highlight in AsciiSisu mode." ) ;; enables outlining for sisu (add-hook 'sisu-mode-hook '(lambda () (outline-minor-mode))) ;;; outline mode "folding" if available ;;; TODO make sure linum (line numbering) is off, else performance penalty, sucks bigtime ;(define-key evil-normal-state-map (kbd ",0") (lambda() (interactive) (show-all))) ;(define-key evil-normal-state-map (kbd ",-") (lambda() (interactive) (hide-body))) ;(define-key evil-normal-state-map (kbd ",+") (lambda() (interactive) (show-subtree))) ;(define-key evil-normal-state-map (kbd ",=") (lambda() (interactive) (show-subtree))) ; ;;(define-key evil-normal-state-map ",0" 'show-all) ;;(define-key evil-normal-state-map ",-" 'hide-body) ;;(define-key evil-normal-state-map ",+" 'show-subtree) ;;(define-key evil-normal-state-map ",=" 'show-subtree) ;; C-c @ C-a show all ;; C-c @ C-t show only the headings ;; C-c @ C-s show subtree at cursor location ;; C-c @ C-d hide subtree at cursor location ;; Sisu & Autoload: (define-derived-mode sisu-mode text-mode "SiSU" "Major mode for editing SiSU files." (interactive) (modify-syntax-entry ?\' ".") ;(flyspell-mode nil) (make-local-variable 'paragraph-start) (setq paragraph-start (concat "$\\|>" page-delimiter)) (make-local-variable 'paragraph-separate) (setq paragraph-separate paragraph-start) (make-local-variable 'paragraph-ignore-fill-prefix) (setq paragraph-ignore-fill-prefix t) (set (make-local-variable 'outline-regexp) "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)") (make-local-variable 'require-final-newline) (setq require-final-newline t) (make-local-variable 'font-lock-defaults) (setq font-lock-defaults '(sisu-font-lock-keywords nil ; KEYWORDS-ONLY: no nil ; CASE-FOLD: no ((?_ . "w")) ; SYNTAX-ALIST )) (run-hooks 'sisu-mode-hook)) ;; ##autoload (add-to-list 'auto-mode-alist '("\\.sst\\'" . sisu-mode)) (add-to-list 'auto-mode-alist '("\\.ssm\\'" . sisu-mode)) (add-to-list 'auto-mode-alist '("\\.ssi\\'" . sisu-mode)) ;;;; ChangeLog: ;; 2011-07-12 Chong Yidong ;; ;; Fix version numbers of sisu-mode, register-list, and windresize. ;; ;; 2011-07-08 Chong Yidong ;; ;; sisu-mode.el: Add .sisu to auto-mode-alist using autoload cookie. ;; Minor doc fixes. ;; ;; 2011-07-06 Stefan Monnier ;; ;; * sisu-mode.el (sisu-mode): Autoload. ;; ;; 2011-07-04 Stefan Monnier ;; ;; Add sisu-mode.el. Update all.el licence. ;; (provide 'sisu-mode) --17pEHd4RhPHOinZp Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="sisu-mode-autoloads.el" (add-to-list 'load-path (or (file-name-directory #$) (car load-path))) (autoload 'sisu-mode "sisu-mode" "\ Major mode for editing SiSU markup files. SiSU (http://www.sisudoc.org/) document structuring, publishing and search. \(fn)" t nil) (add-to-list 'auto-mode-alist '("\\.sst\\'" . sisu-mode)) (add-to-list 'auto-mode-alist '("\\.ssm\\'" . sisu-mode)) (add-to-list 'auto-mode-alist '("\\.ssi\\'" . sisu-mode)) --17pEHd4RhPHOinZp--