Permalink
Browse files

Initial checkin.

  • Loading branch information...
0 parents commit bfe30c60b702b6a8064cc55d3c1a08e433f845fb @jlouis committed May 4, 2009
Showing with 70,844 additions and 0 deletions.
  1. 0 abbrev_defs
  2. 0 auto-save-list/.saves-5354-jlouis-desktop.nin.netpointers.com~
  3. +3 −0 configs/browse-kill-ring-setup.el
  4. +30 −0 configs/c-mode-setup.el
  5. +118 −0 configs/color-theme-setup.el
  6. +2 −0 configs/diredx-setup.el
  7. +1 −0 configs/dpaste-setup.el
  8. +27 −0 configs/epa-setup.el
  9. +1 −0 configs/gist-setup.el
  10. +67 −0 configs/global.el
  11. +36 −0 configs/hippie-expand-setup.el
  12. +4 −0 configs/ido-setup.el
  13. +4 −0 configs/js2-setup.el
  14. +43 −0 configs/local-site.el
  15. +7 −0 configs/nxml-setup.el
  16. +5 −0 configs/org-setup.el
  17. +1 −0 configs/proof-general-setup.el
  18. +7 −0 configs/sml-setup.el
  19. +23 −0 configs/tex-code.el
  20. +3 −0 configs/tramp-setup.el
  21. +29 −0 configs/tuareg-setup.el
  22. +3 −0 configs/twelf-setup.el
  23. +37 −0 custom.el
  24. +63 −0 init.el
  25. +1,038 −0 vendor/browse-kill-ring.el
  26. +94 −0 vendor/dpaste.el
  27. +215 −0 vendor/gist.el
  28. +11,659 −0 vendor/js2.el
  29. BIN vendor/js2.elc
  30. +153 −0 vendor/lorem-ipsum.el
  31. +154 −0 vendor/org-mode/CONTRIB/lisp/org-bibtex.el
  32. +308 −0 vendor/org-mode/CONTRIB/lisp/org-iq.el
  33. +90 −0 vendor/org-mode/CONTRIB/lisp/org-iswitchb.el
  34. +72 −0 vendor/org-mode/CONTRIB/lisp/org-mew.el
  35. +2,838 −0 vendor/org-mode/ChangeLog
  36. +243 −0 vendor/org-mode/Makefile
  37. +21 −0 vendor/org-mode/README
  38. +18 −0 vendor/org-mode/dir
  39. +9,324 −0 vendor/org-mode/org
  40. +1,539 −0 vendor/org-mode/org-export-latex.el
  41. +579 −0 vendor/org-mode/org-install.el
  42. +232 −0 vendor/org-mode/org-irc.el
  43. +77 −0 vendor/org-mode/org-mac-message.el
  44. +1,110 −0 vendor/org-mode/org-mouse.el
  45. +655 −0 vendor/org-mode/org-publish.el
  46. +28,976 −0 vendor/org-mode/org.el
  47. BIN vendor/org-mode/org.pdf
  48. +8,822 −0 vendor/org-mode/org.texi
  49. BIN vendor/org-mode/orgcard.pdf
  50. +778 −0 vendor/org-mode/orgcard.tex
  51. BIN vendor/org-mode/orgcard_letter.pdf
  52. +44 −0 vendor/org-mode/request-assign-future.txt
  53. +15 −0 vendor/org-mode/xemacs/README
  54. +1,051 −0 vendor/org-mode/xemacs/noutline.el
  55. +225 −0 vendor/org-mode/xemacs/ps-print-invisible.el
No changes.
@@ -0,0 +1,3 @@
+;; browse kill ring
+(require 'browse-kill-ring)
+(browse-kill-ring-default-keybindings)
@@ -0,0 +1,30 @@
+;;; c-code.el ---
+
+;; Copyright (C) 2009 Jesper Louis Andersen
+
+;; Author: Jesper Louis Andersen <jesper.louis.andersen@gmail.com>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;
+
+;;; Code:
+(add-hook 'c-mode-common-hook
+ (lambda ()
+ (c-set-style "linux")))
+
+;;; c-code.el ends here
@@ -0,0 +1,118 @@
+; Color Theme
+(require 'color-theme)
+;(color-theme-initialize)
+
+
+(defun color-theme-jlouis ()
+ "Knuth's fvwm colors combined with tweaked deep-blue"
+ (interactive)
+ (color-theme-install
+ '(color-theme-jlouis
+ ((background-color . "#00002b")
+ (background-mode . dark)
+ (border-color . "black")
+ (cursor-color . "green")
+ (foreground-color . "#ffe97a")
+ (mouse-color . "white"))
+ ((browse-kill-ring-separator-face . bold)
+ (display-time-mail-face . mode-line)
+ (help-highlight-face . underline)
+ (list-matching-lines-face . secondary-selection)
+ (vc-annotate-very-old-color . "#0046FF")
+ (view-highlight-face . highlight)
+ (widget-mouse-face . highlight))
+ (default ((t (:stipple nil :background "#102e4e" :foreground "#eeeeee" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :family "misc-fixed"))))
+ (Info-title-1-face ((t (:bold t :weight bold :family "helv" :height 1.728))))
+ (Info-title-2-face ((t (:bold t :family "helv" :weight bold :height 1.44))))
+ (Info-title-3-face ((t (:bold t :weight bold :family "helv" :height 1.2))))
+ (Info-title-4-face ((t (:bold t :family "helv" :weight bold))))
+ (bold ((t (:bold t :weight bold))))
+ (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
+ (border ((t (:background "black"))))
+ (calendar-today-face ((t (:background "blue"))))
+ (change-log-acknowledgement-face ((t (:italic t :slant italic :foreground "CadetBlue"))))
+ (change-log-conditionals-face ((t (:foreground "SeaGreen2"))))
+ (change-log-date-face ((t (:foreground "#ad7fa8"))))
+ (change-log-email-face ((t (:foreground "SeaGreen2"))))
+ (change-log-file-face ((t (:bold t :weight bold :foreground "goldenrod"))))
+ (change-log-function-face ((t (:foreground "SeaGreen2"))))
+ (change-log-list-face ((t (:bold t :weight bold :foreground "#729fcf"))))
+ (change-log-name-face ((t (:foreground "gold"))))
+ (comint-highlight-input ((t (:bold t :weight bold))))
+ (comint-highlight-prompt ((t (:foreground "cyan"))))
+ (cursor ((t (:background "green" :foreground "black"))))
+ (cvs-filename-face ((t (:foreground "lightblue"))))
+ (cvs-handled-face ((t (:foreground "pink"))))
+ (cvs-header-face ((t (:bold t :foreground "lightyellow" :weight bold))))
+ (cvs-marked-face ((t (:bold t :foreground "green" :weight bold))))
+ (cvs-msg-face ((t (:italic t :slant italic))))
+ (cvs-need-action-face ((t (:foreground "orange"))))
+ (cvs-unknown-face ((t (:foreground "red"))))
+ (diary-face ((t (:foreground "orange red"))))
+ (diff-added-face ((t (nil))))
+ (diff-changed-face ((t (nil))))
+ (diff-context-face ((t (:foreground "grey70"))))
+ (diff-file-header-face ((t (:bold t :background "grey60" :weight bold))))
+ (diff-function-face ((t (:foreground "grey70"))))
+ (diff-header-face ((t (:background "grey45"))))
+ (diff-hunk-header-face ((t (:background "grey45"))))
+ (diff-index-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-nonexistent-face ((t (:bold t :weight bold :background "grey60"))))
+ (diff-removed-face ((t (nil))))
+ (fixed-pitch ((t (:family "fixed"))))
+ (font-latex-bold-face ((t (:bold t :foreground "OliveDrab" :weight bold))))
+ (font-latex-italic-face ((t (:italic t :foreground "OliveDrab" :slant italic))))
+ (font-latex-math-face ((t (:foreground "#ad7fa8"))))
+ (font-latex-sedate-face ((t (:foreground "LightGray"))))
+ (font-latex-string-face ((t (:foreground "LightSalmon"))))
+ (font-latex-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
+ (font-lock-builtin-face ((t (:foreground "LightCoral"))))
+ (font-lock-comment-face ((t (:italic t :foreground "CadetBlue" :slant italic))))
+ (font-lock-constant-face ((t (:foreground "gold"))))
+ (font-lock-doc-face ((t (:foreground "BlanchedAlmond"))))
+ (font-lock-doc-string-face ((t (:foreground "BlanchedAlmond"))))
+ (font-lock-function-name-face ((t (:bold t :foreground "goldenrod" :weight bold))))
+ (font-lock-keyword-face ((t (:bold t :foreground "#729fcf" :weight bold))))
+ (font-lock-preprocessor-face ((t (:foreground "gold"))))
+ (font-lock-reference-face ((t (:foreground "LightCoral"))))
+ (font-lock-string-face ((t (:foreground "#ad7fa8"))))
+ (font-lock-type-face ((t (:foreground "CadetBlue1"))))
+ (font-lock-variable-name-face ((t (:foreground "SeaGreen2"))))
+ (font-lock-warning-face ((t (:foreground "yellow"))))
+ (fringe ((t (:background "#405060"))))
+ (header-line ((t (:box (:line-width 2 :style released-button) :background "grey20" :foreground "grey90" :box nil))))
+ (highlight ((t (:background "darkgreen"))))
+ (holiday-face ((t (:foreground "green"))))
+ (info-header-node ((t (:foreground "#729fcf"))))
+ (info-header-xref ((t (:bold t :weight bold :foreground "SeaGreen2"))))
+ (info-menu-5 ((t (:foreground "wheat"))))
+ (info-menu-header ((t (:bold t :family "helv" :weight bold))))
+ (info-node ((t (:foreground "#729fcf"))))
+ (info-xref ((t (:bold t :foreground "SeaGreen2" :weight bold))))
+ (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
+ (isearch-lazy-highlight-face ((t (:background "#668b8b"))))
+ (italic ((t (:italic t :slant italic))))
+ (menu ((t (:background "gray" :foreground "black" :family "helvetica"))))
+ (modeline ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-buffer-id ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-mousable ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (modeline-mousable-minor-mode ((t (:background "gray" :foreground "black" :box (:line-width 2 :style released-button)))))
+ (mouse ((t (:background "white"))))
+ (region ((t (:background "DarkCyan"))))
+ (scroll-bar ((t (:background "gray" :foreground "#506070"))))
+ (secondary-selection ((t (:background "yellow" :foreground "gray10"))))
+ (show-paren-match-face ((t (:bold t :foreground "yellow" :weight bold))))
+ (show-paren-mismatch-face ((t (:bold t :foreground "red" :weight bold))))
+ (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
+ (tooltip ((t (:background "lightyellow" :foreground "black"))))
+ (trailing-whitespace ((t (:background "#102e4e"))))
+ (underline ((t (:underline t))))
+ (variable-pitch ((t (:family "helv"))))
+ (widget-button-face ((t (:bold t :weight bold))))
+ (widget-button-pressed-face ((t (:foreground "red"))))
+ (widget-documentation-face ((t (:foreground "lime green"))))
+ (widget-field-face ((t (:background "dim gray"))))
+ (widget-inactive-face ((t (:foreground "light gray"))))
+ (widget-single-line-field-face ((t (:background "dim gray")))))))
+
+(color-theme-jlouis)
@@ -0,0 +1,2 @@
+;; Dired X mode
+(load "dired-x")
@@ -0,0 +1 @@
+(require 'dpaste)
@@ -0,0 +1,27 @@
+;;; epa.el ---
+
+;; Copyright (C) 2009 Jesper Louis Andersen
+
+;; Author: Jesper Louis Andersen <jesper.louis.andersen@gmail.com>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+(require 'epa)
+(epa-file-enable)
+
+;;; epa.el ends here
@@ -0,0 +1 @@
+(require 'gist)
@@ -0,0 +1,67 @@
+;;; global.el --- Global configuration
+
+;; Copyright (C) 2009 Jesper Louis Andersen
+
+;; Author: Jesper Louis Andersen <jesper.louis.andersen@gmail.com>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+(setq abbrev-file-name "~/.emacs.d/abbrev_defs")
+(global-font-lock-mode t)
+(setq font-lock-maximum-decoration t)
+
+(setq inhibit-startup-message t)
+(setq default-tab-width 8)
+(setq indent-tabs-mode nil)
+(set-language-environment "UTF-8")
+(setq slime-net-coding-system 'utf-8-unix)
+(set-terminal-coding-system 'utf-8-unix)
+
+(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
+
+(line-number-mode t)
+(setq mouse-yank-at-point t)
+
+(setq scroll-step 1)
+(setq ediff-merge-split-window-functon 'split-window-vertically)
+(setq ediff-window-setup-function 'ediff-setup-windows-plain)
+
+(setq mode-compile-always-save-buffer-p t)
+(setq compilation-window-height 12)
+
+(auto-compression-mode t)
+(auto-insert-mode t)
+(defvar next-line-add-newlines nil)
+
+(quietly-read-abbrev-file)
+(server-start)
+
+(autoload 'goto-last-change
+ "goto-last-change" "Set point to the position of the last change." t)
+
+;; Keybindings
+(global-set-key "\M-g" 'goto-line)
+(global-set-key "\C-z" 'undo)
+(global-set-key [f12] 'compile)
+(global-set-key (kbd "M-/") 'hippie-expand)
+(global-set-key "\C-w" 'backward-kill-word)
+(global-set-key "\C-x\C-k" 'kill-region)
+(global-set-key "\C-c\C-k" 'kill-region)
+
+
+;;; global.el ends here
@@ -0,0 +1,36 @@
+;;; hippie-expand.el ---
+
+;; Copyright (C) 2009 Jesper Louis Andersen
+
+;; Author: Jesper Louis Andersen <jesper.louis.andersen@gmail.com>
+;; Keywords:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+(require 'hippie-exp)
+(setq hippie-expand-try-functions-list '(try-expand-dabbrev
+ try-expand-dabbrev-all-buffers
+ try-expand-dabbrev-from-kill
+ try-complete-file-name-partially
+ try-complete-file-name
+ try-expand-all-abbrevs
+ try-expand-list
+ try-expand-line
+ try-complete-lisp-symbol-partially
+ try-complete-lisp-symbol))
+
+;;; hippie-expand.el ends here
@@ -0,0 +1,4 @@
+;; IDO mode
+(require 'ido)
+(ido-mode t)
+(setq ido-enable-flex-matching t)
@@ -0,0 +1,4 @@
+;; JS2 mode
+(autoload 'js2-mode "js2" nil t)
+(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
+
@@ -0,0 +1,43 @@
+(defun indent-whole-buffer ()
+ "Indent the whole buffer and make it nice to work on"
+ (interactive)
+ (delete-trailing-whitespace)
+ (indent-region (point-min) (point-max) nil)
+ (untabify (point-min) (point-max)))
+
+(defun replace-latex-danish-characters ()
+ "Replace Latex chars with danish chars"
+ (interactive)
+ (let ((start (point-min))
+ (end (point-max)))
+ (query-replace "\\aa{}" "å" nil start end)
+ (query-replace "\\AA{}" "Å" nil start end)
+ (query-replace "\\o{}" "ø" nil start end)
+ (query-replace "\\O{}" "Ø" nil start end)
+ (query-replace "\\ae{}" "æ" nil start end)
+ (query-replace "\\AE{}" "Æ" nil start end)))
+
+(defconst use-backup-dir t)
+(setq backup-directory-alist (quote ((".*" . "~/.emacs.local/backups/")))
+ version-control t
+ kept-new-versions 16
+ kept-old-versions 2
+ delete-old-versions t
+ backup-by-copying-when-linked t)
+
+(defun w-keys ()
+ (interactive)
+ (find-file "/home/jlouis/Dropbox/TODO/work-keys.org.gpg"))
+
+(defun w-gtd ()
+ (interactive)
+ (find-file "/home/jlouis/Dropbox/TODO/work-todo.org"))
+
+(defun keys ()
+ (interactive)
+ (find-file "/home/jlouis/Dropbox/TODO/keys.org.gpg"))
+
+(defun gtd ()
+ (interactive)
+ (find-file "/home/jlouis/Dropbox/TODO/todo.org"))
+
@@ -0,0 +1,7 @@
+(add-to-list 'auto-mode-alist
+ (cons (concat "\\."
+ (regexp-opt '("xml" "xsd" "sch" "rng"
+ "xslt" "svg" "rss") t) "\\'")
+ 'nxml-mode))
+(unify-8859-on-decoding-mode)
+(fset 'xml-mode 'nxml-mode)
@@ -0,0 +1,5 @@
+;; ORG Mode
+(require 'org-install)
+(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
+(global-set-key "\C-cl" 'org-store-link)
+(global-set-key "\C-ca" 'org-agenda)
@@ -0,0 +1 @@
+(load-file "/home/jlouis/hacking/ProofGeneral/generic/proof-site.el")
@@ -0,0 +1,7 @@
+;; SML catcher
+(require 'compile)
+(add-to-list 'compilation-error-regexp-alist
+ '("^Error: \\([^\t\n]*\\) \\([0-9]+\\)\\.\\([0-9]+\\)\\.$"
+ 1 2 3))
+
+(load "sml-mode-startup")
@@ -0,0 +1,23 @@
+;; Text mode
+(add-hook 'text-mode-hook
+ '(lambda ()
+ (auto-fill-mode)))
+
+;; LaTeX and TeX modes
+(load "auctex.el" nil t t)
+(load "preview-latex.el" nil t t)
+(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
+(add-hook 'tex-mode-hook 'turn-on-auto-fill)
+(add-hook 'text-mode-hook (lambda () (abbrev-mode 1)))
+(setq TeX-auto-save t)
+(setq TeX-parse-self t)
+(setq-default TeX-master nil)
+; make PDF by default (can toggle with C-c C-t C-p
+(add-hook 'TeX-mode-hook '(lambda () (TeX-PDF-mode 1)))
+; these math abbrevs (` as prefix char) are also useful in TeX/ConTeXt files
+(require 'latex) ; defines LaTeX-math-mode
+(add-hook 'TeX-mode-hook 'LaTeX-math-mode)
+; Emacs help for \label, \ref, \cite. Normally used only with
+; LaTeX-mode but also useful with plain TeX + eplain and with ConTeXt, so:
+(setq reftex-plug-into-AUCTeX t)
+(add-hook 'TeX-mode-hook 'reftex-mode)
Oops, something went wrong.

0 comments on commit bfe30c6

Please sign in to comment.