equal
deleted
inserted
replaced
49 |
49 |
50 (setq user-full-name "Oleksandr Gavenko") |
50 (setq user-full-name "Oleksandr Gavenko") |
51 (setq user-mail-address "gavenkoa@gmail.com") |
51 (setq user-mail-address "gavenkoa@gmail.com") |
52 (setq user-nick "gavenkoa") |
52 (setq user-nick "gavenkoa") |
53 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
53 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address ">")) |
|
54 |
|
55 ;;; ---------------------------------------------------------------- |
|
56 (message "my defun, defmacro, defvar") |
|
57 |
|
58 (defmacro my-filter (condfunc list) |
|
59 "Construct list with elements from LIST which satisfy CONDFUNC." |
|
60 `(let (r) |
|
61 (mapc (lambda (item) |
|
62 (when (,condfunc item) |
|
63 (if r |
|
64 (nconc r (cons item nil)) |
|
65 (setq r (cons item nil))))) |
|
66 ,list) |
|
67 r)) |
54 |
68 |
55 ;;; ---------------------------------------------------------------- |
69 ;;; ---------------------------------------------------------------- |
56 (message "mode groups") |
70 (message "mode groups") |
57 |
71 |
58 (defmacro my-defun-rename-symb-tree (name doc func) |
72 (defmacro my-defun-rename-symb-tree (name doc func) |
1582 |
1596 |
1583 ;;; ---------------------------------------------------------------- |
1597 ;;; ---------------------------------------------------------------- |
1584 (message "psgml") |
1598 (message "psgml") |
1585 |
1599 |
1586 (setq sgml-set-face t) ; for highlighting in sgml |
1600 (setq sgml-set-face t) ; for highlighting in sgml |
|
1601 (eval-after-load 'sgml-mode |
|
1602 '(progn |
|
1603 (setq html-tag-alist |
|
1604 (cons |
|
1605 '("html" (nil |
|
1606 "\n<head>" \n |
|
1607 "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-input "Charset: ") "\">" \n |
|
1608 "<title>" (setq str (read-input "Title: ")) "</title>\n" |
|
1609 "</head>\n" |
|
1610 "<body>\n<h1>" str "</h1>" |
|
1611 "\n<address>" \n |
|
1612 "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n |
|
1613 "</address>" \n |
|
1614 "</body>\n" |
|
1615 )) |
|
1616 (my-filter |
|
1617 (lambda (item) (not (equal (car item) "html"))) |
|
1618 html-tag-alist))) |
|
1619 )) |
1587 |
1620 |
1588 ;;; ---------------------------------------------------------------- |
1621 ;;; ---------------------------------------------------------------- |
1589 (message "sh, bash") |
1622 (message "sh, bash") |
1590 |
1623 |
1591 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode)) |
1624 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode)) |