colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dumb tweaks.

Browse Source
This commit is contained in:
Ivan Malison 2014-12-06 21:46:36 -08:00
parent 003c023516
commit 7b6e356af4
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,7 +23,7 @@
;; GUI Disables ;; GUI Disables
;; ============================================================================= ;; =============================================================================
;; Turn off mouse interface early in startup to avoid momentary display ;; Turn off mouse interface early in startup to avoid momentary display
(when (fboundp 'menu-bar-mode) (menu-bar-mode -1)) (when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1)) (when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) (when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
@ -35,6 +35,7 @@
(defvar ido-cur-list nil) (defvar ido-cur-list nil)
(defvar predicate nil) (defvar predicate nil)
(defvar inherit-input-method nil) (defvar inherit-input-method nil)
(defvar helm-swoop-last-prefix-number)
;; ============================================================================= ;; =============================================================================
;; Load Path Configuration ;; Load Path Configuration
@ -760,7 +761,7 @@ The current directory is assumed to be the project's root otherwise."
;; ============================================================================= ;; =============================================================================
(add-hook 'prog-mode-hook (lambda () (auto-fill-mode -1))) (add-hook 'prog-mode-hook (lambda () (auto-fill-mode -1)))
(add-hook 'prog-mode-hook (lambda () (subword-mode t))) (add-hook 'prog-mode-hook (lambda () (subword-mode t) (diminish 'subword-mode)))
(add-hook 'prog-mode-hook 'flyspell-prog-mode) (add-hook 'prog-mode-hook 'flyspell-prog-mode)
;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp ;; (add-hook 'prog-mode-hook (lambda () (highlight-lines-matching-regexp
@ -1140,7 +1141,8 @@ The current directory is assumed to be the project's root otherwise."
tango-2-theme gotham-theme sublime-themes ansi-color rainbow-delimiters tango-2-theme gotham-theme sublime-themes ansi-color rainbow-delimiters
ample-theme)) ample-theme))
(ensure-packages-installed packages-appearance) (use-packages packages-appearance)
(use-package smart-mode-line (use-package smart-mode-line
:ensure t :ensure t
@ -1149,7 +1151,6 @@ The current directory is assumed to be the project's root otherwise."
(setq sml/theme 'respectful) (setq sml/theme 'respectful)
(sml/setup))) (sml/setup)))
;; No splash screen please... jeez
(setq inhibit-startup-screen t) (setq inhibit-startup-screen t)
(blink-cursor-mode -1) (blink-cursor-mode -1)
@ -1222,7 +1223,7 @@ The current directory is assumed to be the project's root otherwise."
(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)
(set-frame-font "Monaco for Powerline-11" nil t) nil))) (set-frame-font "Monaco for Powerline-12" nil t) nil)))
(defun remove-fringe-and-hl-line-mode (&rest stuff) (defun remove-fringe-and-hl-line-mode (&rest stuff)
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))