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

ui/window-select: use use-package :when/:unless instead of cond

Browse source 
Appease the byte-compiler.
This commit is contained in:
Henrik Lissner 2018-01-05 13:16:42 -05:00
parent dd7a26352b
commit fab6fb1270
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
modules/ui/window-select/config.el
View file

@ -1,24 +1,24 @@
;;; ui/window-select/config.el -*- lexical-binding: t; -*- ;;; ui/window-select/config.el -*- lexical-binding: t; -*-
(cond (def-package! switch-window
((featurep! +switch-window) :when (featurep! +switch-window)
(def-package! switch-window :commands (switch-window switch-window-then-maximize switch-window-then-split-below
:commands (switch-window switch-window-then-maximize switch-window-then-split-below switch-window-then-split-right switch-window-then-delete
switch-window-then-split-right switch-window-then-delete switch-window-then-swap-buffer)
switch-window-then-swap-buffer) :init
:init (define-key global-map [remap other-window] #'switch-window)
(define-key global-map [remap other-window] #'switch-window) :config
:config (setq switch-window-shortcut-style 'qwerty
(setq switch-window-shortcut-style 'qwerty switch-window-qwerty-shortcuts '("a" "s" "d" "f" "g" "h" "j" "k" "l")))
switch-window-qwerty-shortcuts '("a" "s" "d" "f" "g" "h" "j" "k" "l"))))
((or (featurep! +ace-window) t) ; default to ace-window
(def-package! ace-window (def-package! ace-window
:commands (ace-window ace-swap-window ace-delete-window :unless (featurep! +switch-window)
ace-select-window ace-delete-other-windows) :commands (ace-window ace-swap-window ace-delete-window
:init ace-select-window ace-delete-other-windows)
(define-key global-map [remap other-window] #'ace-window) :init
:config (define-key global-map [remap other-window] #'ace-window)
(setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l) :config
aw-scope 'frame (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
aw-background t)))) aw-scope 'frame
aw-background t))