equal
deleted
inserted
replaced
1804 ;; message-signature-directory |
1804 ;; message-signature-directory |
1805 mailcap-download-directory "~/.gnus/mailcap" |
1805 mailcap-download-directory "~/.gnus/mailcap" |
1806 nnml-directory "~/.gnus/nnml-mail" |
1806 nnml-directory "~/.gnus/nnml-mail" |
1807 spam-directory "~/.gnus/spam/" |
1807 spam-directory "~/.gnus/spam/" |
1808 smime-certificate-directory "~/.gnus/certs/" |
1808 smime-certificate-directory "~/.gnus/certs/" |
1809 nnfolder-directory "~/.gnus/archive" |
1809 ;; nnfolder-directory "~/.gnus/archive" |
1810 nnfolder-active-file "~/.gnus/archive/active" |
1810 ;; nnfolder-active-file "~/.gnus/archive/active" |
1811 ) |
1811 ) |
1812 |
1812 |
1813 ;; Remove gnus-ignored-newsgroups to show all GMail folders. |
1813 ;; Remove gnus-ignored-newsgroups to show all GMail folders. |
1814 (setq gnus-ignored-newsgroups "some-non-existing") |
1814 (setq gnus-ignored-newsgroups "some-non-existing") |
1815 |
1815 |
2323 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2323 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2324 (message "indenting") |
2324 (message "indenting") |
2325 |
2325 |
2326 (setq standard-indent 4) |
2326 (setq standard-indent 4) |
2327 (setq c-basic-offset 4) |
2327 (setq c-basic-offset 4) |
2328 (setq sh-basic-offset 2) |
|
2329 (setq sgml-basic-offset 4) |
|
2330 |
2328 |
2331 (when (fboundp 'electric-indent-mode) |
2329 (when (fboundp 'electric-indent-mode) |
2332 (electric-indent-mode -1)) |
2330 (electric-indent-mode -1)) |
2333 |
2331 |
2334 ;; TAB (tab settings) |
2332 ;; TAB (tab settings) |
2463 |
2461 |
2464 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'. |
2462 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'. |
2465 |
2463 |
2466 (eval-when 'compile |
2464 (eval-when 'compile |
2467 (require 'cedet nil t) |
2465 (require 'cedet nil t) |
|
2466 (require 'srecode nil t) |
2468 (require 'semantic nil t) |
2467 (require 'semantic nil t) |
2469 (require 'semantic/idle nil t) |
2468 (require 'semantic/idle nil t) |
2470 (require 'ede/linux nil t)) |
2469 (require 'ede/linux nil t)) |
2471 |
2470 |
2472 (eval-and-compile |
2471 (eval-and-compile |
3154 (add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode)) |
3153 (add-to-list 'auto-mode-alist '("\\.mustache\\'" . web-mode)) |
3155 (add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode)) |
3154 (add-to-list 'auto-mode-alist '("\\.djhtml\\'" . web-mode)) |
3156 (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) ) |
3155 (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) ) |
3157 |
3156 |
3158 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3157 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
3158 (message "sgml") |
|
3159 |
|
3160 (eval-when 'compile (require 'sgml-mode)) |
|
3161 |
|
3162 (setq sgml-basic-offset 4) |
|
3163 |
|
3164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3159 (message "psgml") |
3165 (message "psgml") |
3160 |
3166 |
3161 (setq my-html-template |
3167 (eval-when 'compile (require 'psgml nil t)) |
|
3168 |
|
3169 (defvar my-html-template |
3162 '("html" |
3170 '("html" |
3163 (nil |
3171 (nil |
3164 "\n<head>" \n |
3172 "\n<head>" \n |
3165 "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-string "Charset: ") "\">" \n |
3173 "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=" (read-string "Charset: ") "\">" \n |
3166 "<title>" (setq str (read-string "Title: ")) "</title>\n" |
3174 "<title>" (setq str (read-string "Title: ")) "</title>\n" |
3168 "<body>\n<h1>" str "</h1>" |
3176 "<body>\n<h1>" str "</h1>" |
3169 "\n<address>" \n |
3177 "\n<address>" \n |
3170 "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n |
3178 "<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n |
3171 "</address>" \n |
3179 "</address>" \n |
3172 "</body>\n" |
3180 "</body>\n" |
3173 )) |
3181 ))) |
3174 ) |
3182 |
3175 |
|
3176 (setq sgml-set-face t) ; for highlighting in sgml |
|
3177 (my--eval-after-load sgml-mode |
3183 (my--eval-after-load sgml-mode |
3178 (unless (featurep 'psgml) |
3184 (unless (featurep 'psgml) |
3179 (setq html-tag-alist |
3185 (setq html-tag-alist |
3180 (cons |
3186 (cons |
3181 my-html-template |
3187 my-html-template |
3203 (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . jsp-mode))) |
3209 (add-to-list 'auto-mode-alist '("\\.jspf?\\'" . jsp-mode))) |
3204 |
3210 |
3205 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3211 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3206 (message "sh, bash") |
3212 (message "sh, bash") |
3207 |
3213 |
|
3214 (eval-when 'compile (require 'sh-script)) |
|
3215 |
|
3216 (setq sh-basic-offset 2) |
|
3217 |
3208 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode)) |
3218 (add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode)) |
3209 |
3219 |
3210 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3220 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3211 (message "pg, Proof General") |
3221 (message "pg, Proof General") |
|
3222 |
|
3223 (eval-when 'compile (require 'proof nil t)) |
3212 |
3224 |
3213 (setq proof-splash-enable nil) |
3225 (setq proof-splash-enable nil) |
3214 ;; (setq proof-toolbar-enable nil) |
3226 ;; (setq proof-toolbar-enable nil) |
3215 |
3227 |
3216 (setq |
3228 (setq |