# HG changeset patch # User Oleksandr Gavenko # Date 1316455509 -10800 # Node ID 9ec79850e725162c0954375dfe8a297cc782b582 # Parent 2a081d4e2e7c79f9d2e7571abaab6f354fb08934# Parent d19881accc91ae3b8d2ab64f65595a945143fc75 merged diff -r d19881accc91 -r 9ec79850e725 .emacs-my --- a/.emacs-my Wed Sep 14 15:16:12 2011 +0300 +++ b/.emacs-my Mon Sep 19 21:05:09 2011 +0300 @@ -1646,26 +1646,32 @@ ;;; ---------------------------------------------------------------- (message "psgml") +(setq my-html-template + '("html" + (nil + "\n" \n + "" \n + "" (setq str (read-input "Title: ")) "\n" + "\n" + "\n

" str "

" + "\n

" \n + "" (user-full-name) "" \n + "

" \n + "\n" + )) + ) + (setq sgml-set-face t) ; for highlighting in sgml (eval-after-load 'sgml-mode '(progn - (setq html-tag-alist - (cons - '("html" (nil - "\n" \n - "" \n - "" (setq str (read-input "Title: ")) "\n" - "\n" - "\n

" str "

" - "\n

" \n - "" (user-full-name) "" \n - "

" \n - "\n" - )) - (my-filter - (lambda (item) (not (equal (car item) "html"))) - html-tag-alist))) - )) + (unless (featurep 'psgml) + (setq html-tag-alist + (cons + my-html-template + (my-filter + (lambda (item) (not (equal (car item) "html"))) + html-tag-alist))) + ))) ;;; ---------------------------------------------------------------- (message "sh, bash")