Merge remote-tracking branch 'ryuslash/master' into phoenix

Conflicts:
	.config/awesome/rc.lua
	.emacs.d/init.el
	.emacs.d/init.org
	.emacs.d/site-lisp/oni.el

1 files changed, 59 insertions, 162 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d2d68bc..21ecce6 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -8,13 +8,6 @@
 
 (load (concat user-emacs-directory "init2"))
 
-(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)
-(defalias 'list-buffers 'ibuffer)
-(defalias 'dabbrev-expand 'hippie-expand)
-
 (defface git-commit-summary-face
   '((t (:inherit org-level-1)))
   "Face for the git title line."
@@ -30,69 +23,31 @@
   "Face for the supposedly empty line in commit messages."
   :group 'local)
 
-(eval-after-load "eldoc"
-  '(diminish 'eldoc-mode))
-
-(eval-after-load "em-term"
-  '(add-to-list 'eshell-visual-commands "unison"))
-
-(eval-after-load "emms-source-file"
-  '(progn
-     (require 'emms-setup)
-     (require 'emms-player-mpd)
-
-     (emms-standard)
-
-     (add-to-list 'emms-info-functions 'emms-info-mpd)
-     (add-to-list 'emms-player-list 'emms-player-mpd)
-
-     (setq emms-player-mpd-server-name "localhost")
-     (setq emms-player-mpd-server-port "6600")
-     (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 "jabber"
-  '(remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo))
-
-(eval-after-load "newst-treeview"
-  '(require 'newsticker-init))
-
-(eval-after-load "org"
-  '(require 'org-init))
-
-(eval-after-load "pretty-symbols-mode"
-  '(diminish 'pretty-symbols-mode))
-
-(eval-after-load "rainbow-mode"
-  '(diminish 'rainbmow-mode))
-
-(eval-after-load "smex"
-  '(progn
-     (global-set-key (kbd "M-x") 'smex)
-     (global-set-key (kbd "C-M-x") 'smex-major-mode-commands)))
-
-(eval-after-load "yasnippet"
-  '(diminish 'yas-minor-mode))
+(eval-after-load "ido" '(oni:ido-init))
+(eval-after-load "jabber" '(oni:jabber-init))
+(eval-after-load "newst-treeview" '(require 'newsticker-init))
+(eval-after-load "org" '(require 'org-init))
+(eval-after-load "rainbow-mode" '(oni:rainbow-mode-init))
+(eval-after-load "smex" '(oni:smex-init))
+(eval-after-load "yasnippet" '(oni:yasnippet-init))
+
+(autoload 'define-slime-contrib "slime")
+(autoload 'gtags-mode "gtags" nil t)
+(autoload 'jabber-connect "jabber" 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)
+(autoload 'w3m-bookmark-view "w3m" nil t)
+(autoload 'w3m-goto-url "w3m" nil t)
+
+(require 'geiser-install)
+(require 'uniquify)
+(require 'ext)
+(require 'oni)
 
 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
@@ -112,11 +67,9 @@
 (setq appt-disp-window-function #'oni:appt-display-window-and-jabber)
 (setq appt-display-diary nil)
 (setq auto-mode-case-fold nil)
-(setq auto-save-file-name-transforms
-      `((".*" ,temporary-file-directory t)))
+(setq auto-save-file-name-transforms oni:auto-save-name-transforms)
 (setq avandu-article-render-function #'avandu-view-w3m)
-(setq backup-directory-alist
-      `((".*" . ,temporary-file-directory)))
+(setq backup-directory-alist oni:backup-directory-alist)
 (setq browse-url-browser-function 'browse-url-generic)
 (setq browse-url-generic-program (getenv "BROWSER"))
 (setq c-offsets-alist '((statement-block-intro . +)
@@ -141,75 +94,30 @@
         (vertical-scroll-bars . nil)
         (menu-bar-lines . nil)
         (tool-bar-lines . nil)
-        (font . "monaco-12")))
-(setq emms-source-file-default-directory "/mnt/music/")
+        (font . "Envy Code R:pixelsize=18")
+        (alpha 90 90)))
+(setq elnode-do-init nil)
 (setq erc-autojoin-channels-alist
-      '(("freenode.net" "#ninthfloor" "#emacs" "#dispass")))
+      '(("freenode.net" "#ninthfloor" "#emacs")))
 (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"
-           "String statement has no effect"
-           "Missing docstring"
-           "Empty docstring"
-           "multiple imports on one line"
-           "expected 2 blank lines, found 1"
-           "expected 2 blank lines, found 0"
-           "TODO:"
-           "whitespace after '{'"
-           "whitespace before '}'"
-           "whitespace before ':'"
-           "whitespace after '('"
-           "whitespace before ')'"
-           "whitespace after '['"
-           "whitespace before ']'"
-           "the backslash is redundant between brackets"
-           "continuation line over-indented for visual indent"
-           "continuation line under-indented for visual indent"
-           "Too many statements"
-           "comparison to None should be"
-           "missing whitespace around operator"
-           "missing whitespace after ','"
-           "line too long"
-           "at least two spaces before inline comment"
-           "trailing whitespace"
-           "imported but unused"
-           "Unused import"
-           "too many blank lines"))))
-(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"
-                      "redefinition of unused"
-                      "Redefining built-in"
-                      "Redefining name"
-                      "Unused argument"
-                      "Unused variable"
-                      "Dangerous default value {} as argument"
-                      "no newline at end of file"
-                      "Access to a protected member"))))
 (setq frame-title-format '(:eval (concat "emacs: " (buffer-name))))
 (setq geiser-repl-history-filename "~/.emacs.d/geiser-history")
 (setq gnus-init-file "~/.emacs.d/gnus")
 (setq gtags-auto-update t)
 (setq help-at-pt-display-when-idle t)
+(setq highlight-80+-columns 72)
+(setq identica-enable-striping 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 '(org-refile))
+(setq ido-ubiquitous-command-exceptions
+      '(org-refile org-capture-refile))
 (setq inferior-lisp-program "sbcl")
 (setq inhibit-default-init t)
 (setq inhibit-local-menu-bar-menus t)
@@ -217,15 +125,16 @@
 (setq initial-major-mode 'emacs-lisp-mode)
 (setq initial-scratch-message nil)
 (setq jabber-account-list '(("ryuslash@jabber.org")
-                            ("tom@ryuslash.org"
+                            ("tom@ryuslash.org/Emacs"
                              (:connection-type . ssl))))
-(setq jabber-chat-buffer-format "*jabber:%n*")
+(setq jabber-chat-buffer-format "*jab:%n*")
 (setq jabber-chat-buffer-show-avatar nil)
 (setq jabber-chat-fill-long-lines nil)
-(setq jabber-chat-foreign-prompt-format "%t <\n")
-(setq jabber-chat-local-prompt-format "%t >\n")
+(setq jabber-chat-foreign-prompt-format "%t %u/%r <\n")
+(setq jabber-chat-local-prompt-format "%t %u/%r >\n")
 (setq jabber-chatstates-confirm nil)
 (setq jabber-history-dir "~/.emacs.d/jabber")
+(setq jabber-muc-autojoin '("aethon@muc.ryuslash.org"))
 (setq jabber-roster-show-bindings nil)
 (setq jit-lock-defer-time 0.2)
 (setq magit-repo-dirs '("~/projects/" "~/var/src/"))
@@ -234,9 +143,8 @@
 (setq message-sendmail-extra-arguments '("-a" "ryuslash"))
 (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/")))
+        ("marmalade" . "http://marmalade-repo.org/packages/")
+        ("gnu" . "http://elpa.gnu.org/packages/")))
 (setq package-load-list '((htmlize "1.39")
                           (lua-mode "20111107")
                           all))
@@ -249,6 +157,7 @@
 (setq redisplay-dont-pause t)
 (setq send-mail-function 'smtpmail-send-it)
 (setq sendmail-program "/usr/bin/msmtp")
+(setq sentence-end-double-space nil)
 (setq smex-key-advice-ignore-menu-bar t)
 (setq smex-save-file "~/.emacs.d/smex-items")
 (setq split-height-threshold 40)
@@ -272,12 +181,12 @@
 (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-startup-hook 'oni:emacs-startup-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 'haskell-mode-hook 'oni:haskell-mode-func)
 (add-hook 'html-mode-hook 'oni:html-mode-func)
 (add-hook 'jabber-alert-message-hooks 'oni:jabber-alert-message-func)
 (add-hook 'jabber-chat-mode-hook 'oni:jabber-chat-mode-func)
@@ -299,19 +208,17 @@
 (add-hook 'write-file-hooks 'oni:write-file-func)
 (add-hook 'yas-minor-mode-hook 'oni:yas-minor-mode-func)
 
+(define-key key-translation-map (kbd "C-j") (kbd "C-l"))
+(define-key key-translation-map (kbd "C-l") (kbd "C-j"))
+
 (global-set-key (kbd "'") 'oni:self-insert-dwim)
-(global-set-key (kbd "<XF86AudioNext>") 'emms-next)
-(global-set-key (kbd "<XF86AudioPlay>") 'oni:emms-toggle-playing)
-(global-set-key (kbd "<XF86AudioPrev>") 'emms-previous)
-(global-set-key (kbd "<XF86AudioStop>") 'emms-stop)
 (global-set-key (kbd "<XF86HomePage>") 'oni:raise-scratch)
 (global-set-key (kbd "<XF86Mail>") 'oni:view-mail)
-(global-set-key (kbd "<XF86Tools>") 'oni:start-emms)
 (global-set-key (kbd "<f10>") 'git-project-show-files)
 (global-set-key (kbd "<f5>") 'ext:reload-buffer)
 (global-set-key (kbd "<f6>") 'jabber-switch-to-roster-buffer)
 (global-set-key (kbd "<f7>") 'magit-status)
-(global-set-key (kbd "<f8>") 'oni:raise-eshell)
+(global-set-key (kbd "<hiragana>") 'oni:show-org-index)
 (global-set-key (kbd "C-<") 'oni:indent-shift-left)
 (global-set-key (kbd "C->") 'oni:indent-shift-right)
 (global-set-key (kbd "C-M-4") 'split-window-vertically)
@@ -329,14 +236,14 @@
 (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 "M-4") 'split-window-horizontally)
-(global-set-key (kbd "M-n") 'idomenu)
-(global-set-key (kbd "\"") 'oni:self-insert-dwim)
-(global-set-key (kbd "M-o") 'other-window)
+(global-set-key (kbd "M-0") 'delete-window)
 (global-set-key (kbd "M-1") 'delete-other-windows)
 (global-set-key (kbd "M-2") 'split-window-below)
 (global-set-key (kbd "M-3") 'split-window-right)
-(global-set-key (kbd "M-0") 'delete-window)
+(global-set-key (kbd "M-4") 'split-window-horizontally)
+(global-set-key (kbd "M-n") 'idomenu)
+(global-set-key (kbd "M-o") 'other-window)
+(global-set-key (kbd "\"") 'oni:self-insert-dwim)
 
 (if (daemonp)
     (global-set-key "\C-x\C-c" 'oni:close-client-window))
@@ -369,24 +276,15 @@
  'display-buffer-alist
  '("^\\*magit: .*\\*$" . ((display-buffer-same-window . nil))))
 
-(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)
 (column-number-mode -1)
 (line-number-mode -1)
-(menu-bar-mode -1)
-(scroll-bar-mode -1)
-(tool-bar-mode -1)
 (tooltip-mode -1)
 
+(package-initialize)
+
 (auto-insert-mode)
+(cua-selection-mode t)
 (electric-indent-mode)
 (electric-pair-mode)
 (ido-mode)
@@ -398,8 +296,8 @@
 
 (smex-initialize)
 (help-at-pt-set-timer)
-
-(load-theme 'yoshi t)
+(windmove-default-keybindings)
+(global-diff-hl-mode)
 
 (load custom-file)
 ;; (load "rudel-loaddefs.el")
@@ -408,7 +306,6 @@
   (server-start))
 
 (diminish 'auto-fill-function "_")
-(ac-config-default)
 
 (provide 'init)