;;; init.el --- ryuslash's emacs init ;;; Commentary: ;; Does so much and changes so often (require 'geiser-install) (require 'iso-transl) (require 'newcomment) (require 'uniquify) (require 'w3m-load) ;;; Code: (eval-and-compile (package-initialize) (mapc #'(lambda (directory) (add-to-list 'load-path directory) (let ((default-directory directory)) (normal-top-level-add-subdirs-to-load-path))) '("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp")) (add-to-list 'load-path "~/.emacs.d/")) (require 'ext) (require 'mode-icons) (require 'oni) (autoload 'define-slime-contrib "slime") (autoload 'gtags-mode "gtags" nil t) (autoload 'identica-mode "identica-mode" nil t) (autoload 'jabber-connect "jabber" nil t) (autoload 'mu4e "mu4e" nil t) (autoload 'php-mode "php-mode" nil t) (autoload 'po-mode "po-mode" nil t) (autoload 'pony-mode "pony-mode" nil t) (autoload 'sawfish-mode "sawfish" nil t) (autoload 'server-running-p "server") (autoload 'slime-js-minor-mode "slime-js" nil t) (autoload 'xmodmap-mode "xmodmap-mode" nil t) (load (expand-file-name "~/.emacs.d/site-lisp/loaddefs.el")) (define-key key-translation-map (kbd "C-j") (kbd "C-l")) (define-key key-translation-map (kbd "C-l") (kbd "C-j")) (defalias 'yes-or-no-p 'y-or-n-p) (eval-after-load "ebuff-menu" '(define-key electric-buffer-menu-mode-map (kbd "C-s") 'isearch-forward)) (eval-after-load "em-term" '(add-to-list 'eshell-visual-commands "unison")) (eval-after-load "emms-source-file" '(progn (require 'emms-setup) (emms-standard) (require 'emms-player-mpd) (setq emms-player-mpd-server-name "localhost") (setq emms-player-mpd-server-port "6600") (add-to-list 'emms-info-functions 'emms-info-mpd) (add-to-list 'emms-player-list 'emms-player-mpd) (setq emms-player-mpd-music-directory "/mnt/music/mp3"))) (eval-after-load "flymake" '(progn (require 'flymake-cursor) (add-to-list ; Make sure pyflakes is loaded 'flymake-allowed-file-name-masks ; for python files. '("\\.py\\'" ext:flymake-pyflakes-init)) (add-to-list ; Error line repexp for go 'flymake-err-line-patterns ; compilation. '("^\\([a-zA-Z0-9_]+\\.go\\):\\([0-9]+\\):\\(.*\\)$" 1 2 nil 3)) (add-to-list ; Go uses makefiles, makes 'flymake-allowed-file-name-masks ; flymaking 'easy'. '("\\.go$" flymake-simple-make-init)))) (eval-after-load "ido" '(setq ido-ignore-buffers `(,@ido-ignore-buffers "^\\*.*\\*$" "^irc\\." "^\\#"))) (eval-after-load "info" '(require 'info+)) (eval-after-load "org" '(progn (require 'appt) (require 'org-protocol) (require 'org-habit) (require 'org-contacts) (add-to-list 'org-modules 'habit) (org-indent-mode t) (org-agenda-to-appt) (ad-activate 'org-agenda-redo))) (eval-after-load "org-crypt" '(org-crypt-use-before-save-magic)) (eval-after-load "sauron" '(setq sauron-modules (append '(sauron-identica sauron-jabber) sauron-modules))) (eval-after-load "smex" '(progn (global-set-key (kbd "M-x") 'smex) (global-set-key (kbd "C-M-x") 'smex-major-mode-commands))) (oni:define-mailbox "aethon" (oni:email thomas at aethon dot nl) (expand-file-name "~/documents/work/aethon/signature.txt")) (oni:define-mailbox "gmail" (oni:email ryuslash at gmail dot com)) (oni:define-mailbox "ninthfloor" (oni:email ryuslash at ninthfloor dot org)) (oni:define-mailbox "ryuslash" (oni:email tom at ryuslash dot org) nil "ryuslash.org") (put 'upcase-region 'disabled nil) (put 'downcase-region 'disabled nil) (put 'narrow-to-region 'disabled nil) (put 'scroll-left 'disabled nil) (setq-default bidi-paragraph-direction 'left-to-right) (setq-default c-basic-offset 4) (setq-default fci-rule-column 73) (setq-default gac-automatically-push-p t) (setq-default indent-tabs-mode nil) (setq-default php-mode-warn-if-mumamo-off nil) (setq-default require-final-newline t) (setq-default tab-width 4) (setq-default truncate-lines t) (setq appt-display-diary nil) (setq auto-mode-case-fold nil) (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))) (setq avandu-article-render-function #'avandu-view-w3m) (setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq browse-url-browser-function 'browse-url-generic) (setq browse-url-generic-program (getenv "BROWSER")) (setq custom-file "~/.emacs.d/custom.el") (setq custom-theme-directory "~/.emacs.d/themes") (setq default-frame-alist `((border-width . 0) (internal-border-width . 0) (vertical-scroll-bars . nil) (menu-bar-lines . nil) (tool-bar-lines . nil) (font . "Monaco:pixelsize=16") (left-fringe . 0))) (setq emms-source-file-default-directory "/mnt/music/") (setq erc-autojoin-channels-alist '(("freenode.net" "#ninthfloor" "#emacs" "#dispass"))) (setq erc-hide-list '("JOIN" "PART" "QUIT")) (setq erc-insert-timestamp-function 'erc-insert-timestamp-left) (setq erc-nick "ryuslash") (setq erc-timestamp-format "[%H:%M] ") (setq erc-timestamp-only-if-changed-flag nil) (setq eshell-highlight-prompt nil) (setq eshell-prompt-function 'oni:eshell-prompt-function) (setq eshell-prompt-regexp "^[#$]> ") (setq fci-rule-color "darkred") (setq flymake-gui-warnings-enabled nil) (setq flymake-info-line-regexp (eval-when-compile (regexp-opt '("Invalid name")))) (setq flymake-log-file-name (expand-file-name "~/.emacs.d/flymake.log")) (setq flymake-log-level 0) (setq flymake-warn-line-regexp (eval-when-compile (regexp-opt '("warning" "Warning" "Missing docstring" "String statement has no effect" "No value passed for parameter" "imported but unused")))) (setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) (setq geiser-repl-history-filename "~/.emacs.d/geiser-history") (setq gtags-auto-update t) (setq help-at-pt-display-when-idle t) (setq ido-auto-merge-delay-time 1000000) (setq ido-default-buffer-method 'selected-window) (setq ido-max-window-height 1) (setq ido-save-directory-list-file nil) (setq ido-ubiquitous-command-exceptions '(oni:view-mail tmm-menubar)) (setq inferior-lisp-program "sbcl") (setq inhibit-default-init t) (setq inhibit-local-menu-bar-menus t) (setq inhibit-startup-message t) (setq initial-major-mode 'emacs-lisp-mode) (setq initial-scratch-message nil) (setq jabber-account-list '(("ryuslash@jabber.org"))) (setq jabber-chat-buffer-format "*jabber:%n*") (setq jabber-chat-buffer-show-avatar nil) (setq jabber-chat-fill-long-lines nil) (setq jabber-chat-foreign-prompt-format "%t < ") (setq jabber-chat-local-prompt-format "%t > ") (setq jabber-chatstates-confirm nil) (setq jabber-history-dir "~/.emacs.d/jabber") (setq jabber-roster-show-bindings nil) (setq jit-lock-defer-time 0.2) (setq mail-header-separator "") (setq message-log-max 1000) (setq message-send-mail-function 'message-send-mail-with-sendmail) (setq mode-line-position nil) (setq mu4e-headers-date-format "%d-%m %H:%M") (setq mu4e-headers-fields '((:date . 11) (:flags . 6) (:to . 22) (:from . 22) (:subject))) (setq mu4e-headers-show-threads nil) (setq mu4e-headers-sort-revert nil) (setq mu4e-html2text-command "w3m -dump -T text/HTML -cols 72") (setq mu4e-my-email-addresses (list (oni:email tom at ryuslash dot org) (oni:email ryuslash at gmail dot com) (oni:email ryuslash at ninthfloor dot org) (oni:email thomas at aethon dot nl))) (setq org-agenda-custom-commands '(("b" "Bookmarks to look at." todo "LOOKAT") ("w" "Work todo." tags-todo "CATEGORY=\"Work\""))) (setq org-agenda-sorting-strategy '((agenda habit-down time-up priority-down category-keep) (todo priority-down category-up) (tags priority-down category-keep) (search category-keep))) (setq org-capture-templates '(("t" "Task" entry (file "~/documents/org/tasks") "* TODO %?") ("h" "Habit" entry (file "") (concat "* TODO %^{Description}\n" " SCHEDULED: %^T\n" " :PROPERTIES:\n" " :STYLE: habit\n" " :END:") :immediate-finish t) ("l" "Log" entry (file+headline "" "notes") (concat "* %n %<%d-%m-%Y %H:%M:%S>\n" " %a\n\n" " %?") :prepend t :empty-lines 1) ("a" "Appointment" entry (file+headline "" "appointments") "* %^{Description} %^T" :immediate-finish t) ("b" "Bookmark" entry (file "~/documents/org/misc/bookmarks.org") "* %c\n\n %:initial"))) (setq org-contacts-files '("~/documents/org/misc/contacts.org")) (setq org-directory (expand-file-name "~/documents/org")) (setq org-agenda-files `(,(concat org-directory "/org") ,(concat org-directory "/misc/contacts.org") ,(concat org-directory "/misc/bookmarks.org"))) (setq org-default-notes-file (concat org-directory "/org")) (setq org-export-htmlize-output-type 'css) (setq org-feed-alist '(("MyEpisodes" "http://www.myepisodes.com/rss.php?feed=mylist&uid=Slash&pwdmd5=04028968e1f0b7ee678b748a4320ac17" "~/documents/org/tasks" "MyEpisodes" :formatter oni:myepisodes-formatter))) (setq org-hide-emphasis-markers t) (setq org-outline-path-complete-in-steps t) (setq org-refile-allow-creating-parent-nodes t) (setq org-refile-targets '((nil . (:maxlevel . 6)))) (setq org-refile-use-outline-path 'file) (setq org-return-follows-link t) (setq org-src-fontify-natively t) (setq org-tags-exclude-from-inheritance '("crypt")) (setq org-todo-keyword-faces '(("TODO" :background "red") ("DONE" :background "forest green") ("SUCCEEDED" :background "forest green") ("WAITING" :background "orange" :foreground "black") ("CANCELLED" :background "orange red") ("FAILED" :background "orange red") ("WIP" :background "#ff9800" :foreground "black") ("HOLD" :background "orange" :foreground "black") ("ACQUIRE" :background "red") ("IGNORED" :background "#555555"))) (setq org-use-fast-todo-selection t) (setq package-archives '(("melpa" . "http://melpa.milkbox.net/packages/") ("ELPA" . "http://tromey.com/elpa/") ("gnu" . "http://elpa.gnu.org/packages/") ("marmalade" . "http://marmalade-repo.org/packages/"))) (setq package-load-list '((htmlize "1.39") (lua-mode "20111107") (python "0.24.2") all)) (setq php-function-call-face 'font-lock-function-name-face) (setq php-mode-force-pear t) (setq pony-tpl-indent-moves t) (setq rainbow-delimiters-max-face-count 12) (setq redisplay-dont-pause t) (setq sauron-column-alist '((timestamp . 6) (message))) (setq sauron-hide-mode-line t) (setq sauron-max-line-length 189) (setq sauron-timestamp-format "%H:%M") (setq sauron-watch-nicks '("ryuslash")) (setq sauron-watch-patterns '("ryuslash")) (setq scroll-conservatively 101) (setq send-mail-function 'smtpmail-send-it) (setq sendmail-program "/usr/bin/msmtp") (setq smex-key-advice-ignore-menu-bar t) (setq smex-save-file "~/.emacs.d/smex-items") (setq special-display-buffer-names '("*Sauron*")) (setq special-display-frame-alist '((minibuffer . nil) (right-fringe . 0))) (setq split-height-threshold 40) (setq time-stamp-active t) (setq time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)") (setq uniquify-buffer-name-style 'post-forward) (setq use-dialog-box nil) (setq user-full-name "Tom Willemsen") (setq whitespace-style '(face trailing)) (setq window-combination-resize t) (setq yas-prompt-functions '(yas-ido-prompt)) (add-hook 'after-save-hook 'oni:after-save-func t) (add-hook 'before-save-hook 'oni:before-save-func) (add-hook 'c-mode-hook 'oni:c-mode-func) (add-hook 'css-mode-hook 'oni:css-mode-func) (add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func) (add-hook 'erc-mode-hook 'oni:erc-mode-func) (add-hook 'eshell-mode-hook 'oni:eshell-mode-func) (add-hook 'flymake-mode-hook 'oni:flymake-mode-func) (add-hook 'go-mode-hook 'oni:go-mode-func) (add-hook 'gtags-mode-hook 'oni:gtags-mode-func) (add-hook 'html-mode-hook 'oni:html-mode-func) (add-hook 'jabber-chat-mode-hook 'oni:jabber-chat-mode-func) (add-hook 'jabber-roster-mode-hook 'oni:jabber-roster-mode-func) (add-hook 'java-mode-hook 'oni:java-mode-func) (add-hook 'js-mode-hook 'oni:js-mode-func) (add-hook 'js2-mode-hook 'oni:js2-mode-func) (add-hook 'lua-mode-hook 'oni:lua-mode-func) (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func) (add-hook 'message-mode-hook 'oni:message-mode-func) (add-hook 'org-mode-hook 'oni:org-mode-func) (add-hook 'php-mode-hook 'oni:php-mode-func) (add-hook 'prog-mode-hook 'oni:prog-mode-func) (add-hook 'python-mode-hook 'oni:python-mode-func) (add-hook 'rst-mode-hook 'oni:rst-mode-func) (add-hook 'term-mode-hook 'oni:term-mode-func) (add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func) (add-hook 'write-file-hooks 'oni:write-file-func) (add-hook 'yas-minor-mode-hook 'oni:yas-minor-mode-func) (global-set-key (kbd "'") 'oni:self-insert-dwim) (global-set-key (kbd "") 'emms-next) (global-set-key (kbd "") 'oni:emms-toggle-playing) (global-set-key (kbd "") 'emms-previous) (global-set-key (kbd "") 'emms-stop) (global-set-key (kbd "") 'oni:raise-scratch) (global-set-key (kbd "") 'oni:view-mail) (global-set-key (kbd "") 'oni:start-emms) (global-set-key (kbd "") 'ext:reload-buffer) (global-set-key (kbd "") 'jabber-switch-to-roster-buffer) (global-set-key (kbd "") 'magit-status) (global-set-key (kbd "") 'oni:raise-eshell) (global-set-key (kbd "C-<") 'indent-shift-left) (global-set-key (kbd "C->") 'indent-shift-right) (global-set-key (kbd "C-M-4") 'split-window-vertically) (global-set-key (kbd "C-M-SPC") 'er/expand-region) (global-set-key (kbd "C-M-d") 'kill-word) (global-set-key (kbd "C-M-w") 'backward-kill-word) (global-set-key (kbd "C-S-k") 'kill-whole-line) (global-set-key (kbd "C-a") 'oni:move-beginning-of-dwim) (global-set-key (kbd "C-c a") 'org-agenda) (global-set-key (kbd "C-c c") 'org-capture) (global-set-key (kbd "C-c i p") 'identica-update-status-interactive) (global-set-key (kbd "C-c p") 'oni:show-buffer-position) (global-set-key (kbd "C-d") 'oni:kill-region-or-forward-char) (global-set-key (kbd "C-e") 'oni:move-end-of-dwim) (global-set-key (kbd "C-k") 'oni:kill-region-or-line) (global-set-key (kbd "C-w") 'oni:kill-region-or-backward-char) (global-set-key (kbd "C-x C-b") 'electric-buffer-list) (global-set-key (kbd "M-4") 'split-window-horizontally) (global-set-key (kbd "M-n") 'idomenu) (global-set-key (kbd "\"") 'oni:self-insert-dwim) (if (daemonp) (global-set-key "\C-x\C-c" 'oni:close-client-window) (unless (server-running-p) (server-start))) (when (or window-system (daemonp)) (global-unset-key "\C-z")) (add-to-list 'auto-mode-alist '("\\.jl$" . sawfish-mode)) (add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . js2-mode)) (add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?d\\(?:o?wn\\)?$" . markdown-mode)) (add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode)) (add-to-list 'auto-mode-alist '("\\.po\\'\\|\\.po\\." . po-mode)) (add-to-list 'auto-mode-alist '("\\.tpl$" . html-mode)) (add-to-list 'auto-mode-alist '("^PKGBUILD$" . shell-script-mode)) (add-to-list 'auto-mode-alist '("^\\.Xmodmap$" . xmodmap-mode)) (add-to-list 'debug-ignored-errors "^Can't shift all lines enough") (add-to-list 'display-buffer-alist '(".*" . ((bw-display-in-other-window . nil)))) (add-to-list 'display-buffer-alist '("^\\*.*\\*$" . ((bw-display-in-bottom-window . nil)))) (add-to-list 'display-buffer-alist '("^\\*magit: .*\\*$" . ((display-buffer-same-window . nil)))) (delete " " mode-line-format) (unless (oni:required-packages-installed-p) (message "%s" "Refreshing package database...") (package-refresh-contents) (message "%s" " done.") (mapc #'(lambda (package) (when (not (package-installed-p package)) (package-install package))) oni:required-packages)) (blink-cursor-mode -1) (menu-bar-mode -1) (scroll-bar-mode -1) (tool-bar-mode -1) (tooltip-mode -1) (line-number-mode -1) (column-number-mode -1) (auto-insert-mode) (electric-indent-mode) (electric-pair-mode) (ido-mode) (ido-ubiquitous-mode) (savehist-mode) (show-paren-mode) (smex-initialize) (help-at-pt-set-timer) (load-theme 'new t) (load custom-file) (load "rudel-loaddefs.el") (load (expand-file-name "~/quicklisp/slime-helper.el")) (load "quick-edit-mode") (global-set-key (kbd "C-z") 'quick-edit-mode) (provide 'init) ;;; init.el ends here