New Emacs config and change location of Emacs home dir.

1 files changed, 115 insertions, 0 deletions

diff --git a/.emacs.d/jd/jd-keys.el b/.emacs.d/jd/jd-keys.el
new file mode 100755
index 0000000..7c0d6b2
--- /dev/null
+++ b/.emacs.d/jd/jd-keys.el
@@ -0,0 +1,115 @@
+;;; Dotfiles --- Jakub Dlugosz emacs config
+;;; Commentary:
+
+;;; Code:
+
+;; (jd/use-package evil "emacs-evil"
+;;              :init
+;;              (setq evil-want-integration t)
+;;              (setq evil-want-keybinding nil)
+;;              (setq evil-want-C-u-scroll t)
+;;              (setq evil-want-Y-yank-to-eol t) 
+;;              (setq evil-want-C-i-jump nil) 
+;;              (setq evil-undo-system 'undo-tree)
+;;              (setq evil-kill-on-visual-paste nil)
+;;              :config
+;;              (evil-set-initial-state 'exwm-mode 'emacs)
+;;              (evil-mode 1))
+
+(jd/use-package general "emacs-general"
+                :config
+                (general-create-definer jd/leader-key-def
+                  :keymaps '(normal insert visual emacs)
+                  :prefix "SPC"
+                  :global-prefix "C-z")
+
+                (general-create-definer jd/ctrl-c-keys
+                  :prefix "C-c")
+
+                ;; (jd/leader-key-def
+                ;;  "w"  'evil-window-map
+                ;;  "wr" '(hydra-resize-window/body :which-key "Rezize window")
+                ;;  "wd" '(evil-window-delete :which-key "Window delete"))
+ 
+                (jd/leader-key-def
+                 "ou" '(undo-tree-visualize :which-key "Open"))
+
+                ;; remove . key
+                ;; (define-key evil-normal-state-map (kbd ".") '())
+                (jd/leader-key-def
+                 "f"  '(:ignore t :which-key "Files")
+                 "fs" '(save-buffer :which-key "File save")
+                 "." '(find-file :which-key "Find file")
+                 "ff" '(find-file :which-key "Find file"))
+
+                (jd/leader-key-def
+                 "e"   '(:ignore t :which-key "Eval")
+                 "eb"  '(eval-buffer :which-key "Eval buffer")
+                 "ee" '(eval-defun :which-key "Eval defun"))
+
+                (jd/leader-key-def
+                 :keymaps '(visual)
+                 "er" '(eval-region :which-key "Eval region"))
+
+                (defun jd/kill-other-buffers () 
+                  (interactive)                                                                   
+                  (mapc 'kill-buffer (cdr (buffer-list (current-buffer)))))
+
+                (jd/leader-key-def
+                 "bK" '(jd/kill-other-buffers :which-key "Kill other buffers")
+                 "bk" '(kill-current-buffer :which-key "Kill buffer")
+                 "bB" '(ibuffer :which-key "Open ibuffer")))
+
+
+(jd/use-package hydra "emacs-hydra"
+                ;; :defer t
+                :config
+                (defun jd/text-scale-increase ()
+                  (interactive)
+                  (let ((old-face-attribute (face-attribute 'default :height)))
+                    (set-face-attribute 'default nil :height (+ old-face-attribute 10))))
+
+                (defun jd/text-scale-decrease ()
+                  (interactive)
+                  (let ((old-face-attribute (face-attribute 'default :height)))
+                    (set-face-attribute 'default nil :height (- old-face-attribute 10))))
+
+                ;; (defhydra hydra-resize-window (:timeout 4)
+                ;;   ("h" evil-window-decrease-width "<")
+                ;;   ("l" evil-window-increase-width ">")
+                ;;   ("k" evil-window-decrease-height "^")
+                ;;   ("j" evil-window-increase-height "v")
+                ;;   ("q" nil "finished" :exit t))
+
+                (defhydra hydra-text-scale-global (:timeout 4)
+                  "scale text"
+                  ("j" jd/text-scale-increase "in")
+                  ("k" jd/text-scale-decrease "out")
+                  ("q" nil "finished" :exit t))
+
+                (defhydra hydra-text-scale (:timeout 4)
+                  "scale text"
+                  ("j" text-scale-increase "in")
+                  ("k" text-scale-decrease "out")
+                  ("q" nil "finished" :exit t))
+
+                (jd/leader-key-def
+                  "tS" '(hydra-text-scale-global/body :which-key "Scale text")
+                  "ts" '(hydra-text-scale/body :which-key "Scale text")))
+
+
+(jd/use-package undo-tree "emacs-undo-tree"
+                :diminish
+                :config
+                (setq undo-tree-auto-save-history nil)
+                (global-undo-tree-mode 1))
+
+;; (jd/use-package evil-collection "emacs-evil-collection"
+;;              :after evil
+;;              :config
+;;              (evil-collection-init))
+
+
+(provide 'jd-keys)
+
+;;; jd-keys.el ends here