summaryrefslogtreecommitdiffstats
path: root/.emacs.d/jd/jd-keys.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/jd/jd-keys.el')
-rwxr-xr-x.emacs.d/jd/jd-keys.el50
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