I attached my slightly modified version.
On Wed, Sep 12, 2018 at 3:57 AM Tedd M. V. <tmv...@cryptolab.net> wrote:
> Hello people, I'm sorry if I'm really confused but I'm just starting to
> learn picolisp, reading the tutorial the 'emacs'-style, but at the very
> beggining I saw this:
>
>
> "If you prefer to use Emacs, please use the picolisp-mode bundled in the
> "el/" directory (that is "@lib/el" for a local installation, or some
> system dependent directory for a global installation)."
>
>
> I imply that somewhere in the installation a .el file for emacs (to be
> places on your folder .emacs.d and added to your .emacs) is present and
> that it's not the same 'emacs'-style mode. Am I correct? So, if I am, I
> installed picolisp in Ubuntu, where can I find that file? I used whereis
> in the terminal but nowhere in a "/lib/" folder is something .el. Could
> someone please help use this emacs mode please? I'm more used to emacs.
>
> If it does not come in the binary installation, where in the source code
> do I get it?
>
> Thanks for your time,
> Tedd M. V.
>
> --
> -----BEGIN GEEK CODE BLOCK-----
> Version: 3.12
> GAT d- s+:+ a? C++++ UL++++ P+ L+++ E+ W+++ N+ o-- K+ w
> O-- M- V- PS++ PE Y+ PGP++ t+ 5 X+ R tv- b+++ DI-- D+
> G++ e* h! r- z*
> ------END GEEK CODE BLOCK------
>
> GPG: 37219EA0D04C8D3C
> Keybase: tmv
> Ring: tmv
> Cryptocat: tmv
> Bitmessage: BM-2cSx4RVaXbRvWmPtRsdoW25f8wipSMVRAG
> Signal: Upon request | Bajo solicitación
>
>
>
;;;;;; picolisp-mode: Major mode to edit picoLisp.
;;;;;; Version: 1.1
;;; Copyright (c) 2009, Guillermo R. Palavecino
;; This file is NOT part of GNU emacs.
;;;; Credits:
;; It's based on GNU emacs' lisp-mode and scheme-mode.
;; Some bits were taken from paredit.el
;;
;;;; Contact:
;; For comments, bug reports, questions, etc, you can contact me via IRC
;; to the user named grpala (or armadillo) on irc.freenode.net in the
;; #picolisp channel or via email to the author's nickname at gmail.com
;;
;;;; License:
;; This work is released under the GPL 2 or (at your option) any later
;; version.
(require 'lisp-mode)
(defcustom picolisp-parsep t
"This is to toggle picolisp-mode's multi-line s-exps closing parens separation capability."
:type 'boolean
:group 'picolisp )
;; I know... this shouldn't be here, but you see, people may want to keep
;; their body-indent value unaltered and have a different one for picolisp
;; sources, so...
(defcustom picolisp-body-indent 3
"Number of columns to indent the second line of a `(de ...)' form."
:group 'picolisp
:type 'integer )
(defvar picolisp-mode-syntax-table
(let ((st (make-syntax-table))
(i 0) )
;; Default is atom-constituent.
(while (< i 256)
(modify-syntax-entry i "_ " st)
(setq i (1+ i)) )
;; Word components.
(setq i ?0)
(while (<= i ?9)
(modify-syntax-entry i "w " st)
(setq i (1+ i)) )
(setq i ?A)
(while (<= i ?Z)
(modify-syntax-entry i "w " st)
(setq i (1+ i)) )
(setq i ?a)
(while (<= i ?z)
(modify-syntax-entry i "w " st)
(setq i (1+ i)) )
;; Whitespace
(modify-syntax-entry ?\t " " st)
(modify-syntax-entry ?\n "> " st)
(modify-syntax-entry ?\f " " st)
(modify-syntax-entry ?\r " " st)
(modify-syntax-entry ?\s " " st)
;; These characters are delimiters but otherwise undefined.
;; Brackets and braces balance for editing convenience.
(modify-syntax-entry ?\[ "(] " st)
(modify-syntax-entry ?\] ")[ " st)
(modify-syntax-entry ?{ "(} " st)
(modify-syntax-entry ?} "){ " st)
;; Other atom delimiters
(modify-syntax-entry ?\( "() " st)
(modify-syntax-entry ?\) ")( " st)
;; It's used for single-line comments.
(modify-syntax-entry ?# "< " st)
(modify-syntax-entry ?\" "\" " st)
(modify-syntax-entry ?' "' " st)
(modify-syntax-entry ?` "' " st)
(modify-syntax-entry ?~ "' " st)
;; Special characters
(modify-syntax-entry ?, "' " st)
(modify-syntax-entry ?\\ "\\ " st)
st ) )
(defvar picolisp-mode-abbrev-table nil)
(define-abbrev-table 'picolisp-mode-abbrev-table ())
(defun picolisp-mode-variables ()
(set-syntax-table picolisp-mode-syntax-table)
;;(setq local-abbrev-table picolisp-mode-abbrev-table)
(make-local-variable 'paragraph-start)
(setq paragraph-start (concat "$\\|" page-delimiter))
;;(setq comint-input-ring-file-name "~/.pil_history")
(make-local-variable 'paragraph-separate)
(setq paragraph-separate paragraph-start)
(make-local-variable 'paragraph-ignore-fill-prefix)
(setq paragraph-ignore-fill-prefix t)
(make-local-variable 'fill-paragraph-function)
(setq fill-paragraph-function 'lisp-fill-paragraph)
;; Adaptive fill mode gets in the way of auto-fill,
;; and should make no difference for explicit fill
;; because lisp-fill-paragraph should do the job.
(make-local-variable 'adaptive-fill-mode)
(setq adaptive-fill-mode nil)
(make-local-variable 'normal-auto-fill-function)
(setq normal-auto-fill-function 'lisp-mode-auto-fill)
(make-local-variable 'indent-line-function)
(setq indent-line-function 'picolisp-indent-line)
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'comment-start)
(setq comment-start "#")
(set (make-local-variable 'comment-add) 1)
(make-local-variable 'comment-start-skip)
;; Look within the line for a # following an even number of backslashes
;; after either a non-backslash or the line beginning.
(setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\)#+[ \t]*"); ((^|[^\n])(\\\\)*)#+[ t]*
(set (make-local-variable 'font-lock-comment-start-skip) "#+ *")
(make-local-variable 'comment-column)
(setq comment-column 40)
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'lisp-indent-function)
(setq lisp-indent-function 'picolisp-indent-function)
;; This is just to avoid tabsize-variations fuck-up.
(make-local-variable 'indent-tabs-mode)
(setq mode-line-process '("" picolisp-mode-line-process))
(set (make-local-variable 'font-lock-defaults)
'((picolisp-font-lock-keywords
picolisp-font-lock-keywords-1
picolisp-font-lock-keywords-2 )
nil t (("+-*/.<>=!?$%_&~^:" . "w"))
beginning-of-defun
(font-lock-mark-block-function . mark-defun)
(font-lock-keywords-case-fold-search . nil)
(parse-sexp-lookup-properties . t)
(font-lock-extra-managed-props syntax-table) ) )
(set (make-local-variable 'lisp-doc-string-elt-property)
'picolisp-doc-string-elt ) )
(defvar picolisp-mode-line-process "")
(defvar picolisp-mode-map
(let ((map (make-sparse-keymap "Picolisp")))
(set-keymap-parent map lisp-mode-shared-map)
(define-key map [menu-bar picolisp] (cons "Picolisp" map))
(define-key map [run-picolisp] '("Run Inferior Picolisp" . run-picolisp))
(define-key map [uncomment-region]
'("Uncomment Out Region" . (lambda (beg end)
(interactive "r")
(comment-region beg end '(4)) ) ) )
(define-key map [comment-region] '("Comment Out Region" . comment-region))
(define-key map [indent-region] '("Indent Region" . indent-region))
(define-key map [indent-line] '("Indent Line" . picolisp-indent-line))
(define-key map "\t" 'picolisp-indent-line)
(put 'comment-region 'menu-enable 'mark-active)
(put 'uncomment-region 'menu-enable 'mark-active)
(put 'indent-region 'menu-enable 'mark-active)
map )
"Keymap for Picolisp mode.
All commands in `lisp-mode-shared-map' are inherited by this map." )
;;;###autoload
(defun picolisp-mode ()
"Major mode for editing Picolisp code.
Editing commands are similar to those of `lisp-mode'.
Commands:
Delete converts tabs to spaces as it moves back.
Blank lines separate paragraphs. Semicolons start comments.
\\{picolisp-mode-map}
Entry to this mode calls the value of `picolisp-mode-hook'
if that value is non-nil."
(interactive)
(remove-text-properties (point-min) (point-max) '(display ""))
(kill-all-local-variables)
(use-local-map picolisp-mode-map)
(setq major-mode 'picolisp-mode)
(setq mode-name "Picolisp")
(picolisp-mode-variables)
(run-mode-hooks 'picolisp-mode-hook)
(defun paredit-delete-leading-whitespace ()
(picolisp-delete-leading-whitespace) ) )
(autoload 'run-picolisp "inferior-picolisp"
"Run an inferior Picolisp process, input and output via buffer `*picolisp*'.
If there is a process already running in `*picolisp*', switch to that buffer.
With argument, allows you to edit the command line (default is value
of `picolisp-program-name').
Runs the hook `inferior-picolisp-mode-hook' \(after the `comint-mode-hook'
is run).
\(Type \\[describe-mode] in the process buffer for a list of commands.)"
t )
(defgroup picolisp nil
"Editing Picolisp code."
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
:group 'lisp )
(defcustom picolisp-mode-hook nil
"Normal hook run when entering `picolisp-mode'.
See `run-hooks'."
:type 'hook
:group 'picolisp )
(defconst picolisp-font-lock-keywords-1
(eval-when-compile
(list
;;
;; Declarations.
(list
(concat "(" (regexp-opt '("be" "de" "dm" "set" "setq") t) "\\>"
;; Any whitespace and declared object.
"[ \t]*(?"
"\\(\\sw+\\)?" )
'(1 font-lock-keyword-face)
'(2 (cond ((match-beginning 0) font-lock-function-name-face)
((match-beginning 3) font-lock-variable-name-face)
(t font-lock-type-face) )
nil t ) )
(list (concat "[( \t]'?"
(regexp-opt '("NIL" "T") t)
"[ )\n\t]" )
'(1 font-lock-constant-face) )
(list
(concat "[( ]"
(regexp-opt '("*OS" "*DB" "*Solo" "*PPid" "*Pid" "@" "@@" "@@@"
"This" "*Dbg" "*Zap" "*Scl" "*Class" "*Dbs" "*Run"
"*Hup" "*Sig1" "*Sig2" "^" "*Err" "*Msg" "*Uni"
"*Led" "*Adr" "*Allow" "*Fork" "*Bye" ) t )
"[ )\n\t]" )
'(1 font-lock-builtin-face) )
;; This is so we make the point used in conses more visible
'("[ \t]\\(\\.\\)[ \t)]" (1 font-lock-negation-char-face))
'("(\\(====\\)\\>" (1 font-lock-negation-char-face)) ) )
"Subdued expressions to highlight in Picolisp modes." )
(defconst picolisp-font-lock-keywords-2
(append picolisp-font-lock-keywords-1
(eval-when-compile
(list
;;
;; Control structures.
(cons
(concat
"(" (regexp-opt
'( ;; Symbol Functions
"new" "sym" "str" "char" "circ?" "name" "sp?" "pat?" "fun?" "all"
"intern" "extern" "qsym" "loc" "box?" "str?" "ext?"
"touch" "zap" "length" "size" "format" "chop" "pack"
"glue" "pad" "align" "center" "text" "wrap" "pre?" "sub?"
"low?" "upp?" "lowc" "uppc" "fold" "val" "getd" "set"
"setq" "def" "de" "dm" "recur" "undef" "redef" "daemon"
"patch" "xchg" "on" "off" "onOff" "zero" "one" "default"
"expr" "subr" "let" "let?" "use" "accu" "push" "push1"
"pop" "cut" "del" "queue" "fifo" "idx" "lup" "cache"
"locale" "dirname"
;; Property Access
"put" "get" "prop" ";" "=:" ":" "::" "putl" "getl" "wipe"
"meta"
;; Predicates
"atom" "pair" "lst?" "num?" "sym?" "flg?" "sp?" "pat?"
"fun?" "box?" "str?" "ext?" "bool" "not" "==" "n==" "="
"<>" "=0" "=T" "n0" "nT" "<" "<=" ">" ">=" "match"
;; Arithmetics
"+" "-" "*" "/" "%" "*/" "**" "inc" "dec" ">>" "lt0"
"ge0" "gt0" "abs" "bit?" "&" "|" "x|" "sqrt" "seed"
"rand" "max" "min" "length" "size" "accu" "format" "pad"
"oct" "hex" "fmt64" "money"
;; List Processing
"car" "cdr" "caar" "cadr" "cdar" "cddr" "caaar" "caadr"
"cadar" "caddr" "cdaar" "cdadr" "cddar" "cdddr" "cadddr"
"cddddr" "nth" "con" "cons" "conc" "circ" "rot" "list"
"need" "full" "make" "made" "chain" "link" "yoke" "copy"
"mix" "append" "delete" "delq" "replace" "insert"
"remove" "place" "strip" "split" "reverse" "flip" "trim"
"clip" "head" "tail" "stem" "fin" "last" "member" "memq"
"mmeq" "sect" "diff" "index" "offset" "assoc" "asoq"
"rank" "sort" "uniq" "group" "length" "size" "val" "set"
"xchg" "push" "push1" "pop" "cut" "queue" "fifo" "idx"
"balance" "get" "fill" "apply" "range" "group"
;; Control Flow
"load" "args" "next" "arg" "rest" "pass" "quote" "as"
"pid" "lit" "eval" "run" "macro" "curry" "def" "de" "dm"
"recur" "recurse" "undef" "box" "new" "type" "isa"
"method" "meth" "send" "try" "super" "extra" "with"
"bind" "job" "let" "let?" "use" "and" "or" "nand" "nor"
"xor" "bool" "not" "nil" "t" "prog" "prog1" "prog2" "if"
"if2" "ifn" "when" "unless" "cond" "nond" "case" "state"
"while" "until" "loop" "do" "at" "for" "catch" "throw"
"finally" "!" "e" "$" "sys" "call" "tick" "ipid" "opid"
"kill" "quit" "task" "fork" "pipe" "later" "timeout"
"abort" "bye"
;; Mapping
"apply" "pass" "maps" "map" "mapc" "maplist" "mapcar"
"mapcon" "mapcan" "filter" "extract" "seek" "find" "pick"
"cnt" "sum" "maxi" "mini" "fish" "by"
;; Input/Output
"path" "in" "ipid" "out" "opid" "pipe" "ctl" "any" "sym"
"str" "load" "hear" "tell" "key" "poll" "peek" "char"
"skip" "eol" "eof" "from" "till" "line" "format" "scl"
"read" "print" "println" "printsp" "prin" "prinl" "msg"
"space" "beep" "tab" "flush" "rewind" "rd" "pr" "wr"
"rpc" "wait" "sync" "echo" "info" "file" "dir" "lines"
"open" "close" "port" "listen" "accept" "host" "connect"
"nagle" "udp" "script" "once" "rc" "pretty" "pp" "show"
"view" "here" "prEval" "mail"
;; Object Orientation
"*Class" "class" "dm" "rel" "var" "var:" "new" "type"
"isa" "method" "meth" "send" "try" "object" "extend"
"super" "extra" "with" "This" "can" "dep" "symbols" "local"
;; Database
"pool" "journal" "id" "seq" "lieu" "lock" "begin"
"commit" "rollback" "mark" "free" "dbck" "rel" "dbs"
"dbs+" "db:" "fmt64" "tree" "root" "fetch" "store"
"count" "leaf" "minKey" "maxKey" "genKey" "useKey" "init"
"step" "scan" "iter" "prune" "zapTree" "chkTree" "db" "request"
"aux" "collect" "update" "solve" "select"
;; Pilog
"goal" "prove" "->" "unify" "?"
;; Debugging
"pretty" "pp" "show" "loc" "debug" "vi" "ld" "trace"
"lint" "lintAll" "fmt64"
;; System Functions
"cmd" "argv" "opt" "gc" "raw" "alarm" "protect" "heap"
"env" "up" "date" "time" "usec" "stamp" "dat$" "$dat"
"datSym" "datStr" "strDat" "expDat" "day" "week" "ultimo"
"tim$" "$tim" "telStr" "expTel" "locale" "allowed"
"allow" "pwd" "cd" "chdir" "ctty" "info" "dir" "dirname"
"call" "tick" "kill" "quit" "task" "fork" "pipe"
"timeout" "mail" "test" "bye" ) t )
"\\>" ) 1 ) ) ) )
"Gaudy expressions to highlight in Picolisp modes." )
(defvar picolisp-font-lock-keywords picolisp-font-lock-keywords-1
"Default expressions to highlight in Picolisp modes." )
(defconst picolisp-sexp-comment-syntax-table
(let ((st (make-syntax-table picolisp-mode-syntax-table)))
(modify-syntax-entry ?\n " " st)
(modify-syntax-entry ?# "." st)
st ) )
(put 'lambda 'picolisp-doc-string-elt 2)
;; Docstring's pos in a `define' depends on whether it's a var or fun def.
(put 'define 'picolisp-doc-string-elt
(lambda ()
;; The function is called with point right after "define".
(forward-comment (point-max))
(if (eq (char-after) ?\() 2 0) ) )
;; Copied from lisp-indent-line,
;; because Picolisp doesn't care about how many comment chars you use.
(defun picolisp-indent-line (&optional whole-exp)
"Indent current line as Picolisp code.
With argument, indent any additional lines of the same expression
rigidly along with this one."
(interactive "P")
(let ((indent (calculate-lisp-indent)) shift-amt end
(pos (- (point-max) (point)))
(beg (progn (beginning-of-line) (point))) )
(skip-chars-forward " \t")
(if (or (null indent) (looking-at "\\s<\\s<\\s<"))
;; Don't alter indentation of a ;;; comment line
;; or a line that starts in a string.
(goto-char (- (point-max) pos))
(if (listp indent) (setq indent (car indent)))
(setq shift-amt (- indent (current-column)))
(if (zerop shift-amt)
nil
(delete-region beg (point))
(indent-to indent) ) )
;; If initial point was within line's indentation,
;; position after the indentation. Else stay at same point in text.
(if (> (- (point-max) pos) (point))
(goto-char (- (point-max) pos)) )
;; If desired, shift remaining lines of expression the same amount.
(and whole-exp (not (zerop shift-amt))
(save-excursion
(goto-char beg)
(forward-sexp 1)
(setq end (point))
(goto-char beg)
(forward-line 1)
(setq beg (point))
(> end beg) )
(indent-code-rigidly beg end shift-amt) ) ) )
(defvar calculate-lisp-indent-last-sexp)
;; Copied from lisp-indent-function, but with gets of
;; picolisp-indent-{function,hook}, and minor modifications.
(defun picolisp-indent-function (indent-point state)
(picolisp-parensep)
(let ((normal-indent (current-column)))
(goto-char (1+ (elt state 1)))
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
(if (and (elt state 2)
(not (looking-at "\"?\\sw\\|\\s_")) )
;; car of form doesn't seem to be a symbol
(progn
(if (not (> (save-excursion (forward-line 1) (point))
calculate-lisp-indent-last-sexp ) )
(progn (goto-char calculate-lisp-indent-last-sexp)
(beginning-of-line)
(parse-partial-sexp (point)
calculate-lisp-indent-last-sexp 0 t ) ) )
;; Indent under the list or under the first sexp on the same
;; line as calculate-lisp-indent-last-sexp. Note that first
;; thing on that line has to be complete sexp since we are
;; inside the innermost containing sexp.
(backward-prefix-chars)
(current-column) )
(let* ((function (buffer-substring (point)
(progn (forward-sexp 1) (point)) ) )
(method (or (get (intern-soft function) 'picolisp-indent-function)
(get (intern-soft function) 'picolisp-indent-hook)
;;(and picolisp-indent-style 'picolisp-indent-defform)
'picolisp-indent ) ) )
(if (integerp method)
(lisp-indent-specform method state indent-point normal-indent)
(funcall method state indent-point normal-indent) ) ) ) ) )
;;; Some functions are different in picoLisp
(defun picolisp-indent (state indent-point normal-indent)
(let ((lisp-body-indent picolisp-body-indent))
(lisp-indent-defform state indent-point) ) )
;;; This is to space closing parens when they close a previous line.
(defun picolisp-parensep ()
(save-excursion
(condition-case nil ; This is to avoid fuck-ups when there are
(progn ; unbalanced expressions.
(up-list)
(back-to-indentation)
(while (and (re-search-forward ")" (line-end-position) t)
(< (point) (line-end-position)) )
(if (and (not (picolisp-in-comment-p))
(not (picolisp-in-string-p)) )
(picolisp-delete-leading-whitespace) ) )
(if (and (not (picolisp-in-comment-p))
(not (picolisp-in-string-p)) )
(picolisp-delete-leading-whitespace) ) )
(error nil) ) ) )
(defun picolisp-delete-leading-whitespace ()
;; This assumes that we're on the closing delimiter already.
(save-excursion
(backward-char)
(while (let ((syn (char-syntax (char-before))))
(and (or (eq syn ?\ ) (eq syn ?-)) ; whitespace syntax
;; The above line is a perfect example of why the
;; following test is necessary.
(not (picolisp-in-char-p (1- (point)))) ) )
(backward-delete-char 1) ) )
(when (and (equal 'picolisp-mode major-mode) ; We don't want to screw-up
; the formatting of other buffers making
; use of paredit, do we?
(not (picolisp-in-string-p)) )
(let ((another-line? (save-excursion
(backward-sexp)
(line-number-at-pos) ) ) )
(if (< another-line? (line-number-at-pos))
(save-excursion
(backward-char)
(when picolisp-parsep
(insert " ") ) ) ) ) ) )
(defun picolisp-current-parse-state ()
"Return parse state of point from beginning of defun."
(let ((point (point)))
(beginning-of-defun)
;; Calling PARSE-PARTIAL-SEXP will advance the point to its second
;; argument (unless parsing stops due to an error, but we assume it
;; won't in picolisp-mode).
(parse-partial-sexp (point) point) ) )
(defun picolisp-in-string-p (&optional state)
"True if the parse state is within a double-quote-delimited string.
If no parse state is supplied, compute one from the beginning of the
defun to the point."
;; 3. non-nil if inside a string (the terminator character, really)
(and (nth 3 (or state (picolisp-current-parse-state)))
t ) )
(defun picolisp-in-comment-p (&optional state)
"True if parse state STATE is within a comment.
If no parse state is supplied, compute one from the beginning of the
defun to the point."
;; 4. nil if outside a comment, t if inside a non-nestable comment,
;; else an integer (the current comment nesting)
(and (nth 4 (or state (picolisp-current-parse-state)))
t ) )
(defun picolisp-in-char-p (&optional argument)
"True if the point is immediately after a character literal.
A preceding escape character, not preceded by another escape character,
is considered a character literal prefix. (This works for elisp,
Common Lisp, and Scheme.)
Assumes that `picolisp-in-string-p' is false, so that it need not handle
long sequences of preceding backslashes in string escapes. (This
assumes some other leading character token -- ? in elisp, # in Scheme
and Common Lisp.)"
(let ((argument (or argument (point))))
(and (eq (char-before argument) ?\\)
(not (eq (char-before (1- argument)) ?\\)) ) ) )
(add-to-list 'auto-mode-alist '("\\.l$" . picolisp-mode))
(require 'tsm)
(ignore-errors
(when tsm-lock
(font-lock-add-keywords 'picolisp-mode tsm-lock)
(font-lock-add-keywords 'inferior-picolisp-mode tsm-lock) ) )
(provide 'picolisp)
