/usr/share/texmacs/TeXmacs/progs/tm-mode.el is in texmacs-common 1:1.0.7.18-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE : tm-mode.el
;; DESCRIPTION : for editing TeXmacs scheme files with Emacs
;; COPYRIGHT : (C) 2002 Joris van der Hoeven, David Allouche
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Define lists of special keywords
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq nullary-keywords
'(begin cond else
values define-preferences menu-dynamic conserve-focus
case-lambda kbd-map kbd-wildcards kbd-commands kbd-symbols
define-grammar define-regexp-grammar
drd-rule logic-rules assume texmacs-modes
user-delayed delayed on-entry on-exit widget-delayed
association-tile bar concat dense-bar dense-tile document
header-bar sequence short-bar short-tile minibar
wrap-selection-any wrap-selection-small
try-modification
tabs icon-tabs padded centered aligned bottom-buttons scrollable
hlist vlist hsplit vsplit
$begin $cond))
(setq nullary-no-highlight
'(:use :inherit
$tmdoc $tmdoc-title
$para $itemize $enumerate
$description $description-aligned $description-long
$tm-fragment))
(setq nullary-indent
(append nullary-keywords nullary-no-highlight))
(setq unary-keywords
'(let let* lambda
with-result and-let* setup-append-if
while for repeat when unless assuming mini tile
plugin-configure
define-preference-names
with-focus-after
logic-group logic-table logic-dispatcher
with-aux with-action with-module with-cursor with-server
user-ask
tab icon-tab form item meti
$when $let $let* $for
tmfs-load-handler tmfs-save-handler
tmfs-title-handler tmfs-permission-handler
tmfs-master-handler tmfs-format-handler))
(setq unary-definitions
'(define define-public define-macro define-public-macro
texmacs-module provide-public define-group
tm-define tm-define-macro tm-property request-handler
tm-menu define-menu tm-widget define-widget tm-generate
tm-build tm-build-macro tm-build-widget
menu-bind define-table extend-table
tm-service tm-call-back
define-format define-language define-graphics))
(setq unary-no-highlight
'(format interactive
$describe-item $link $tmdoc-link
$folded-documentation $unfolded-documentation $explain))
(setq unary-indent
(append unary-keywords unary-definitions unary-no-highlight))
(setq binary-keywords
'(with with-define with-global and-with with-innermost receive
with-environment with-environment* converter
user-confirm user-url
resize
$with))
(setq binary-indent
binary-keywords)
(setq ternary-keywords
'(ahash-with canvas-input))
(setq ternary-indent
ternary-keywords)
(setq other-keywords
'(for if inherit former
define-secure-symbols map-in-order link promise
plugin-input-converters use-modules export import-from inherit-modules
lazy-menu lazy-keyboard lazy-define lazy-initialize
lazy-format lazy-language lazy-input-converter lazy-tmfs-handler
$if))
(setq highlight-definitions
unary-definitions)
(setq highlight-keywords
(append nullary-keywords unary-keywords unary-definitions
binary-keywords ternary-keywords other-keywords))
(setq highlight-any
(append highlight-definitions highlight-keywords))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Define TeXmacs style
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'scheme-mode-hook '(lambda () (texmacs-style)))
(defun texmacs-style ()
(set-fill-column 79)
(setq comment-column 40)
(auto-fill-mode 1)
(font-lock-add-keywords 'scheme-mode
(list
(cons
(concat "\\<\\("
(mapconcat 'symbol-name highlight-keywords "\\|") "\\)\\>")
'font-lock-keyword-face)
(cons
(concat "(\\("
(mapconcat 'symbol-name highlight-definitions "\\|")
"\\)\\>[ ]*\\((?\\)\\(\\sw+\\)\\>")
'(3 font-lock-function-name-face))
(cons
(concat "(\\("
(mapconcat 'symbol-name
'(converter) "\\|")
"\\)\\>[ ]*\\((?\\)\\(\\sw+ \\sw+\\)\\>")
'(3 font-lock-function-name-face))
'("\\<\\(\\sw+%\\)\\>" . font-lock-type-face)))
(dolist (s ternary-indent)
(put s 'scheme-indent-function 3))
(dolist (s binary-indent)
(put s 'scheme-indent-function 2))
(dolist (s unary-indent)
(put s 'scheme-indent-function 1))
(dolist (s nullary-indent)
(put s 'scheme-indent-function 0)))
|