:ensure t
:defer t
:init
- ;; (global-set-key (kbd "M-x") 'counsel-M-x)
+ (global-set-key (kbd "M-x") 'counsel-M-x)
(global-set-key (kbd "C-h f") 'counsel-describe-function)
(global-set-key (kbd "C-h v") 'counsel-describe-variable)
;; (set-face-attribute 'ivy-current-match nil :background "Orange" :foreground "black")
;; ("C-i" other-window nil :exit t)
("C-b" ido-switch-buffer nil :exit t)
("C-f" projectile-find-file nil :exit t)
+ ("C-r" ivy-recentf nil :exit t)
("C-p" persp-switch :exit t)
("C-t" projectile-persp-switch-project nil :exit t)
** perspeen
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(el-get-bundle seudut/perspeen
- :features perspeen)
+ :features perspeen
+ ;; (perspeen-mode)
+ )
+ ;; super-i to switch to ith workspace
+
+ (defmacro sd/define-keys (map key func &rest args)
+ "A macro to define multi keys "
+ `(define-key ,map ,key (lambda () (interactive) (,func ,@args))))
+
+
+ (with-eval-after-load "perspeen"
+ (dotimes (ii 9)
+ (sd/define-keys perspeen-mode-map (kbd (concat "s-" (number-to-string (+ ii 1))))
+ perspeen-goto-ws (+ ii 1))))
#+END_SRC
* TODO todolist
** Rucket