emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Alpha = 96 & cleanup

Browse source
This commit is contained in:
Henrik Lissner 2014-12-07 15:02:36 -05:00
parent eb32a492d4
commit 6bef9f5fcd
4 changed files with 3 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
init/core-ui.el
View file

@ -4,7 +4,7 @@
;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;;
(when window-system (when window-system
;; No transparency! ;; No transparency!
(set-frame-parameter nil 'alpha 100) (set-frame-parameter nil 'alpha 96)
(unless (member *default-font (font-family-list)) (unless (member *default-font (font-family-list))
(error "Font %s isn't installed" *default-font)) (error "Font %s isn't installed" *default-font))

5
init/core.el
View file

@ -232,7 +232,6 @@ the checking happens for all pairs in auto-minor-mode-alist"
;; Hook up smex to auto-update, rather than update on every run ;; Hook up smex to auto-update, rather than update on every run
(defun smex-update-after-load (unused) (defun smex-update-after-load (unused)
(when (boundp 'smex-cache) (smex-update))) (when (boundp 'smex-cache) (smex-update)))
(add-hook 'after-load-functions 'smex-update-after-load))) (add-hook 'after-load-functions 'smex-update-after-load)))
(use-package popwin (use-package popwin
@ -259,10 +258,6 @@ the checking happens for all pairs in auto-minor-mode-alist"
(popwin:close-popup-window) (popwin:close-popup-window)
(popwin:popup-last-buffer))))) (popwin:popup-last-buffer)))))
;; (require 'key-chord)
;; (key-chord-mode 1)
;; (setq key-chord-two-keys-delay 0.2)
;;;; Start the party ;;;;;;;;;;;;;;;;;;; ;;;; Start the party ;;;;;;;;;;;;;;;;;;;
(if is-mac (require 'core-osx)) (if is-mac (require 'core-osx))

4
init/defuns-ui.el
View file

@ -27,8 +27,8 @@
;;;###autoload ;;;###autoload
(defun toggle-transparency () (defun toggle-transparency ()
(interactive) (interactive)
(if (/= (frame-parameter nil 'alpha) 100) (if (/= (frame-parameter nil 'alpha) 96)
(set-frame-parameter nil 'alpha 100) (set-frame-parameter nil 'alpha 96)
(set-frame-parameter nil 'alpha 0))) (set-frame-parameter nil 'alpha 0)))
;;;###autoload ;;;###autoload

2
init/my-settings.el
View file

@ -92,7 +92,6 @@
minibuffer-local-must-match-map minibuffer-local-must-match-map
minibuffer-local-isearch-map) [escape] 'my--minibuffer-quit) minibuffer-local-isearch-map) [escape] 'my--minibuffer-quit)
(bind 'emacs [escape] 'my--minibuffer-quit) (bind 'emacs [escape] 'my--minibuffer-quit)
(bind 'god [escape] 'evil-god-state-bail) (bind 'god [escape] 'evil-god-state-bail)
(bind 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window) (bind 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window)
(bind evil-ex-map [escape] 'my--minibuffer-quit) (bind evil-ex-map [escape] 'my--minibuffer-quit)
@ -120,7 +119,6 @@
((string-match "^ \\*" (buffer-name (current-buffer))) ((string-match "^ \\*" (buffer-name (current-buffer)))
(bury-buffer)))) (bury-buffer))))
(defun my-emacs-is-not-kill () (defun my-emacs-is-not-kill ()
(interactive) (interactive)
(message "Gee, I dunno Brain...")) (message "Gee, I dunno Brain..."))