diff --git a/init/core-ui.el b/init/core-ui.el index 4eb750df7..b4e27dd14 100644 --- a/init/core-ui.el +++ b/init/core-ui.el @@ -4,7 +4,7 @@ ;;;; Load Theme ;;;;;;;;;;;;;;;;;;;;;;;; (when window-system ;; No transparency! - (set-frame-parameter nil 'alpha 100) + (set-frame-parameter nil 'alpha 96) (unless (member *default-font (font-family-list)) (error "Font %s isn't installed" *default-font)) diff --git a/init/core.el b/init/core.el index 7332d2976..8d50f4bb0 100644 --- a/init/core.el +++ b/init/core.el @@ -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 (defun smex-update-after-load (unused) (when (boundp 'smex-cache) (smex-update))) - (add-hook 'after-load-functions 'smex-update-after-load))) (use-package popwin @@ -259,10 +258,6 @@ the checking happens for all pairs in auto-minor-mode-alist" (popwin:close-popup-window) (popwin:popup-last-buffer))))) - ;; (require 'key-chord) - ;; (key-chord-mode 1) - ;; (setq key-chord-two-keys-delay 0.2) - ;;;; Start the party ;;;;;;;;;;;;;;;;;;; (if is-mac (require 'core-osx)) diff --git a/init/defuns-ui.el b/init/defuns-ui.el index 18a24032b..99cae2f6d 100644 --- a/init/defuns-ui.el +++ b/init/defuns-ui.el @@ -27,8 +27,8 @@ ;;;###autoload (defun toggle-transparency () (interactive) - (if (/= (frame-parameter nil 'alpha) 100) - (set-frame-parameter nil 'alpha 100) + (if (/= (frame-parameter nil 'alpha) 96) + (set-frame-parameter nil 'alpha 96) (set-frame-parameter nil 'alpha 0))) ;;;###autoload diff --git a/init/my-settings.el b/init/my-settings.el index 775495f24..2f2589d89 100644 --- a/init/my-settings.el +++ b/init/my-settings.el @@ -92,7 +92,6 @@ minibuffer-local-must-match-map minibuffer-local-isearch-map) [escape] 'my--minibuffer-quit) (bind 'emacs [escape] 'my--minibuffer-quit) - (bind 'god [escape] 'evil-god-state-bail) (bind 'normal evil-command-window-mode-map [escape] 'kill-buffer-and-window) (bind evil-ex-map [escape] 'my--minibuffer-quit) @@ -120,7 +119,6 @@ ((string-match "^ \\*" (buffer-name (current-buffer))) (bury-buffer)))) - (defun my-emacs-is-not-kill () (interactive) (message "Gee, I dunno Brain..."))