wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

tweaks.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-24 04:19:14 -05:00
parent 1b0262991b
commit 16274a2beb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/emacs.d/init.el
View File

@ -372,7 +372,6 @@ The current directory is assumed to be the project's root otherwise."
(cons 'yas-ido-prompt (cons 'yas-ido-prompt
(cl-delete 'yas-ido-prompt yas-prompt-functions))))) (cl-delete 'yas-ido-prompt yas-prompt-functions)))))
(use-package tramp (use-package tramp
:commands tramp :commands tramp
:config :config
@ -826,6 +825,9 @@ The current directory is assumed to be the project's root otherwise."
(add-hook 'mu4e-compose-mode-hook (add-hook 'mu4e-compose-mode-hook
(defun my-do-compose-stuff () (flyspell-mode))) (defun my-do-compose-stuff () (flyspell-mode)))
(add-to-list 'mu4e-headers-actions '("view in browser" . mu4e-action-view-in-browser))
(add-to-list 'mu4e-view-actions '("view in browser" . mu4e-action-view-in-browser))
(defun mu4e-view (msg headersbuf) (defun mu4e-view (msg headersbuf)
"Display the message MSG in a new buffer, and keep in sync with HDRSBUF. "Display the message MSG in a new buffer, and keep in sync with HDRSBUF.
'In sync' here means that moving to the next/previous message in 'In sync' here means that moving to the next/previous message in
@ -899,6 +901,7 @@ marking if it still had that."
:commands (sauron-start sauron-start-hidden) :commands (sauron-start sauron-start-hidden)
:config :config
(progn (progn
(setq sauron-prio-sauron-started 2)
(setq sauron-min-priority 3) (setq sauron-min-priority 3)
(setq sauron-dbus-cookie t) (setq sauron-dbus-cookie t)
(setq sauron-separate-frame nil) (setq sauron-separate-frame nil)
@ -1532,6 +1535,7 @@ marking if it still had that."
(load-theme theme no-confirm no-enable)) (load-theme theme no-confirm no-enable))
(defun set-my-font-for-frame (frame) (defun set-my-font-for-frame (frame)
(interactive (list nil))
(condition-case exp (condition-case exp
(set-frame-font (random-choice fonts) nil t) (set-frame-font (random-choice fonts) nil t)
('error (package-refresh-contents) ('error (package-refresh-contents)
@ -1543,6 +1547,7 @@ marking if it still had that."
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1)) (if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(set-fringe-mode 0) (set-fringe-mode 0)
(setq linum-format 'dynamic) (setq linum-format 'dynamic)
(set-my-font-for-frame nil)
(setq left-margin-width 0) (setq left-margin-width 0)
(setq hl-line-mode nil)) (setq hl-line-mode nil))