From 85b3d47bbf5e15cbdf1891fb334101d9f2ab0ff1 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sat, 20 Jul 2013 23:18:59 +0200 Subject: Add .emacs and .wl --- emacs | 149 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ wl | 77 ++++++++++++++++++++++++++++++++++ 2 files changed, 226 insertions(+) create mode 100644 emacs create mode 100644 wl 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 " + 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) -- cgit v1.2.3