diff options
| author | jdlugosz963 <jdlugosz963@gmail.com> | 2024-09-20 14:16:56 +0200 |
|---|---|---|
| committer | jdlugosz963 <jdlugosz963@gmail.com> | 2024-09-20 14:16:56 +0200 |
| commit | 45bb0d11161b1c5077a1415eed6dbd0fd25ccb6a (patch) | |
| tree | b564c1c43920def6641cd482a7b4dca453dbc043 /.emacs.d/jd/jd-keys.el | |
| parent | 07dd8e37eb767c3dd6abf63e5e4a720cd778da15 (diff) | |
| download | dotfiles-45bb0d11161b1c5077a1415eed6dbd0fd25ccb6a.tar.gz dotfiles-45bb0d11161b1c5077a1415eed6dbd0fd25ccb6a.zip | |
Change dotfiles structure, and add guix-channels declaration.
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 | ||
