[756] | 1 | ;;; html-helper-mode |
---|
| 2 | |
---|
| 3 | ;; Initialization |
---|
| 4 | (autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t) |
---|
| 5 | (setq auto-mode-alist (append |
---|
| 6 | '( |
---|
| 7 | ("\\.html" . html-helper-mode) |
---|
| 8 | ("\\.shtml" . html-helper-mode)) |
---|
| 9 | auto-mode-alist)) |
---|
| 10 | |
---|
| 11 | |
---|
| 12 | ;; Set this to be whatever signature |
---|
| 13 | ;; you want on the bottom of your pages. |
---|
| 14 | ;(setq html-helper-address-string "who@hoge.ne.jp") |
---|
| 15 | |
---|
| 16 | |
---|
| 17 | ;; If not nil, then use the full HTML menu. |
---|
| 18 | ;(setq html-helper-use-expert-menu nil) ;; Default |
---|
| 19 | |
---|
| 20 | |
---|
| 21 | ;; If not nil, |
---|
| 22 | ;; then modify `local-write-file-hooks' to do timestamps. |
---|
| 23 | ;(setq html-helper-do-write-file-hooks t) ;; Default |
---|
| 24 | |
---|
| 25 | |
---|
| 26 | ;;If not nil, |
---|
| 27 | ;; then insert `html-helper-new-buffer-strings' for new buffers. |
---|
| 28 | ;(setq html-helper-build-new-buffer t) ;; Default |
---|
| 29 | |
---|
| 30 | |
---|
| 31 | ;; Version of HTML DTD you're using. |
---|
| 32 | ;(setq html-helper-htmldtd-version |
---|
| 33 | ; "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">\n") ;; Default |
---|
| 34 | |
---|
| 35 | |
---|
| 36 | ;; Extra items to put in the HTML expert menu. |
---|
| 37 | ;; The value of this symbol is appended to the beginning of the expert |
---|
| 38 | ;; menu that is handed off to easymenu for definition. |
---|
| 39 | ;; It should be a list of vectors or lists |
---|
| 40 | ;; which themselves are vectors (for submenus). |
---|
| 41 | ;(setq html-helper-user-menu nil) ;; Default |
---|
| 42 | |
---|
| 43 | |
---|
| 44 | ;; Basic indentation size used for list indentation |
---|
| 45 | ;(setq html-helper-basic-offset 2) ;; Default |
---|
| 46 | |
---|
| 47 | |
---|
| 48 | ;; Indentation of lines that follow a <li> item. |
---|
| 49 | ;; Default is 4, the length of things like \"<li>\" and \"<dd>\". |
---|
| 50 | ;(setq html-helper-item-continue-indent 4) ;; Default |
---|
| 51 | |
---|
| 52 | |
---|
| 53 | ;; If not nil, |
---|
| 54 | ;; the indentation code for html-helper is turned off. |
---|
| 55 | ;(setq html-helper-never-indent nil) ;; Default |
---|
| 56 | |
---|
| 57 | |
---|
| 58 | ;; Template for new buffers. |
---|
| 59 | ;; Inserted by `html-helper-insert-new-buffer-strings' |
---|
| 60 | ;; if `html-helper-build-new-buffer' is set to t |
---|
| 61 | ;(setq html-helper-new-buffer-template |
---|
| 62 | ; '(html-helper-htmldtd-version |
---|
| 63 | ; "<html> <head>\n" |
---|
| 64 | ; "<title>" p "</title>\n</head>\n\n" |
---|
| 65 | ; "<body>\n" |
---|
| 66 | ; "<h1>" p "</h1>\n\n" |
---|
| 67 | ; p |
---|
| 68 | ; "\n\n<hr>\n" |
---|
| 69 | ; "<address>" html-helper-address-string "</address>\n" |
---|
| 70 | ; html-helper-timestamp-start |
---|
| 71 | ; html-helper-timestamp-end |
---|
| 72 | ; "\n</body> </html>\n")) ;; Default |
---|
| 73 | |
---|
| 74 | |
---|
| 75 | ;; Start delimiter for timestamps. |
---|
| 76 | ;; Everything between `html-helper-timestamp-start' and |
---|
| 77 | ;; `html-helper-timestamp-end' will be deleted and |
---|
| 78 | ;; replaced with the output of the functions `html-helper-timestamp-hook' |
---|
| 79 | ;; if `html-helper-do-write-file-hooks' is t |
---|
| 80 | ;(setq html-helper-timestamp-start "<!-- hhmts start -->\n") ;; Default |
---|
| 81 | |
---|
| 82 | |
---|
| 83 | ;; End delimiter for timestamps. |
---|
| 84 | ;; Everything between `html-helper-timestamp-start' and |
---|
| 85 | ;; `html-helper-timestamp-end' will be deleted and |
---|
| 86 | ;; replaced with the output of the function `html-helper-insert-timestamp' |
---|
| 87 | ;; if `html-helper-do-write-file-hooks' is t |
---|
| 88 | ;(setq html-helper-timestamp-end "<!-- hhmts end -->") ;; Default |
---|
| 89 | |
---|
| 90 | |
---|
| 91 | ;; Change format and {start,end} delimiter for timestamps. |
---|
| 92 | ;; if you will be use this, |
---|
| 93 | ;; you should change `html-helper-new-buffer-template'. |
---|
| 94 | ;(setq html-helper-timestamp-start "<META name=\"date\" content=\"" |
---|
| 95 | ; html-helper-timestamp-end "\">") |
---|
| 96 | ;(defun TT:html-helper-insert-timestamp () |
---|
| 97 | ; (let ((tz (car (current-time-zone))) |
---|
| 98 | ; (tzh) (tzm)) |
---|
| 99 | ; (setq tzh (/ tz 3600) |
---|
| 100 | ; tz (- tz (* tzh 3600))) |
---|
| 101 | ; (setq tzm (/ tz 60) |
---|
| 102 | ; tz (- tz (* tzm 60))) |
---|
| 103 | ; (insert |
---|
| 104 | ; (concat |
---|
| 105 | ; (format-time-string "%Y-%m-%dT%H:%M:%S" (current-time)) |
---|
| 106 | ; (format "%s%02d:%02d" (if (> tzh 0) "+" "-") tzh tzm))))) |
---|
| 107 | ;(setq html-helper-timestamp-hook 'TT:html-helper-insert-timestamp) |
---|