10 ;; For load order see README. |
10 ;; For load order see README. |
11 |
11 |
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
13 (message "recentf") |
13 (message "recentf") |
14 |
14 |
|
15 (eval-and-compile |
|
16 (require 'recentf)) |
|
17 |
15 (setq recentf-save-file (concat user-emacs-directory ".recentf")) |
18 (setq recentf-save-file (concat user-emacs-directory ".recentf")) |
16 (when (eq system-type 'cygwin) |
19 (when (eq system-type 'cygwin) |
17 (setq recentf-save-file (concat user-emacs-directory ".recentf-cygwin"))) |
20 (setq recentf-save-file (concat user-emacs-directory ".recentf-cygwin"))) |
18 |
21 |
19 (setq recentf-auto-cleanup 600) |
22 (setq recentf-auto-cleanup 600) |
23 '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)" |
26 '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)" |
24 "/devel/my-\\(merge\\|pull\\)/" |
27 "/devel/my-\\(merge\\|pull\\)/" |
25 "\\.png\\'")) |
28 "\\.png\\'")) |
26 (setq recentf-max-saved-items 10000) |
29 (setq recentf-max-saved-items 10000) |
27 |
30 |
28 (require 'recentf) |
|
29 (recentf-mode t) |
31 (recentf-mode t) |
30 |
32 |
31 (global-set-key (kbd "\e\eq") 'recentf-open-files) |
33 (global-set-key (kbd "\e\eq") 'recentf-open-files) |
32 (global-set-key [?\s-q] 'recentf-open-files) |
34 (global-set-key [?\s-q] 'recentf-open-files) |
33 |
35 |
448 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
450 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
449 (message "term") |
451 (message "term") |
450 |
452 |
451 (setq term-buffer-maximum-size (lsh 1 14)) |
453 (setq term-buffer-maximum-size (lsh 1 14)) |
452 |
454 |
453 (eval-after-load 'term |
455 (my--eval-after-load term |
454 '(progn |
456 '(progn |
455 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
457 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
456 (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h")) |
458 (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h")) |
457 (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward) |
459 (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward) |
458 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward) |
460 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward) |
637 |
639 |
638 ;; Do not set t because some grep do not has --color options. |
640 ;; Do not set t because some grep do not has --color options. |
639 (setq grep-highlight-matches nil) |
641 (setq grep-highlight-matches nil) |
640 (setq grep-use-null-device nil) |
642 (setq grep-use-null-device nil) |
641 |
643 |
642 (eval-after-load 'grep |
644 (my--eval-after-load grep |
643 '(progn |
645 '(progn |
644 (add-to-list 'grep-find-ignored-directories "build" t) |
646 (add-to-list 'grep-find-ignored-directories "build" t) |
645 (add-to-list 'grep-find-ignored-directories "dist" t) |
647 (add-to-list 'grep-find-ignored-directories "dist" t) |
646 (add-to-list 'grep-find-ignored-directories "lib" t) |
648 (add-to-list 'grep-find-ignored-directories "lib" t) |
647 (add-to-list 'grep-find-ignored-directories "_build" t) |
649 (add-to-list 'grep-find-ignored-directories "_build" t) |
948 (message "yasnippet") |
950 (message "yasnippet") |
949 |
951 |
950 (setq my-yas-root-directory "~/.emacs.d/my-yas") |
952 (setq my-yas-root-directory "~/.emacs.d/my-yas") |
951 (setq yas/ignore-filenames-as-triggers t) |
953 (setq yas/ignore-filenames-as-triggers t) |
952 |
954 |
953 ;; (eval-after-load 'yasnippet |
955 ;; (my--eval-after-load yasnippet |
954 ;; '(progn |
956 ;; '(progn |
955 ;; (cond |
957 ;; (cond |
956 ;; ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory)) |
958 ;; ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory)) |
957 ;; ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory))) |
959 ;; ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory))) |
958 ;; (t (error "I expect that yas/root-directory is a list of string")) ) |
960 ;; (t (error "I expect that yas/root-directory is a list of string")) ) |
1064 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1066 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1065 (message "image, png, svg") |
1067 (message "image, png, svg") |
1066 |
1068 |
1067 (when (fboundp 'auto-image-file-mode) |
1069 (when (fboundp 'auto-image-file-mode) |
1068 (auto-image-file-mode 1)) |
1070 (auto-image-file-mode 1)) |
1069 (eval-after-load 'image-file |
1071 (my--eval-after-load image-file |
1070 '(progn |
1072 '(progn |
1071 ;; Exclude .svg image from supported image list, as Emacs doesn't come |
1073 ;; Exclude .svg image from supported image list, as Emacs doesn't come |
1072 ;; with SVG shared library. |
1074 ;; with SVG shared library. |
1073 (setq image-file-name-extensions (remove "svg" image-file-name-extensions)) |
1075 (setq image-file-name-extensions (remove "svg" image-file-name-extensions)) |
1074 ;; Re-initialize the image-file handler. |
1076 ;; Re-initialize the image-file handler. |
1230 |
1232 |
1231 ;; Maintaining the table of contents up-to-date. |
1233 ;; Maintaining the table of contents up-to-date. |
1232 (add-hook 'rst-adjust-hook 'rst-toc-update) |
1234 (add-hook 'rst-adjust-hook 'rst-toc-update) |
1233 |
1235 |
1234 (unless window-system |
1236 (unless window-system |
1235 (eval-after-load 'rst |
1237 (my--eval-after-load rst |
1236 '(progn |
1238 '(progn |
1237 (custom-set-faces |
1239 (custom-set-faces |
1238 '(rst-level-1-face ((t (:background "yellow"))) t) |
1240 '(rst-level-1-face ((t (:background "yellow"))) t) |
1239 '(rst-level-2-face ((t (:background "yellow"))) t) |
1241 '(rst-level-2-face ((t (:background "yellow"))) t) |
1240 '(rst-level-3-face ((t (:background "yellow"))) t) |
1242 '(rst-level-3-face ((t (:background "yellow"))) t) |
1275 ;%l "latex --src-specials" |
1277 ;%l "latex --src-specials" |
1276 ;%n line number %p printcommand %q "lpq" |
1278 ;%n line number %p printcommand %q "lpq" |
1277 ;%r (TeX-style-check TeX-print-style) |
1279 ;%r (TeX-style-check TeX-print-style) |
1278 ;%s master-file-name without extention |
1280 ;%s master-file-name without extention |
1279 ;%v yap command view line |
1281 ;%v yap command view line |
1280 ;(eval-after-load "tex" |
1282 ;(my--eval-after-load "tex" |
1281 ; '(progn |
1283 ; '(progn |
1282 ; (add-to-list 'TeX-command-list |
1284 ; (add-to-list 'TeX-command-list |
1283 ; (list "->PS landscape for pdf" |
1285 ; (list "->PS landscape for pdf" |
1284 ; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f " |
1286 ; "dvips %d -N0 -Ppdf -G0 -T 297mm,210mm -o %f " |
1285 ; 'TeX-run-command nil t)) |
1287 ; 'TeX-run-command nil t)) |
1587 ;; Initialize from your mail aliases file... |
1589 ;; Initialize from your mail aliases file... |
1588 (setq mail-aliases t) |
1590 (setq mail-aliases t) |
1589 (require 'ecomplete) |
1591 (require 'ecomplete) |
1590 (setq message-mail-alias-type '(abbrev ecomplete)) |
1592 (setq message-mail-alias-type '(abbrev ecomplete)) |
1591 |
1593 |
1592 (eval-after-load 'message |
1594 (my--eval-after-load message |
1593 '(progn |
1595 '(progn |
1594 (require 'mailabbrev) |
1596 (require 'mailabbrev) |
1595 (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias) |
1597 (define-key message-mode-map "\e\t" 'mail-abbrev-complete-alias) |
1596 )) |
1598 )) |
1597 |
1599 |
1668 (defun my-kill-gnus () |
1670 (defun my-kill-gnus () |
1669 "Kill Gnus when exiting Emacs." |
1671 "Kill Gnus when exiting Emacs." |
1670 (let ( (gnus-interactive-exit nil) ) |
1672 (let ( (gnus-interactive-exit nil) ) |
1671 (gnus-group-exit) |
1673 (gnus-group-exit) |
1672 )) |
1674 )) |
1673 (eval-after-load 'gnus '(add-hook 'kill-emacs-hook 'my-kill-gnus)) |
1675 (my--eval-after-load gnus '(add-hook 'kill-emacs-hook 'my-kill-gnus)) |
1674 |
1676 |
1675 (eval-after-load 'gnus-art |
1677 (my--eval-after-load gnus-art |
1676 '(progn |
1678 '(progn |
1677 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At")) |
1679 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At")) |
1678 )) |
1680 )) |
1679 |
1681 |
1680 ;; Store gnus specific files to '~/.gnus'. |
1682 ;; Store gnus specific files to '~/.gnus'. |
1746 |
1748 |
1747 (defun my-w3m-view-url () |
1749 (defun my-w3m-view-url () |
1748 (interactive) |
1750 (interactive) |
1749 (browse-url (w3m-anchor))) |
1751 (browse-url (w3m-anchor))) |
1750 |
1752 |
1751 (eval-after-load 'w3m |
1753 (my--eval-after-load w3m |
1752 '(progn |
1754 '(progn |
1753 (define-key w3m-minor-mode-map (kbd "RET") #'my-w3m-view-url) |
1755 (define-key w3m-minor-mode-map (kbd "RET") #'my-w3m-view-url) |
1754 (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url) |
1756 (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url) |
1755 (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char) |
1757 (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char) |
1756 (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char) |
1758 (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char) |
1757 (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line) |
1759 (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line) |
1758 (define-key w3m-minor-mode-map (kbd "<down>") #'next-line))) |
1760 (define-key w3m-minor-mode-map (kbd "<down>") #'next-line))) |
1759 |
1761 |
1760 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) |
1762 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) |
1761 |
1763 |
1762 (eval-after-load 'gnus '(progn (gnus-demon-add-handler 'gnus-demon-scan-news 10 t))) |
1764 (my--eval-after-load gnus '(progn (gnus-demon-add-handler 'gnus-demon-scan-news 10 t))) |
1763 |
1765 |
1764 ;; Show prefix and 'To' field instead 'From' for my mails. |
1766 ;; Show prefix and 'To' field instead 'From' for my mails. |
1765 (setq gnus-summary-to-prefix "==> ") |
1767 (setq gnus-summary-to-prefix "==> ") |
1766 (setq gnus-summary-newsgroup-prefix "==> ") |
1768 (setq gnus-summary-newsgroup-prefix "==> ") |
1767 (setq gnus-ignored-from-addresses (list (regexp-quote user-mail-address) (regexp-quote user-full-name))) |
1769 (setq gnus-ignored-from-addresses (list (regexp-quote user-mail-address) (regexp-quote user-full-name))) |
1871 (gnus-killed-mark (followup -50)) |
1873 (gnus-killed-mark (followup -50)) |
1872 (gnus-kill-file-mark (from -9999)) |
1874 (gnus-kill-file-mark (from -9999)) |
1873 )) |
1875 )) |
1874 |
1876 |
1875 ;; Increase the score for followups to a sent article. |
1877 ;; Increase the score for followups to a sent article. |
1876 (eval-after-load 'gnus-score |
1878 (my--eval-after-load gnus-score |
1877 '(progn |
1879 '(progn |
1878 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1880 ;; (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1879 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1881 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1880 )) |
1882 )) |
1881 |
1883 |
1889 (when (<= (length subj) my-gnus-summary-kill-same-subject-min-len) |
1891 (when (<= (length subj) my-gnus-summary-kill-same-subject-min-len) |
1890 (gnus-summary-score-entry |
1892 (gnus-summary-score-entry |
1891 "subject" subj |
1893 "subject" subj |
1892 's (- gnus-score-interactive-default-score) (current-time-string))))) |
1894 's (- gnus-score-interactive-default-score) (current-time-string))))) |
1893 (gnus-summary-kill-same-subject unmark)) |
1895 (gnus-summary-kill-same-subject unmark)) |
1894 (eval-after-load 'gnus-sum |
1896 (my--eval-after-load gnus-sum |
1895 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1897 '(define-key gnus-summary-mode-map (kbd "C-k") #'my-gnus-summary-kill-same-subject)) |
1896 |
1898 |
1897 (defun my-gnus.mark-thread-as-read () |
1899 (defun my-gnus.mark-thread-as-read () |
1898 "Mark unmarked articles in current thread as read and move to |
1900 "Mark unmarked articles in current thread as read and move to |
1899 next thread without selecting article." |
1901 next thread without selecting article." |
1903 (while t |
1905 (while t |
1904 (when (eq (gnus-summary-article-mark (gnus-summary-article-number)) gnus-unread-mark) |
1906 (when (eq (gnus-summary-article-mark (gnus-summary-article-number)) gnus-unread-mark) |
1905 (gnus-summary-mark-article (gnus-summary-article-number) gnus-del-mark)) |
1907 (gnus-summary-mark-article (gnus-summary-article-number) gnus-del-mark)) |
1906 (when (or (not (gnus-summary-search-forward)) (eq (gnus-summary-thread-level) 0)) |
1908 (when (or (not (gnus-summary-search-forward)) (eq (gnus-summary-thread-level) 0)) |
1907 (throw 'exit nil)) ))) |
1909 (throw 'exit nil)) ))) |
1908 (eval-after-load 'gnus-sum |
1910 (my--eval-after-load gnus-sum |
1909 '(define-key gnus-summary-mode-map (kbd "H-k") #'my-gnus.mark-thread-as-read)) |
1911 '(define-key gnus-summary-mode-map (kbd "H-k") #'my-gnus.mark-thread-as-read)) |
1910 |
1912 |
1911 (defun my-gnus-thread-score-function (&rest scores) |
1913 (defun my-gnus-thread-score-function (&rest scores) |
1912 "If any followup have positive score assign greater available |
1914 "If any followup have positive score assign greater available |
1913 score to thread, else assign lesser available score." |
1915 score to thread, else assign lesser available score." |
1921 (int-to-string |
1923 (int-to-string |
1922 (gnus-thread-total-score |
1924 (gnus-thread-total-score |
1923 (gnus-id-to-thread (mail-header-id (gnus-summary-article-header))))))) |
1925 (gnus-id-to-thread (mail-header-id (gnus-summary-article-header))))))) |
1924 |
1926 |
1925 ;; Especially highlight my message and replays to me. |
1927 ;; Especially highlight my message and replays to me. |
1926 (eval-after-load 'gnus-sum |
1928 (my--eval-after-load gnus-sum |
1927 '(progn |
1929 '(progn |
1928 (defface my-gnus-own-unread-face nil |
1930 (defface my-gnus-own-unread-face nil |
1929 "Use this face to display own postings in Summary Buffer") |
1931 "Use this face to display own postings in Summary Buffer") |
1930 (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face) |
1932 (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face) |
1931 (set-face-background 'my-gnus-own-unread-face "linen") |
1933 (set-face-background 'my-gnus-own-unread-face "linen") |
1956 ;; '(("\\.emacs" "emacs.SCORE") |
1958 ;; '(("\\.emacs" "emacs.SCORE") |
1957 ;; ;; All the comp groups in one score file |
1959 ;; ;; All the comp groups in one score file |
1958 ;; ("^comp" "comp.SCORE"))) |
1960 ;; ("^comp" "comp.SCORE"))) |
1959 |
1961 |
1960 ;; Make C-Up, C-Down more like across paragraph moving. |
1962 ;; Make C-Up, C-Down more like across paragraph moving. |
1961 (eval-after-load 'gnus |
1963 (my--eval-after-load gnus |
1962 '(progn |
1964 '(progn |
1963 (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1))) |
1965 (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1))) |
1964 (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1))) |
1966 (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1))) |
1965 (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread) |
1967 (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread) |
1966 (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread) |
1968 (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread) |
2008 jabber-backlog-number 40 |
2010 jabber-backlog-number 40 |
2009 jabber-backlog-days 30 |
2011 jabber-backlog-days 30 |
2010 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
2012 jabber-alert-presence-message-function (lambda (who oldstatus newstatus statustext) nil) |
2011 ) |
2013 ) |
2012 |
2014 |
2013 (eval-after-load 'jabber |
2015 (my--eval-after-load jabber |
2014 '(progn |
2016 '(progn |
2015 ;; Redefine standard binding for sending message form RET to C-RET. |
2017 ;; Redefine standard binding for sending message form RET to C-RET. |
2016 (define-key jabber-chat-mode-map (kbd "RET") 'newline) |
2018 (define-key jabber-chat-mode-map (kbd "RET") 'newline) |
2017 (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send) |
2019 (define-key jabber-chat-mode-map [C-return] 'jabber-chat-buffer-send) |
2018 ;; fsm used in emacs jabber |
2020 ;; fsm used in emacs jabber |
2109 erc-server-reconnect-attempts 2) |
2111 erc-server-reconnect-attempts 2) |
2110 |
2112 |
2111 (setq |
2113 (setq |
2112 erc-log-channels-directory "~/.emacs.d/.irc" |
2114 erc-log-channels-directory "~/.emacs.d/.irc" |
2113 erc-log-file-coding-system 'utf-8-unix) |
2115 erc-log-file-coding-system 'utf-8-unix) |
2114 (eval-after-load 'erc |
2116 (my--eval-after-load erc |
2115 (lambda () |
2117 (lambda () |
2116 (require 'erc-log) |
2118 (require 'erc-log) |
2117 (mkdir erc-log-channels-directory t))) |
2119 (mkdir erc-log-channels-directory t))) |
2118 |
2120 |
2119 ;; Kill buffers for channels after /part |
2121 ;; Kill buffers for channels after /part |
2166 ;; Use C-c C-b on hunk by own. |
2168 ;; Use C-c C-b on hunk by own. |
2167 ;; (defun my-diff-auto-refine-mode-on () (diff-auto-refine-mode 1)) |
2169 ;; (defun my-diff-auto-refine-mode-on () (diff-auto-refine-mode 1)) |
2168 ;; (add-hook 'diff-mode-hook 'my-diff-auto-refine-mode-on) |
2170 ;; (add-hook 'diff-mode-hook 'my-diff-auto-refine-mode-on) |
2169 |
2171 |
2170 (when window-system |
2172 (when window-system |
2171 (eval-after-load 'diff-mode |
2173 (my--eval-after-load diff-mode |
2172 '(progn |
2174 '(progn |
2173 (set-face-foreground 'diff-added-face "DarkGreen") |
2175 (set-face-foreground 'diff-added-face "DarkGreen") |
2174 (set-face-foreground 'diff-removed-face "DarkRed") |
2176 (set-face-foreground 'diff-removed-face "DarkRed") |
2175 (set-face-background 'diff-refine-change "LightBlue1") |
2177 (set-face-background 'diff-refine-change "LightBlue1") |
2176 ))) |
2178 ))) |
2289 (setq compilation-ask-about-save t) |
2291 (setq compilation-ask-about-save t) |
2290 |
2292 |
2291 ;; Show error in EN locale to easy search how fix problem in docs and Internet. |
2293 ;; Show error in EN locale to easy search how fix problem in docs and Internet. |
2292 (setq compilation-environment '("LANG=C")) |
2294 (setq compilation-environment '("LANG=C")) |
2293 |
2295 |
2294 (eval-after-load 'compile |
2296 (my--eval-after-load compile |
2295 '(progn |
2297 '(progn |
2296 ;; My funny error messages. |
2298 ;; My funny error messages. |
2297 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
2299 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
2298 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
2300 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
2299 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
2301 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
2321 (interactive |
2323 (interactive |
2322 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
2324 (list (read-input "Type string: " nil 'my-comint-send-hist-list)) |
2323 ) |
2325 ) |
2324 (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n")) |
2326 (comint-send-string (get-buffer-process (current-buffer)) (concat string "\n")) |
2325 ) |
2327 ) |
2326 (eval-after-load 'compile |
2328 (my--eval-after-load compile |
2327 '(progn |
2329 '(progn |
2328 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
2330 (define-key compilation-mode-map [C-return] 'my-comint-send-string) |
2329 )) |
2331 )) |
2330 |
2332 |
2331 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2333 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2504 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode)) |
2506 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode)) |
2505 |
2507 |
2506 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2508 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2507 (message "fvwm-mode") |
2509 (message "fvwm-mode") |
2508 |
2510 |
2509 (eval-after-load 'fvwm-mode |
2511 (my--eval-after-load fvwm-mode |
2510 (setq fvwm-fvwmcommand-path (executable-find "FvwmCommand"))) |
2512 (setq fvwm-fvwmcommand-path (executable-find "FvwmCommand"))) |
2511 |
2513 |
2512 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2514 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2513 (message "makefile, make") |
2515 (message "makefile, make") |
2514 |
2516 |
2663 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2665 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2664 (message "python") |
2666 (message "python") |
2665 |
2667 |
2666 (setq python-indent 4) |
2668 (setq python-indent 4) |
2667 |
2669 |
2668 (eval-after-load 'python-mode |
2670 (my--eval-after-load python-mode |
2669 '(when (and (boundp 'py-version) (equal py-version "5.1.0")) |
2671 '(when (and (boundp 'py-version) (equal py-version "5.1.0")) |
2670 (setq-default py-which-shell py-python-command) |
2672 (setq-default py-which-shell py-python-command) |
2671 ;; (py-toggle-shells 'cpython) |
2673 ;; (py-toggle-shells 'cpython) |
2672 )) |
2674 )) |
2673 |
2675 |
2674 (eval-after-load 'python |
2676 (my--eval-after-load python |
2675 '(define-key inferior-python-mode-map "\C-c\C-f" 'python-describe-symbol)) |
2677 '(define-key inferior-python-mode-map "\C-c\C-f" 'python-describe-symbol)) |
2676 |
2678 |
2677 ;; Enable "M-/", "C-c g", "C-c d", "C-c f" shortcuts. |
2679 ;; Enable "M-/", "C-c g", "C-c d", "C-c f" shortcuts. |
2678 (setq ropemacs-enable-shortcuts t) |
2680 (setq ropemacs-enable-shortcuts t) |
2679 (ignore-errors |
2681 (ignore-errors |
2737 cperl-tab-always-indent t) |
2739 cperl-tab-always-indent t) |
2738 |
2740 |
2739 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2741 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2740 (message "SML, Standard ML") |
2742 (message "SML, Standard ML") |
2741 |
2743 |
2742 (eval-after-load 'sml |
2744 (my--eval-after-load sml |
2743 '(progn |
2745 '(progn |
2744 (define-key sml-mode-map (kbd "C-c C-p") 'sml-send-function) |
2746 (define-key sml-mode-map (kbd "C-c C-p") 'sml-send-function) |
2745 )) |
2747 )) |
2746 |
2748 |
2747 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2749 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2750 (if (>= emacs-major-version 23) |
2752 (if (>= emacs-major-version 23) |
2751 (add-to-list 'auto-mode-alist '("\\.js$" . js-mode)) |
2753 (add-to-list 'auto-mode-alist '("\\.js$" . js-mode)) |
2752 (add-to-list 'auto-mode-alist '("\\.js$" . javascript-generic-mode)) |
2754 (add-to-list 'auto-mode-alist '("\\.js$" . javascript-generic-mode)) |
2753 ) |
2755 ) |
2754 |
2756 |
2755 (eval-after-load 'js '(modify-syntax-entry ?$ "w" js-mode-syntax-table)) |
2757 (my--eval-after-load js '(modify-syntax-entry ?$ "w" js-mode-syntax-table)) |
2756 |
2758 |
2757 (setq js-indent-level 4) |
2759 (setq js-indent-level 4) |
2758 ;; js-curly-indent-offset, js-expr-indent-offset, js-paren-indent-offset, js-square-indent-offset, js-switch-indent-offset |
2760 ;; js-curly-indent-offset, js-expr-indent-offset, js-paren-indent-offset, js-square-indent-offset, js-switch-indent-offset |
2759 |
2761 |
2760 ;; BUG: all single char comments do not stop highlighting on end of line but |
2762 ;; BUG: all single char comments do not stop highlighting on end of line but |
2819 |
2821 |
2820 (setq css-indent-offset 4) |
2822 (setq css-indent-offset 4) |
2821 |
2823 |
2822 ;; (package-install 'css-eldoc) |
2824 ;; (package-install 'css-eldoc) |
2823 |
2825 |
2824 (eval-after-load 'css-mode |
2826 (my--eval-after-load css-mode |
2825 (when (fboundp 'css-eldoc-enable) |
2827 (when (fboundp 'css-eldoc-enable) |
2826 (css-eldoc-enable))) |
2828 (css-eldoc-enable))) |
2827 |
2829 |
2828 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2830 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2829 (message "htmlize") |
2831 (message "htmlize") |
2899 (add-to-list 'auto-mode-alist '("\.pom\\'" . nxml-mode)) |
2901 (add-to-list 'auto-mode-alist '("\.pom\\'" . nxml-mode)) |
2900 (add-to-list 'auto-mode-alist '("\.xsd\\'" . nxml-mode)) |
2902 (add-to-list 'auto-mode-alist '("\.xsd\\'" . nxml-mode)) |
2901 (add-to-list 'auto-mode-alist '("\.rng\\'" . nxml-mode)) |
2903 (add-to-list 'auto-mode-alist '("\.rng\\'" . nxml-mode)) |
2902 (add-to-list 'auto-mode-alist '("\.xul\\'" . nxml-mode)) |
2904 (add-to-list 'auto-mode-alist '("\.xul\\'" . nxml-mode)) |
2903 |
2905 |
2904 (eval-after-load 'nxml-mode '(define-key nxml-mode-map [C-return] 'nxml-complete)) |
2906 (my--eval-after-load nxml-mode '(define-key nxml-mode-map [C-return] 'nxml-complete)) |
2905 |
2907 |
2906 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2908 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2907 (message "relax ng, rng") |
2909 (message "relax ng, rng") |
2908 |
2910 |
2909 (eval-after-load 'rng-loc '(add-to-list 'rng-schema-locating-files "~/.emacs.d/rnc/schemas.xml")) |
2911 (my--eval-after-load rng-loc '(add-to-list 'rng-schema-locating-files "~/.emacs.d/rnc/schemas.xml")) |
2910 |
2912 |
2911 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2913 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2912 (message "web-mode") |
2914 (message "web-mode") |
2913 |
2915 |
2914 (setq web-mode-markup-indent-offset 2 |
2916 (setq web-mode-markup-indent-offset 2 |
3003 isar-display:show-brackets t |
3005 isar-display:show-brackets t |
3004 ;; Too many output, so commented: |
3006 ;; Too many output, so commented: |
3005 ;; isar-display:show-consts t |
3007 ;; isar-display:show-consts t |
3006 ) |
3008 ) |
3007 |
3009 |
3008 (eval-after-load 'proof |
3010 (my--eval-after-load proof |
3009 '(progn |
3011 '(progn |
3010 ;; (proof-maths-menu-toggle 1) |
3012 ;; (proof-maths-menu-toggle 1) |
3011 ;; (unicode-tokens-mode 1) |
3013 ;; (unicode-tokens-mode 1) |
3012 ;; (proof-imenu-toggle 1) |
3014 ;; (proof-imenu-toggle 1) |
3013 )) |
3015 )) |
3014 (eval-after-load 'isar |
3016 (my--eval-after-load isar |
3015 '(progn |
3017 '(progn |
3016 (define-key isar-mode-map (kbd "C-c C-m") 'proof-goto-point) |
3018 (define-key isar-mode-map (kbd "C-c C-m") 'proof-goto-point) |
3017 )) |
3019 )) |
3018 |
3020 |
3019 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3021 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |