;ELC ;;; compiled by amu@mit.edu on Tue Dec 17 21:38:06 1996 ;;; from file /afs/athena.mit.edu/user/a/m/amu/elisp/html-helper-mode.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`html-helper-mode.el' was compiled for Emacs 19.29 or later")) (byte-code "O\fB" ["$Revision: 2.19 $" 11 15 html-helper-mode-version current-load-list] 3) #@42 *The default author string of each file. (defvar html-helper-address-string "" (#$ . -591)) #@43 *If not nil, then use the full HTML menu. (defvar html-helper-use-expert-menu nil (#$ . -689)) #@69 *If not nil, then modify `local-write-file-hooks' to do timestamps. (defvar html-helper-do-write-file-hooks t (#$ . -790)) #@76 *If not nil, then insert `html-helper-new-buffer-strings' for new buffers. (defvar html-helper-build-new-buffer t (#$ . -919)) #@36 *Version of HTML DTD you're using. (defvar html-helper-htmldtd-version "\n" (#$ . -1052)) #@251 *Extra items to put in the HTML expert menu. The value of this symbol is appended to the beginning of the expert menu that is handed off to easymenu for definition. It should be a list of vectors or lists which themselves are vectors (for submenus). (defvar html-helper-user-menu nil (#$ . -1197)) #@51 *Basic indentation size used for list indentation (defvar html-helper-basic-offset 2 (#$ . -1501)) #@107 *Indentation of lines that follow a
  • item. Default is 4, the length of things like "
  • " and "
    ". (defvar html-helper-item-continue-indent 4 (#$ . -1607)) #@66 *If not nil, the indentation code for html-helper is turned off. (defvar html-helper-never-indent nil (#$ . -1776)) #@45 *Hook run when html-helper-mode is started. (defvar html-helper-mode-hook nil (#$ . -1898)) #@44 *Hook run when html-helper-mode is loaded. (defvar html-helper-load-hook nil (#$ . -1996)) #@84 *Hook called for timestamp insertion. Override this for your own timestamp styles. (defvar html-helper-timestamp-hook (quote html-helper-default-insert-timestamp) (#$ . -2093)) #@126 *Template for new buffers. Inserted by `html-helper-insert-new-buffer-strings' if `html-helper-build-new-buffer' is set to t (defvar html-helper-new-buffer-template (quote (html-helper-htmldtd-version " \n" "" p "\n\n\n" "\n" "

    " p "

    \n\n" p "\n\n
    \n" "
    " html-helper-address-string "
    \n" html-helper-timestamp-start html-helper-timestamp-end "\n \n")) (#$ . -2277)) #@248 *Start delimiter for timestamps. Everything between `html-helper-timestamp-start' and `html-helper-timestamp-end' will be deleted and replaced with the output of the functions `html-helper-timestamp-hook' if `html-helper-do-write-file-hooks' is t (defvar html-helper-timestamp-start "\n" (#$ . -2732)) #@247 *End delimiter for timestamps. Everything between `html-helper-timestamp-start' and `html-helper-timestamp-end' will be deleted and replaced with the output of the function `html-helper-insert-timestamp' if `html-helper-do-write-file-hooks' is t (defvar html-helper-timestamp-end "" (#$ . -3061)) #@185 *List of tag types to install when html-helper-mode is first loaded. If you want to not install some type of tag, override this variable. Order is significant: menus go in this order. (defvar html-helper-types-to-install (quote (anchor list header logical phys textel entity image head form)) (#$ . -3383)) #@43 I'll do minimal emacs18 support, grumble. (defvar html-helper-emacs18 (byte-code "!!\n Ù" [boundp emacs-version epoch::version "19"] 2) (#$ . 3696)) (byte-code "!ď" [require tempo nil (byte-code "!" [require auc-menu] 2) ((error (byte-code "!" [require easymenu] 2)))] 3) #@31 Syntax table for html-helper. (defvar html-helper-mode-syntax-table nil (#$ . 4002)) (byte-code "&\n!#####" [html-helper-mode-syntax-table make-syntax-table text-mode-syntax-table modify-syntax-entry 60 "(> " 62 ")< " 34 ". " 92 39 "w "] 4) #@46 Abbrev table used while in html-helper-mode. (defvar html-helper-mode-abbrev-table nil (#$ . 4287)) (define-abbrev-table (quote html-helper-mode-abbrev-table) nil) #@24 Keymap for html-helper (defvar html-helper-mode-map (make-sparse-keymap) (#$ . 4457)) #@75 Menu for html-helper. Clobbered and rebuilt by `html-helper-install-menu' (defvar html-helper-mode-menu nil (#$ . 4549)) #@112 Alist: type of tag -> keymap, keybinding, menu, menu string. Add to this with `html-helper-add-type-to-alist'. (defconst html-helper-type-alist nil (#$ . 4677)) #@61 Accessor function for alist: for type, return keymap or nil (defalias 'html-helper-keymap-for #[(type) " @" [type html-helper-type-alist] 2 (#$ . 4844)]) #@65 Accessor function for alist: for type, return keybinding or nil (defalias 'html-helper-key-for #[(type) " A@" [type html-helper-type-alist] 2 (#$ . 5008)]) #@59 Accessor function for alist: for type, return menu or nil (defalias 'html-helper-menu-for #[(type) " \n8" [2 type html-helper-type-alist] 3 (#$ . 5174)]) #@65 Accessor function for alist: for type, return menustring or nil (defalias 'html-helper-menu-string-for #[(type) " \n8" [3 type html-helper-type-alist] 3 (#$ . 5338)]) #@74 Helper function for building menus from submenus: add on string to menu. (defalias 'html-helper-normalized-menu-for #[(type) " ! !!B" [html-helper-menu-string-for type eval html-helper-menu-for] 4 (#$ . 5515)]) #@139 Add a type specification to the alist. The spec goes (type . (keymap-symbol keyprefix menu-symbol menu-string)). See code for an example. (defalias 'html-helper-add-type-to-alist #[(type) " B" [type html-helper-type-alist] 2 (#$ . 5737)]) (mapcar (quote html-helper-add-type-to-alist) (quote ((entity nil nil html-helper-entity-menu "Insert Character Entities") (textel nil nil html-helper-textel-menu "Insert Text Elements") (head html-helper-head-map "" html-helper-head-menu "Insert Structural Elements") (header html-helper-header-map "" html-helper-header-menu "Insert Headers") (anchor html-helper-anchor-map "" html-helper-anchor-menu "Insert Hyperlinks") (logical html-helper-logical-map "" html-helper-logical-menu "Insert Logical Styles") (phys html-helper-phys-map "" html-helper-phys-menu "Insert Physical Styles") (list html-helper-list-map "\f" html-helper-list-menu "Insert List Elements") (form html-helper-form-map "" html-helper-form-menu "Insert Form Elements") (image html-helper-image-map " " html-helper-image-menu "Insert Inlined Images")))) #@132 The types that have been installed (used when building menus). There is no support for removing a type once it has been installed. (defconst html-helper-installed-types nil (#$ . 6827)) #@180 Install a new tag type: add it to the keymap, menu structures, etc. For this to work, the type must first have been added to the list of types with html-helper-add-type-to-alist. (defalias 'html-helper-install-type #[(type) " B!!!! I L !\f@ L !#I #RL," [type html-helper-installed-types html-helper-keymap-for html-helper-key-for html-helper-menu-for html-helper-menu-string-for menu-string menu key keymap nil define-prefix-command html-helper-emacs18 make-sparse-keymap define-key html-helper-mode-map eval] 5 (#$ . 7020)]) (byte-code "\n\"\"" [mapcar html-helper-install-type html-helper-types-to-install #[(l) " \n@\nA@#" [define-key html-helper-mode-map l] 4] (("" tempo-forward-mark) ("" tempo-backward-mark) ("" tempo-complete-tag))] 3) #@38 Keymap for extra HTML mode functions (defvar html-helper-mode-functions-map nil (#$ . 7841)) (byte-code "! # #! # #!- #!A!A #" [define-prefix-command html-helper-mode-functions-map define-key html-helper-mode-map "" "t" html-helper-insert-timestamp-delimiter-at-point html-helper-never-indent " " html-helper-indent-command " " newline-and-indent fboundp browse-url-of-file "v" boundp browse-url-browser-function "u"] 4) #@34 List of tags used in completion. (defvar html-helper-tempo-tags nil (#$ . 8317)) #@193 Given a string, downcase it and replace spaces with -. We use this to turn menu entries into good symbols for functions. It's not entirely successful, but fortunately emacs lisp is forgiving. (defalias 'html-helper-string-to-symbol #[(input-string) " !GSV#\n H\"\n I S \nP*" [copy-sequence input-string s l 0 char-equal 32 45 "html-"] 4 (#$ . 8405)]) #@223 Add a new tag to html-helper-mode. Builds a tempo-template for the tag and puts it into the appropriate keymap if a key is requested. Format: `(html-helper-add-tag '(type keybinding completion-tag menu-name template doc)' (defalias 'html-helper-add-tag #[(l) "@ ! !A@88\n8\f8\n!\f% >>Ԃo;^ U !#^# o \n# !BL. " [l type html-helper-keymap-for keymap html-helper-menu-for menu key 2 completer 3 name 4 tag 5 doc tempo-define-template html-helper-string-to-symbol html-helper-tempo-tags command html-helper-installed-types t define-key eval html-helper-mode-map vector] 6 (#$ . 8785)]) (byte-code "M\"" [html-helper-add-cookie html-helper-add-tag mapcar ((entity "#" "&#" "Ascii Code" ("&#" (r "Ascii: ") ";")) (entity "\"" """ "Quotation mark" (""")) (entity "$" "®" "Registered" ("®")) (entity "@" "©" "Copyright" ("©")) (entity "-" "­" "Soft Hyphen" ("­")) (entity " " " " "Nonbreaking Space" (" ")) (entity "&" "&" "Ampersand" ("&")) (entity ">" ">" "Greater Than" (">")) (entity "<" "<" "Less Than" ("<")) (logical "b" "
    " "Blockquote" ("
    " (r "Quote: ") "
    ")) (logical "c" "" "Code" ("" (r "Code: ") "")) (logical "x" "" "Sample" ("" (r "Sample code") "")) (logical "r" "" "Citation" ("" (r "Citation: ") "")) (logical "k" "" "Keyboard Input" ("" (r "Keyboard: ") "")) (logical "v" "" "Variable" ("" (r "Variable: ") "")) (logical "d" "" "Definition" ("" (r "Definition: ") "")) (logical "a" "
    " "Address" ("
    " r "
    ")) (logical "e" "" "Emphasized" ("" (r "Text: ") "")) (logical "s" "" "Strong" ("" (r "Text: ") "")) (logical "p" "
    " "Preformatted" ("
    " (r "Text: ") "
    ")) (phys "s" "" "Strikethru" ("" (r "Text: ") "")) (phys "u" "" "Underline" ("" (r "Text: ") "")) (phys "i" "" "Italic" ("" (r "Text: ") "")) (phys "b" "" "Bold" ("" (r "Text: ") "")) (phys "f" "" "Fixed" ("" (r "Text: ") "")) (header "6" "
    " "Header 6" ("
    " (r "Header: ") "
    ")) (header "5" "
    " "Header 5" ("
    " (r "Header: ") "
    ")) (header "4" "
    " "Header 4" ("
    " (r "Header: ") "
    ")) (header "3" "
    " "Header 3" ("
    " (r "Header: ") "
    ")) (header "2" "
    " "Header 2" ("
    " (r "Header: ") "
    ")) (header "1" "
    " "Header 1" ("
    " (r "Header: ") "
    ")) (form "o" "