diff options
Diffstat (limited to '.emacs.d/jd/jd-keys.el')
-rwxr-xr-x | .emacs.d/jd/jd-keys.el | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/.emacs.d/jd/jd-keys.el b/.emacs.d/jd/jd-keys.el deleted file mode 100755 index a5b828b..0000000 --- a/.emacs.d/jd/jd-keys.el +++ /dev/null | |||
@@ -1,50 +0,0 @@ | |||
1 | ;;; Dotfiles --- Jakub Dlugosz emacs config | ||
2 | ;;; Commentary: | ||
3 | ;; Custom keysets used in my emacs | ||
4 | ;;; Code: | ||
5 | |||
6 | (use-package multiple-cursors | ||
7 | :guix-package "emacs-multiple-cursors" | ||
8 | :config | ||
9 | (global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines) | ||
10 | (global-set-key (kbd "C->") 'mc/mark-next-like-this) | ||
11 | (global-set-key (kbd "C-<") 'mc/mark-previous-like-this) | ||
12 | (global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)) | ||
13 | |||
14 | |||
15 | (use-package hydra | ||
16 | :guix-package "emacs-hydra" | ||
17 | ;; :defer t | ||
18 | :config | ||
19 | (defun jd/text-scale-increase () | ||
20 | (interactive) | ||
21 | (let ((old-face-attribute (face-attribute 'default :height))) | ||
22 | (set-face-attribute 'default nil :height (+ old-face-attribute 10)))) | ||
23 | |||
24 | (defun jd/text-scale-decrease () | ||
25 | (interactive) | ||
26 | (let ((old-face-attribute (face-attribute 'default :height))) | ||
27 | (set-face-attribute 'default nil :height (- old-face-attribute 10)))) | ||
28 | |||
29 | (defhydra hydra-text-scale-global (:timeout 4) | ||
30 | "scale text" | ||
31 | ("j" jd/text-scale-increase "in") | ||
32 | ("k" jd/text-scale-decrease "out") | ||
33 | ("q" nil "finished" :exit t)) ;; TODO not working | ||
34 | |||
35 | (defhydra hydra-text-scale (:timeout 4) | ||
36 | "scale text" | ||
37 | ("j" text-scale-increase "in") | ||
38 | ("k" text-scale-decrease "out") | ||
39 | ("q" nil "finished" :exit t))) | ||
40 | |||
41 | (use-package undo-tree | ||
42 | :guix-package "emacs-undo-tree" | ||
43 | :diminish | ||
44 | :config | ||
45 | (setq undo-tree-auto-save-history nil) | ||
46 | (global-undo-tree-mode 1)) | ||
47 | |||
48 | (provide 'jd-keys) | ||
49 | |||
50 | ;;; jd-keys.el ends here | ||