# HG changeset patch # User Oleksandr Gavenko # Date 1316588917 -10800 # Node ID f0697b66858fa255f2fc734ae927511e6d0aa57a # Parent 9ec79850e725162c0954375dfe8a297cc782b582# Parent 87b7f0f427dc39ddd7f9524f9e1267fdb4f4e92a Automated merge with file:///cygdrive/d/srv/hg-home/dot-emacs diff -r 87b7f0f427dc -r f0697b66858f .emacs-my --- a/.emacs-my Wed Sep 21 10:08:29 2011 +0300 +++ b/.emacs-my Wed Sep 21 10:08:37 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")