diff -r 12851e09e1ae -r d10f2e70ff5e .emacs-my
--- a/.emacs-my Sat Jul 16 10:56:02 2011 +0300
+++ b/.emacs-my Tue Jul 19 23:14:10 2011 +0300
@@ -53,6 +53,20 @@
(setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">"))
;;; ----------------------------------------------------------------
+(message "my defun, defmacro, defvar")
+
+(defmacro my-filter (condfunc list)
+ "Construct list with elements from LIST which satisfy CONDFUNC."
+ `(let (r)
+ (mapc (lambda (item)
+ (when (,condfunc item)
+ (if r
+ (nconc r (cons item nil))
+ (setq r (cons item nil)))))
+ ,list)
+ r))
+
+;;; ----------------------------------------------------------------
(message "mode groups")
(defmacro my-defun-rename-symb-tree (name doc func)
@@ -1584,6 +1598,25 @@
(message "psgml")
(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)))
+ ))
;;; ----------------------------------------------------------------
(message "sh, bash")