![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to nroff-mode.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / lisp|
Return to nroff-mode.el CVS log | Up to [Apple XNU] / GNUtools / emacs / lisp |
1.1 ! root 1: ;; GNU Emacs major mode for editing nroff source ! 2: ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. ! 3: ! 4: ;; This file is part of GNU Emacs. ! 5: ! 6: ;; GNU Emacs is free software; you can redistribute it and/or modify ! 7: ;; it under the terms of the GNU General Public License as published by ! 8: ;; the Free Software Foundation; either version 1, or (at your option) ! 9: ;; any later version. ! 10: ! 11: ;; GNU Emacs is distributed in the hope that it will be useful, ! 12: ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ! 13: ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! 14: ;; GNU General Public License for more details. ! 15: ! 16: ;; You should have received a copy of the GNU General Public License ! 17: ;; along with GNU Emacs; see the file COPYING. If not, write to ! 18: ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ! 19: ! 20: ! 21: ! 22: (defvar nroff-mode-abbrev-table nil ! 23: "Abbrev table used while in nroff mode.") ! 24: ! 25: (defvar nroff-mode-map nil ! 26: "Major mode keymap for nroff-mode buffers") ! 27: (if (not nroff-mode-map) ! 28: (progn ! 29: (setq nroff-mode-map (make-sparse-keymap)) ! 30: (define-key nroff-mode-map "\t" 'tab-to-tab-stop) ! 31: (define-key nroff-mode-map "\es" 'center-line) ! 32: (define-key nroff-mode-map "\e?" 'count-text-lines) ! 33: (define-key nroff-mode-map "\n" 'electric-nroff-newline) ! 34: (define-key nroff-mode-map "\en" 'forward-text-line) ! 35: (define-key nroff-mode-map "\ep" 'backward-text-line))) ! 36: ! 37: (defun nroff-mode () ! 38: "Major mode for editing text intended for nroff to format. ! 39: \\{nroff-mode-map} ! 40: Turning on Nroff mode runs text-mode-hook, then nroff-mode-hook. ! 41: Also, try nroff-electric-mode, for automatically inserting ! 42: closing requests for requests that are used in matched pairs." ! 43: (interactive) ! 44: (kill-all-local-variables) ! 45: (use-local-map nroff-mode-map) ! 46: (setq mode-name "Nroff") ! 47: (setq major-mode 'nroff-mode) ! 48: (set-syntax-table text-mode-syntax-table) ! 49: (setq local-abbrev-table nroff-mode-abbrev-table) ! 50: (make-local-variable 'nroff-electric-mode) ! 51: ;; now define a bunch of variables for use by commands in this mode ! 52: (make-local-variable 'page-delimiter) ! 53: (setq page-delimiter "^\\.\\(bp\\|SK\\|OP\\)") ! 54: (make-local-variable 'paragraph-start) ! 55: (setq paragraph-start (concat "^[.']\\|" paragraph-start)) ! 56: (make-local-variable 'paragraph-separate) ! 57: (setq paragraph-separate (concat "^[.']\\|" paragraph-separate)) ! 58: ;; comment syntax added by mit-erl!gildea 18 Apr 86 ! 59: (make-local-variable 'comment-start) ! 60: (setq comment-start "\\\" ") ! 61: (make-local-variable 'comment-start-skip) ! 62: (setq comment-start-skip "\\\\\"[ \t]*") ! 63: (make-local-variable 'comment-column) ! 64: (setq comment-column 24) ! 65: (make-local-variable 'comment-indent-hook) ! 66: (setq comment-indent-hook 'nroff-comment-indent) ! 67: (run-hooks 'text-mode-hook 'nroff-mode-hook)) ! 68: ! 69: ;;; Compute how much to indent a comment in nroff/troff source. ! 70: ;;; By mit-erl!gildea April 86 ! 71: (defun nroff-comment-indent () ! 72: "Compute indent for an nroff/troff comment. ! 73: Puts a full-stop before comments on a line by themselves." ! 74: (let ((pt (point))) ! 75: (unwind-protect ! 76: (progn ! 77: (skip-chars-backward " \t") ! 78: (if (bolp) ! 79: (progn ! 80: (setq pt (1+ pt)) ! 81: (insert ?.) ! 82: 1) ! 83: (if (save-excursion ! 84: (backward-char 1) ! 85: (looking-at "^[.']")) ! 86: 1 ! 87: (max comment-column ! 88: (* 8 (/ (+ (current-column) ! 89: 9) 8)))))) ; add 9 to ensure at least two blanks ! 90: (goto-char pt)))) ! 91: ! 92: (defun count-text-lines (start end &optional print) ! 93: "Count lines in region, except for nroff request lines. ! 94: All lines not starting with a period are counted up. ! 95: Interactively, print result in echo area. ! 96: Noninteractively, return number of non-request lines from START to END." ! 97: (interactive "r\np") ! 98: (if print ! 99: (message "Region has %d text lines" (count-text-lines start end)) ! 100: (save-excursion ! 101: (save-restriction ! 102: (narrow-to-region start end) ! 103: (goto-char (point-min)) ! 104: (- (buffer-size) (forward-text-line (buffer-size))))))) ! 105: ! 106: (defun forward-text-line (&optional cnt) ! 107: "Go forward one nroff text line, skipping lines of nroff requests. ! 108: An argument is a repeat count; if negative, move backward." ! 109: (interactive "p") ! 110: (if (not cnt) (setq cnt 1)) ! 111: (while (and (> cnt 0) (not (eobp))) ! 112: (forward-line 1) ! 113: (while (and (not (eobp)) (looking-at "[.'].")) ! 114: (forward-line 1)) ! 115: (setq cnt (- cnt 1))) ! 116: (while (and (< cnt 0) (not (bobp))) ! 117: (forward-line -1) ! 118: (while (and (not (bobp)) ! 119: (looking-at "[.'].")) ! 120: (forward-line -1)) ! 121: (setq cnt (+ cnt 1))) ! 122: cnt) ! 123: ! 124: (defun backward-text-line (&optional cnt) ! 125: "Go backward one nroff text line, skipping lines of nroff requests. ! 126: An argument is a repeat count; negative means move forward." ! 127: (interactive "p") ! 128: (forward-text-line (- cnt))) ! 129: ! 130: (defconst nroff-brace-table ! 131: '((".(b" . ".)b") ! 132: (".(l" . ".)l") ! 133: (".(q" . ".)q") ! 134: (".(c" . ".)c") ! 135: (".(x" . ".)x") ! 136: (".(z" . ".)z") ! 137: (".(d" . ".)d") ! 138: (".(f" . ".)f") ! 139: (".LG" . ".NL") ! 140: (".SM" . ".NL") ! 141: (".LD" . ".DE") ! 142: (".CD" . ".DE") ! 143: (".BD" . ".DE") ! 144: (".DS" . ".DE") ! 145: (".DF" . ".DE") ! 146: (".FS" . ".FE") ! 147: (".KS" . ".KE") ! 148: (".KF" . ".KE") ! 149: (".LB" . ".LE") ! 150: (".AL" . ".LE") ! 151: (".BL" . ".LE") ! 152: (".DL" . ".LE") ! 153: (".ML" . ".LE") ! 154: (".RL" . ".LE") ! 155: (".VL" . ".LE") ! 156: (".RS" . ".RE") ! 157: (".TS" . ".TE") ! 158: (".EQ" . ".EN") ! 159: (".PS" . ".PE") ! 160: (".BS" . ".BE") ! 161: (".G1" . ".G2") ; grap ! 162: (".na" . ".ad b") ! 163: (".nf" . ".fi") ! 164: (".de" . ".."))) ! 165: ! 166: (defun electric-nroff-newline (arg) ! 167: "Insert newline for nroff mode; special if electric-nroff mode. ! 168: In electric-nroff-mode, if ending a line containing an nroff opening request, ! 169: automatically inserts the matching closing request after point." ! 170: (interactive "P") ! 171: (let ((completion (save-excursion ! 172: (beginning-of-line) ! 173: (and (null arg) ! 174: nroff-electric-mode ! 175: (<= (point) (- (point-max) 3)) ! 176: (cdr (assoc (buffer-substring (point) ! 177: (+ 3 (point))) ! 178: nroff-brace-table))))) ! 179: (needs-nl (not (looking-at "[ \t]*$")))) ! 180: (if (null completion) ! 181: (newline (prefix-numeric-value arg)) ! 182: (save-excursion ! 183: (insert "\n\n" completion) ! 184: (if needs-nl (insert "\n"))) ! 185: (forward-char 1)))) ! 186: ! 187: (defun electric-nroff-mode (&optional arg) ! 188: "Toggle nroff-electric-newline minor mode ! 189: Nroff-electric-newline forces emacs to check for an nroff ! 190: request at the beginning of the line, and insert the ! 191: matching closing request if necessary. ! 192: This command toggles that mode (off->on, on->off), ! 193: with an argument, turns it on iff arg is positive, otherwise off." ! 194: (interactive "P") ! 195: (or (eq major-mode 'nroff-mode) (error "Must be in nroff mode")) ! 196: (or (assq 'nroff-electric-mode minor-mode-alist) ! 197: (setq minor-mode-alist (append minor-mode-alist ! 198: (list '(nroff-electric-mode ! 199: " Electric"))))) ! 200: (setq nroff-electric-mode ! 201: (cond ((null arg) (null nroff-electric-mode)) ! 202: (t (> (prefix-numeric-value arg) 0))))) ! 203:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.