]> git.donarmstrong.com Git - emacs.git/blobdiff - .emacs
move reftex stuff out
[emacs.git] / .emacs
diff --git a/.emacs b/.emacs
index 2ab8315cfcc03cba59a72e60420dc46a471e7205..bc51d72ec0baa5cb26ed4a040a5be65b73a0fac4 100644 (file)
--- a/.emacs
+++ b/.emacs
 (fset 'perl-mode 'cperl-mode)
 ;;(load-file "cperl-mode.el")
 (add-to-list 'load-path '"~/lib/emacs_el/configuration/")
-(add-to-list 'load-path '"~/lib/emacs_el/")
-;; this is the tiny-tools module from https://github.com/jaalto/project--emacs-tiny-tools.git
-(add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/tiny")
-(add-to-list 'load-path '"~/lib/emacs_el/tiny-tools/lisp/other")
-;;(add-to-list 'Tex-style-path '"~/lib/emacs_el/auctex/")
-
-;; From http://www.emacswiki.org/emacs/LoadingLispFiles
-;; execute conditional code when loading libraries
-(defmacro with-library (symbol &rest body)
-  `(when (require ,symbol nil t)
-     ,@body))
-(put 'with-library 'lisp-indent-function 1)
-
-;; load tinyprocmail
-(with-library tinyprocmail
-  (setq tinyprocmail--procmail-version "v3.22")
-  (add-hook 'tinyprocmail--load-hook 'tinyprocmail-install))
+(require 'don-configuration)
 
 (require 'vcl-mode)
 
 (require 'tex-site)
 ;;(require 'psvn)
-(require 'cperl-mode)
 ;;(require 'ecasound)
 ;;(require 'emacs-wiki)
 (require 'bibtex)
                              (lambda () (html-mode) (auto-fill-mode)))
                            auto-mode-alist))
 
-;; Use c-mode for perl .xs files
-(add-to-list 'auto-mode-alist '("\\.xs\\'" . c-mode))
-(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
-(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
-(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
-(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))
 
 ; use markdown mode for mdwn files
 (add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode))
+(add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))
 
 
-
+;; tramp configuration
+(setq tramp-use-ssh-controlmaster-options nil)
 
 ; mail configuration
 (add-to-list 'auto-mode-alist '("muttng-[a-z0-9]+-[0-9]+-" . message-mode))
@@ -165,9 +144,6 @@ Argument DESCRIPTION MIME description."
 (global-unset-key "\M-g")
 (global-set-key "\M-g" 'goto-line)
 
-;;(autoload 'perl-mode "cperl-mode"
-;;  "alternate mode for editing Perl programs" t)
-
 ;; self-insert-command hack.
 ;;   Without this, "if<SP>" expands to
 ;;   if ( -!-) {
@@ -175,20 +151,6 @@ Argument DESCRIPTION MIME description."
 ;;   which really should be,
 ;;   if (-!-) {
 ;;   }
-(setq cperl-hairy t
-      cperl-indent-level 4
-      cperl-auto-newline nil
-      cperl-auto-newline-after-colon nil
-      cperl-continued-statement-offset 4
-      cperl-brace-offset -1
-      cperl-continued-brace-offset 0
-      cperl-label-offset -4
-      cperl-highlight-variables-indiscriminately t
-      cperl-electric-lbrace-space nil
-      cperl-indent-parens-as-block nil
-      cperl-close-paren-offset -1
-      cperl-tab-always-indent t)
-;(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "PerlStyle")))
 
 
 
@@ -211,75 +173,6 @@ Argument DESCRIPTION MIME description."
 ;; (add-to-list 'auto-mode-alist '("\\.php?\\'" . php-mode))
 ;; (add-to-list 'auto-mode-alist '("\\.php4?\\'" . php-mode))
 
-;; 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)
-(autoload 'turn-on-reftex  "reftex" "RefTeX Minor Mode" nil)
-(autoload 'reftex-citation "reftex-cite" "Make citation" nil)
-(autoload 'reftex-index-phrase-mode "reftex-index" "Phrase mode" t)
-(add-hook 'LaTeX-mode-hook 'turn-on-reftex)   ; with AUCTeX LaTeX mode
-(add-hook 'latex-mode-hook 'turn-on-reftex)   ; with Emacs latex mode
-(add-hook 'LaTeX-mode-hook 'outline-minor-mode)   ; with AUCTeX LaTeX mode
-(add-hook 'latex-mode-hook 'outline-minor-mode)   ; with Emacs latex mode
-
-; use smart quotes by default instead of `` and ''
-; taken from http://kieranhealy.org/esk/kjhealy.html
-(setq TeX-open-quote "“")
-(setq TeX-close-quote "”")
-
-;; (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)
-(setq font-latex-match-reference-keywords
-      '(
-        ("fref" "{")
-        ("Fref" "{")
-        ("citep" "{")
-        ("citet" "{")
-        ("acs" "{")
-        ("acsp" "{")
-        ("ac" "{")
-        ("acp" "{")
-        ("acl" "{")
-        ("aclp" "{")
-        ("acsu" "{")
-        ("aclu" "{")
-        ("acused" "{")
-;         ))
-; (setq font-latex-match-warning-keywords
-;       '(
-        ("DLA" "{")
-        ("RZ" "{")
-        ("OM" "{")
-        ("DL" "{")
-        ("fixme" "{")))
-      
-(setq-default TeX-parse-self t)
-(setq-default TeX-auto-save t)
-(setq-default TeX-master nil)
-
-;; this doesn't seem to work; not currently sure why
-; (setq font-latex-user-keyword-classes
-;       '(("my-warning-commands"
-;          (("DLA" "{")
-;           ("RZ" "{")
-;           ("OM" "{")
-;           ("DL" "{")
-;           ("fixme" "{")
-;           )
-;          (:foreground "red" :weight bold :underline (:color foreground-color :style line)))
-;         ))
-
 
 (defun insert-date ()
   "Insert date at point."
@@ -301,9 +194,6 @@ Argument DESCRIPTION MIME description."
 
 (require 'mode-compile)
 
-(setq-default reftex-default-bibliography
-      '("~/projects/research/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."
@@ -373,10 +263,10 @@ Argument DESCRIPTION MIME description."
 (add-hook 'c-mode-common-hook 'flyspell-prog-mode)
 (add-hook 'cperl-mode-hook 'flyspell-prog-mode)
 (add-hook 'tcl-mode-hook 'flyspell-prog-mode)
-(defun turn-on-flyspell ()
-   "Force flyspell-mode on using a positive arg.  For use in hooks."
-   (interactive)
-   (flyspell-mode 1))
+(defun turn-on-flyspell ()
+   "Force flyspell-mode on using a positive arg.  For use in hooks."
+   (interactive)
+   (flyspell-mode 1))
 
 
  ; Outline-minor-mode key map
@@ -587,3 +477,4 @@ Argument DESCRIPTION MIME description."
         (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
         (add-to-list 'minor-mode-map-alist mykeys))))
 (ad-activate 'load)
+(global-set-key "\M- " 'hippie-expand)