X-Git-Url: https://git.donarmstrong.com/?p=home-base.git;a=blobdiff_plain;f=.emacs;h=fcf8f011f12efd7c52459de649f273473e4e6aae;hp=1a9953df5a7475b20cb3dc5f74606a02d72aa99e;hb=ca7a5a576fdfca91c587c6587242737bb89ade3a;hpb=32b4d58f31a89f1f9b2cec3e8b029c135ad353c8 diff --git a/.emacs b/.emacs index 1a9953d..fcf8f01 100644 --- a/.emacs +++ b/.emacs @@ -25,7 +25,7 @@ '(log-edit-keep-buffer t) '(mail-user-agent (quote sendmail-user-agent)) '(mutt-alias-file-list (quote ("~/.mutt/aliases" "~/.mail_aliases"))) - '(org-agenda-files (quote ("~/projects/debbugs/notes.org" "~/projects/notes/notes.org" "~/projects/origins_of_life/paper/figure_list.org" "~/projects/origins_of_life/notes.org" "~/projects/sysadmin/sndservers/notes.org"))) + '(org-agenda-files (quote ("~/projects/debbugs/notes.org" "~/projects/notes/notes.org" "~/projects/origins_of_life/paper/figure_list.org" "~/projects/origins_of_life/notes.org" "~/projects/sysadmin/sndservers/notes.org" "~/projects/chaim/notes.org" "~/projects/fh/notes.org"))) '(post-email-address "don@donarmstrong.com") '(post-kill-quoted-sig nil) '(post-mail-message "mutt\\(ng\\|\\)-[a-z0-9]+-[0-9]+-.*") @@ -161,6 +161,8 @@ (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 "OM") +(add-to-list 'font-latex-match-function-keywords "DL") (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") @@ -282,9 +284,9 @@ ;;; outlining support for ess modes (add-hook 'ess-mode-hook - '(lambda () - (outline-minor-mode) - (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)") - (defun outline-level - (lambda () (interactive) (cond ((looking-at "^##### ") 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3) (t 1000))) + '(lambda () + (outline-minor-mode) + (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)") + (defun outline-level + (lambda () (interactive) (cond ((looking-at "^##### ") 1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3) (t 1000))) ))) \ No newline at end of file