Add .emacs and .wl

2 files changed, 226 insertions, 0 deletions

diff --git a/emacs b/emacs
new file mode 100644
index 0000000..2b34a07
--- /dev/null
+++ b/emacs
@@ -0,0 +1,149 @@
+(load-file "/usr/share/emacs/site-lisp/cedet/cedet-devel-load.el")
+(require 'cedet)
+(require 'semantic/ia)
+
+(require 'semantic/bovine/gcc)
+(require 'semantic/bovine/c)
+(require 'semantic/bovine/clang)
+(semantic-clang-activate)
+
+(semantic-mode)
+(semantic-load-enable-code-helpers)
+
+(global-ede-mode t)
+
+(add-to-list 'load-path "~/.emacs.d")
+
+(add-to-list 'load-path "/usr/share/emacs/site-lisp/auto-complete")
+(require 'auto-complete-config)
+(add-to-list 'ac-dictionary-directories "/usr/share/emacs/site-lisp/auto-complete/ac-dict")
+(ac-config-default)
+(setq ac-auto-show-menu nil)
+(define-key ac-mode-map (kbd "M-TAB") 'auto-complete)
+
+(require 'ace-jump-mode)
+(define-key global-map (kbd "C-c SPC") 'ace-jump-mode)
+
+;(load "/usr/share/Agda-2.2.8/emacs-mode/agda2.el")
+
+(setq whitespace-style '(face trailing indentation space-after-tab space-before-tab))
+(global-whitespace-mode t)
+;(defun whitespace-post-command-hook() nil)
+;(setq whitespace-post-command-hook (lambda () nil))
+
+(require 'rect-mark)
+(global-set-key (kbd "C-x r C-SPC") 'rm-set-mark)
+(global-set-key (kbd "C-x r C-x")   'rm-exchange-point-and-mark)
+(global-set-key (kbd "C-x r C-w")   'rm-kill-region)
+(global-set-key (kbd "C-x r M-w")   'rm-kill-ring-save)
+
+(setq auto-mode-alist (cons '("\.lua$" . lua-mode) auto-mode-alist))
+(autoload 'lua-mode "lua-mode" "Lua editing mode." t)
+
+;(load "sml-mode/sml-mode-startup.el")
+
+(load "auctex.el" nil t t)
+(load "preview-latex.el" nil t t)
+
+(add-to-list 'load-path "/usr/share/emacs/site-lisp/cc-mode")
+(load "cc-mode.el" nil t t)
+
+(autoload 'flex-mode "flex-mode.el" "Flex mode." t)
+(autoload 'bison-mode "bison-mode.el" "Bison mode." t)
+
+(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-mode")
+(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
+(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
+
+;(setq erlang-root-dir "/usr/lib/erlang")
+;(setq exec-path (cons "/usr/lib/erlang/bin" exec-path))
+;(require 'erlang-start)
+
+;(add-to-list 'load-path (expand-file-name "~/.emacs.d"))
+;(autoload 'vala-mode "vala-mode" "Major mode for editing Vala code." t)
+;(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode))
+;(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode))
+;(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
+;(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8))
+
+(defun c-setup ()
+  (setq indent-tabs-mode t)
+  (setq c-basic-offset 8)
+  (setq tab-width 8)
+  (setq ac-sources '(ac-source-words-in-buffer ac-source-gtags ac-source-semantic)))
+
+;(add-hook 'vala-mode-hook 'c-setup)
+(add-hook 'c-mode-hook 'c-setup)
+(add-hook 'c++-mode-hook 'c-setup)
+(add-hook 'java-mode-hook 'c-setup)
+
+(autoload 'php-mode "php-mode.el" "Php mode." t)
+(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))
+
+(require 'cmake-mode)
+(setq auto-mode-alist
+      (append '(("CMakeLists\\.txt\\'" . cmake-mode)
+		("\\.cmake\\'" . cmake-mode))
+	      auto-mode-alist))
+
+
+
+(cond ((fboundp 'global-font-lock-mode)
+       ;; Turn on font-lock in all modes that support it
+       (global-font-lock-mode t)
+       ;; Maximum colors
+       (setq font-lock-maximum-decoration t)))
+
+(setq auto-mode-alist (cons '("\.po\'\|\.po\." . po-mode) auto-mode-alist))
+(autoload 'po-mode "po-mode" "Major mode for translators to edit PO files" t)
+
+(setq TeX-auto-save t)
+(setq TeX-parse-self t)
+(setq-default TeX-master nil)
+(setq TeX-newline-function 'newline-and-indent)
+(setq TeX-view-program-list '(("Zathura" "zathura %o")))
+(setq TeX-view-program-selection '((output-pdf "Zathura")))
+(eval-after-load "tex"
+  '(add-to-list 'TeX-command-list '("Make" "make" TeX-run-command nil t)))
+
+;(require 'tramp)
+;(setq tramp-default-method "scp")
+
+(column-number-mode t)
+(show-paren-mode t)
+
+;(global-set-key "\C-cl" 'org-store-link)
+;(global-set-key "\C-ca" 'org-agenda)
+(global-font-lock-mode 1)
+
+(custom-set-variables
+  ;; 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.
+ '(TeX-PDF-mode t)
+ '(ecb-options-version "2.32")
+ '(org-agenda-files (quote ("~/Privat/Termine.org")))
+ '(safe-local-variable-values (quote ((py-indent-offset . 4))))
+ '(scroll-bar-mode nil)
+ '(transient-mark-mode (quote (only . t))))
+
+(server-start)
+
+(desktop-save-mode t)
+(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.
+ )
+
+(ede-cpp-root-project "gmrf"
+		      :name "GMRF"
+		      :file "~/Devel/C/gmrf/gmrf/CMakeLists.txt"
+		      :include-path '("/include"))
+
+(ede-cpp-root-project "gmrf-proto-babel"
+		      :name "GMRF/proto/babel"
+		      :file "~/Devel/C/gmrf/proto-babel/CMakeLists.txt"
+		      :system-include-path '("~/Devel/C/gmrf/gmrf/include"))
diff --git a/wl b/wl
new file mode 100644
index 0000000..49a001f
--- /dev/null
+++ b/wl
@@ -0,0 +1,77 @@
+(setq frame-title-format '("" "Wanderlust"))
+
+(setq elmo-imap4-default-server "mail.universe-factory.net"
+      elmo-imap4-default-user "mschiffer@universe-factory.net"
+      elmo-imap4-default-authenticate-type 'clear
+      elmo-imap4-default-port '143
+      elmo-imap4-default-stream-type 'starttls
+
+      ;;for non ascii-characters in folder-names
+      elmo-imap4-use-modified-utf7 t)
+
+(setq wl-smtp-connection-type 'starttls
+      wl-smtp-posting-port 587
+      wl-smtp-authenticate-type "plain"
+      wl-smtp-posting-user "mschiffer@universe-factory.net"
+      wl-smtp-posting-server "mail.universe-factory.net"
+      wl-local-domain "universe-factory.net"
+      wl-message-id-domain "chaos.universe-factory.net")
+
+(setq wl-from "Matthias Schiffer <mschiffer@universe-factory.net>"
+      wl-default-folder "%INBOX"
+      wl-default-spec "%")
+
+(setq wl-summary-always-sticky-folder-list t
+      wl-summary-width 150
+      wl-summary-persistent-mark-priority-list '(killed
+						 flag
+						 new
+						 unread
+						 answered
+						 forwarded))
+
+(setq elmo-folder-update-threshold nil)
+
+(defadvice wl-summary-mode (after wl-summary-mode-nobidi)
+  (setq bidi-display-reordering nil))
+(ad-activate 'wl-summary-mode)
+
+;; (defun wl-summary-update-persistent-mark (number)
+;;   (wl-summary-rescan-message number)
+;;   t)
+
+;; (defun wl-summary-persistent-mark-invalid-p () t)
+
+;; (defun extended-persistent-mark ()
+;;   (let ((flags (elmo-message-status-flags wl-status))
+;; 	(cached (elmo-message-status-cached-p wl-status)))
+;;     (concat
+;;      (cond ((memq 'killed flags) "X")
+;; 	   ((memq 'flag flags) "$")
+;; 	   ((memq 'new flags) "N")
+;; 	   ((memq 'unread flags) "u")
+;; 	   (t " "))
+;;      (if (memq 'answered flags) wl-summary-answered-cached-mark " ")
+;;      (if (memq 'forwarded flags) "f" " "))))
+(defun extended-persistent-mark () (or wl-persistent-mark " "))
+;;(defun extended-persistent-mark () " ")
+
+(add-to-list 'wl-summary-line-format-spec-alist '(?X (extended-persistent-mark)))
+(setq wl-summary-line-format "%n%T%X %Y/%M/%D (%W) %h:%m %t%[%25(%c %f%) %] %s")
+
+(defadvice wl-message-buffer-display (before wl-message-buffer-display-unread)
+  (setq unread t))
+(ad-activate 'wl-message-buffer-display)
+
+
+(defadvice elmo-folder-unset-flag (before elmo-folder-unset-flag-nounread (folder numbers flag
+										  &optional is-local))
+  (when (eq flag 'unread) (setq flag 'new)))
+
+(defadvice wl-summary-redisplay-internal (around wl-summary-redisplay-internal-unread)
+  (unwind-protect
+      (progn
+	(ad-activate 'elmo-folder-unset-flag)
+	ad-do-it)
+    (ad-deactivate 'elmo-folder-unset-flag)))
+(ad-activate 'wl-summary-redisplay-internal)