ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/init.el

Browse source
This commit is contained in:
Tom Willemsen 2012-09-15 13:38:08 +02:00
parent 1391c88fe8
commit 96149a8546
1 changed files with 59 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

104
.emacs.d/init.el
View file

@ -21,18 +21,21 @@
'("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp"))
(add-to-list 'load-path "~/.emacs.d/"))
(require 'auto-complete-config)
(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 'naquadah-get-colors "naquadah-theme")
(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 'xmodmap-mode "xmodmap-mode" nil t)
(autoload 'jabber-connect "jabber" nil t)
(autoload 'define-slime-contrib "slime")
(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"))
@ -335,7 +338,15 @@ If COUNT has been specified indent by that much, otherwise look at
(defun oni:jabber-chat-mode-func ()
"Function for `jabber-chat-mode-hook'."
(visual-line-mode))
(visual-line-mode)
(setq mode-line-format (append (cddr jabber-chat-header-line-format)
'(global-mode-string))
header-line-format nil))
(defun oni:jabber-roster-mode-func ()
"Function for `jabber-roster-mode-hook'."
(setq mode-line-format
(list (propertize " %m" 'face 'mode-line-buffer-id))))
(defun oni:java-mode-func ()
"Function for `java-mode-hook'."
@ -744,58 +755,59 @@ for easy selection."
(setq-default fci-rule-column 73)
(setq-default gac-automatically-push-p t)
(setq-default indent-tabs-mode nil)
(setq-default mode-line-format
(list
'(:eval
(if (and (buffer-modified-p) (buffer-file-name))
(propertize "!"
'face 'oni:mode-line-modified
'help-echo "Buffer has been modified")
" "))
;; (setq-default mode-line-format
;; (list
;; '(:eval
;; (if (and (buffer-modified-p) (buffer-file-name))
;; (propertize "!"
;; 'face 'oni:mode-line-modified
;; 'help-echo "Buffer has been modified")
;; " "))
'(:eval (propertize "%m"
'face 'oni:mode-line-mode
'help-echo buffer-file-coding-system))
;; '(:eval (propertize "%m"
;; 'face 'oni:mode-line-mode
;; 'help-echo buffer-file-coding-system))
": "
;; ": "
'(:eval (propertize "%b "
'face 'mode-line-buffer-id
'help-echo (buffer-file-name)))
;; '(:eval (propertize "%b "
;; 'face 'mode-line-buffer-id
;; 'help-echo (buffer-file-name)))
"("
(propertize "%p" 'face 'oni:mode-line-buffer-position) ":"
(propertize "%04l" 'face 'oni:mode-line-buffer-line) ","
(propertize "%02c" 'face 'oni:mode-line-buffer-column)
") "
;; "("
;; (propertize "%p" 'face 'oni:mode-line-buffer-position) ":"
;; (propertize "%04l" 'face 'oni:mode-line-buffer-line) ","
;; (propertize "%02c" 'face 'oni:mode-line-buffer-column)
;; ") "
"["
'(:eval (propertize
(if buffer-read-only
"R"
(if overwrite-mode "O" "I"))
'face 'oni:mode-line-buffer-state
'help-echo (concat "Buffer is "
(if buffer-read-only
"read-only"
(if overwrite-mode
"in overwrite mode"
"in insert mode")))))
;; "["
;; '(:eval (propertize
;; (if buffer-read-only
;; "R"
;; (if overwrite-mode "O" "I"))
;; 'face 'oni:mode-line-buffer-state
;; 'help-echo (concat "Buffer is "
;; (if buffer-read-only
;; "read-only"
;; (if overwrite-mode
;; "in overwrite mode"
;; "in insert mode")))))
"] "
;; "] "
'(:eval
(propertize (format-time-string "%H:%M")
'help-echo
(concat (format-time-string "%c; ")
(emacs-uptime "Uptime: %hh"))))
" --"
'(:eval global-mode-string)))
;; '(:eval
;; (propertize (format-time-string "%H:%M")
;; 'help-echo
;; (concat (format-time-string "%c; ")
;; (emacs-uptime "Uptime: %hh"))))
;; " --"
;; '(:eval global-mode-string)))
(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 ac-use-quick-help nil)
(setq appt-display-diary nil)
(setq auto-mode-case-fold nil)
(setq auto-save-file-name-transforms
@ -1038,7 +1050,8 @@ for easy selection."
(if (daemonp)
(global-set-key "\C-x\C-c" 'oni:close-client-window)
(server-start))
(unless (server-running-p)
(server-start)))
(when (or window-system (daemonp))
(global-unset-key "\C-z"))
@ -1082,6 +1095,7 @@ for easy selection."
(smex-initialize)
(help-at-pt-set-timer)
(ac-config-default)
(load-theme 'naquadah t)