X-Git-Url: https://git.donarmstrong.com/?p=home-base.git;a=blobdiff_plain;f=.emacs;h=414f60f9d0253dc3eda8c1e535542779b2f0a8d3;hp=753b167cd5113805a5081578656b874a1fb79349;hb=af0550ae9c1b74d3ddb6a8fe36fb86f4b6d11051;hpb=b7ba0f1d7c4c138136498cb928456aedffcc6248 diff --git a/.emacs b/.emacs index 753b167..414f60f 100644 --- a/.emacs +++ b/.emacs @@ -1,18 +1,26 @@ (custom-set-variables - ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. '(bibtex-user-optional-fields (quote (("annote" "Personal annotation (ignored)") ("abstract" "") ("pmid" "") ("doi" "")))) - '(calendar-latitude [33 57 north] t) - '(calendar-longitude [117 24 west] t) + '(calendar-latitude [33 57 north]) + '(calendar-longitude [117 24 west]) '(case-fold-search t) '(confirm-kill-emacs (quote y-or-n-p)) '(cperl-lazy-help-time nil) '(debian-changelog-mailing-address "don@debian.org") '(display-time t) '(display-time-24hr-format t) - '(display-time-mode t nil (time)) - '(global-auto-revert-mode t nil (autorevert)) + '(display-time-day-and-date t) + '(display-time-mode t) + '(font-latex-fontify-script nil) + '(font-latex-fontify-sectioning (quote color)) + '(font-latex-script-display (quote (nil))) + '(global-auto-revert-mode t) '(global-font-lock-mode t nil (font-lock)) + '(global-set-key "\347" t) + '(iswitchb-mode t) '(iswitchb-prompt-newbuffer nil) '(mail-user-agent (quote sendmail-user-agent)) '(mutt-alias-file-list (quote ("~/.mutt/aliases" "~/.mail_aliases"))) @@ -30,20 +38,27 @@ '(sentence-end "[.?!][]\"')]*\\($\\| \\| \\)[ ]*") '(sentence-end-double-space nil) - '(show-paren-mode t nil (paren)) + '(show-paren-mode t) '(tool-bar-mode nil nil (tool-bar)) '(user-mail-address "don@donarmstrong.com")) (fset 'perl-mode 'cperl-mode) ;;(load-file "cperl-mode.el") -(add-to-list 'load-path '"~/emacs_el/") +(add-to-list 'load-path '"~/lib/emacs_el/") +(add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/tiny") +(add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/other") +;;(add-to-list 'Tex-style-path '"~/lib/emacs_el/auctex/") + +(require 'tiny-setup) +(require 'tinyprocmail) (require 'tex-site) (require 'psvn) (require 'cperl-mode) ;;(require 'ecasound) +;;(require 'emacs-wiki) (require 'bibtex) (require 'post) - +;;(require 'fixme) (global-set-key "\C-xp" 'gnuserv-edit) @@ -61,7 +76,12 @@ (add-to-list 'auto-mode-alist '("muttng-[a-z0-9]+-[0-9]+-" . post-mode)) (add-to-list 'auto-mode-alist '("muttngrc" . muttrc-mode)) +(add-to-list 'auto-mode-alist '("mutt-[a-z0-9]+-[0-9]+-" . post-mode)) +(add-to-list 'auto-mode-alist '("muttrc" . muttrc-mode)) + +(global-unset-key "\M-g") +(global-set-key "\M-g" 'goto-line) ;;(autoload 'perl-mode "cperl-mode" ;; "alternate mode for editing Perl programs" t) @@ -83,11 +103,11 @@ cperl-highlight-variables-indiscriminately t cperl-electric-lbrace-space nil ) -(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "K&R"))) +(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "PerlStyle"))) -(load-library "php-mode") +;(load-library "php-mode") (setq c-indent-level 8) (setq c-brace-imaginary-offset 0) @@ -105,12 +125,6 @@ ;; (add-to-list 'auto-mode-alist '("\\.php?\\'" . php-mode)) ;; (add-to-list 'auto-mode-alist '("\\.php4?\\'" . php-mode)) -(custom-set-faces - ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! - ;; Your init file should contain only one such instance. - ) - - ;; REFTEX (much enhanced management of cross-ref, labels, etc) ;; http://www.strw.leidenuniv.nl/~dominik/Tools/reftex/ (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t) @@ -122,8 +136,40 @@ (add-hook 'LaTeX-mode-hook 'outline-minor-mode) ; with AUCTeX LaTeX mode (add-hook 'latex-mode-hook 'outline-minor-mode) ; with Emacs latex mode - - +;; (TeX-add-style-hook +;; "latex" +;; (lambda () +;; (TeX-add-symbols +;; '("DLA" 1)))) +;; (custom-set-variables +;; '(font-latex-user-keyword-classes +;; '(("fixme" +;; ("DLA" "RZ") +;; font-lock-function-name-face 2 (command 1 t)))) +;; ) + +(require 'font-latex) +(add-to-list 'font-latex-match-reference-keywords "fref") +(add-to-list 'font-latex-match-reference-keywords "Fref") +(add-to-list 'font-latex-match-reference-keywords "citep") +(add-to-list 'font-latex-match-reference-keywords "citet") +(font-latex-match-reference-make) +(add-to-list 'font-latex-match-function-keywords "DLA") +(add-to-list 'font-latex-match-function-keywords "RZ") +(add-to-list 'font-latex-match-function-keywords "fixme") +(add-to-list 'font-latex-match-function-keywords "acs") +(add-to-list 'font-latex-match-function-keywords "acsp") +(add-to-list 'font-latex-match-function-keywords "ac") +(add-to-list 'font-latex-match-function-keywords "acp") +(add-to-list 'font-latex-match-function-keywords "acl") +(add-to-list 'font-latex-match-function-keywords "aclp") +(add-to-list 'font-latex-match-function-keywords "acsu") +(add-to-list 'font-latex-match-function-keywords "aclu") +(add-to-list 'font-latex-match-function-keywords "acused") +(font-latex-match-function-make) +(setq TeX-parse-self t) +(setq TeX-auto-save t) +(setq-default TeX-master nil) (defun insert-date () "Insert date at point." @@ -131,7 +177,14 @@ (insert (format-time-string "%A, %B %e, %Y %k:%M:%S %Z"))) (global-set-key "\C-[d" 'insert-date) -(iswitchb-default-keybindings) +(defun unfill-paragraph (arg) + "Pull this whole paragraph up onto one line." + (interactive "*p") + (let ((fill-column 10000)) + (fill-paragraph arg)) + ) + +;(iswitchb-default-keybindings) (column-number-mode t) (setq reftex-plug-into-AUCTeX t) @@ -140,6 +193,9 @@ (require 'mode-compile) +(setq reftex-default-bibliography + '("references.bib")) + (defadvice server-process-filter (after post-mode-message first activate) "If the buffer is in post mode, overwrite the server-edit message with a post-save-current-buffer-and-exit message." @@ -163,9 +219,35 @@ ) (fset 'insert-function-documentation - [?\C-x ?i home ?\C-k ?/ ?h ?o ?m ?e ?/ ?d ?o ?n ?/ ?t ?e ?m ?p ?l ?a ?t ?e ?s ?/ ?p ?e ?r ?l ?_ ?f ?u ?n ?c ?t ?i ?o ?n ?_ ?d ?o ?c ?u ?m ?e ?n ?t ?a ?t ?i ?o ?n return]) + [?\C-x ?i home ?\C-k ?/ ?h ?o ?m ?e ?/ ?d ?o ?n ?/ ?l ?i ?b ?/ ?t ?e ?m ?p ?l ?a ?t ?e ?s ?/ ?p ?e ?r ?l ?_ ?f ?u ?n ?c ?t ?i ?o ?n ?_ ?d ?o ?c ?u ?m ?e ?n ?t ?a ?t ?i ?o ?n return]) (global-set-key "\M-f" 'insert-function-documentation) - + +(eval-after-load "lilypond-mode" + '(progn + (load-library "lyqi-mode") + (define-key LilyPond-mode-map "\C-cq" 'lyqi-mode))) + +(autoload 'spamassassin-mode "spamassassin-mode" nil t) (desktop-load-default) -(desktop-read) \ No newline at end of file +(desktop-read) +'(iswitchb-mode on) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(menu ((((type x-toolkit)) (:background "black" :foreground "grey90"))))) + +(defun ess-change-directory (path) + "Set the current working directory to PATH for both *R* and Emacs." + (interactive "DDirectory to change to: ") + + (when (file-exists-p path) + (ess-command (concat "setwd(\"" path "\")\n")) + ;; use file-name-as-directory to ensure it has trailing / + (setq default-directory (file-name-as-directory path)))) + +(put 'upcase-region 'disabled nil) + +(put 'downcase-region 'disabled nil)