New Emacs config and change location of Emacs home dir.

1 files changed, 171 insertions, 0 deletions

diff --git a/.emacs.d/jd/jd-exwm.el b/.emacs.d/jd/jd-exwm.el
new file mode 100755
index 0000000..5e95a63
--- /dev/null
+++ b/.emacs.d/jd/jd-exwm.el
@@ -0,0 +1,171 @@
+;;; Dotfiles --- Jakub Dlugosz emacs config
+;;; Commentary:
+
+;;; Code:
+
+
+(jd/use-package exwm "emacs-exwm"
+                :config
+                (defun jd/exwm-update-class ()
+                  (exwm-workspace-rename-buffer exwm-class-name))
+
+                (defun jd-exwm/run-in-background (command)
+                  (let ((command-parts (split-string command "[ ]+")))
+                    (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
+
+                (defun jd-exwm/restart-process (program-name)
+                  (call-process "killall" nil nil nil program-name)
+                  (jd-exwm/run-in-background program-name))
+
+                (defun jd-exwm/exwm-init-hook ()
+                  (jd-exwm/run-in-background "nitrogen --restore")
+                  (start-process-shell-command "xinput" nil "xinput set-prop 'ETPS/2 Elantech Touchpad' 'Synaptics Tap Action' 1 1 1 2 1")
+                  (start-process-shell-command "syndaemon" nil "syndaemon -i 0.8 -K -R -d")
+
+                  (jd-exwm/restart-process "polybar")
+                  (jd-exwm/restart-process "nm-applet")
+                  (jd-exwm/restart-process "redshift-gtk -l 54.37:18.6")
+                  (jd-exwm/restart-process "blueman-applet"))
+
+                (defun jd-exwm/exwm-update-title ()
+                  (exwm-workspace-rename-buffer exwm-title))
+
+                (defun jd-exwm/configure-window-by-class ()
+                  (interactive)
+                  (pcase exwm-class-name
+                    ("firefox" (exwm-workspace-move-window 2))
+                    ("Brave" (exwm-workspace-move-window 2))
+                    ("qutebrowser" (exwm-workspace-move-window 2))
+                    ("discord" (exwm-workspace-move-window 5))
+                    ("obs" (exwm-workspace-move-window 5))
+                    ("Virt-manager" (exwm-workspace-move-window 4))))
+
+                (setq exwm-workspace-number 10)
+
+                ;; (add-hook 'exwm-init-hook #'jd-exwm/exwm-init-hook)
+                (add-hook 'exwm-update-class-hook #'jd/exwm-update-class)
+                (add-hook 'exwm-update-title-hook #'jd-exwm/exwm-update-title)
+                (add-hook 'exwm-manage-finish-hook #'jd-exwm/configure-window-by-class)
+
+                (require 'exwm-randr)
+                (setq exwm-randr-workspace-monitor-plist '(9 "eDP-1" 0 "eDP-1"))
+                (exwm-randr-enable)
+
+                (setq exwm-input-simulation-keys
+                      '(([?\C-b] . [left])
+                        ([?\C-f] . [right])
+                        ([?\C-p] . [up])
+                        ([?\C-n] . [down])
+                        ([?\C-a] . [home])
+                        ([?\C-e] . [end])
+                        ([?\C-k] . [S-end delete])
+                        ([?\M-w] . [C-c])
+                        ([?\C-y] . [C-v])
+                        ([?\C-v] . [next])
+                        ([?\C-\M-v] . [prior])
+                        ))
+
+                (setq exwm-input-prefix-keys
+                      '(?\C-x
+                        ?\C-u
+                        ?\C-h
+                        ?\M-x
+                        ?\M-`
+                        ?\M-&
+                        ?\M-:
+                        ?\C-\M-j 
+                        ?\C-\ ))  
+
+                (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
+                (exwm-input-set-key (kbd "s-p") 'counsel-linux-app)
+
+                (setq exwm-input-global-keys
+                      `(([?\s-R] . exwm-reset)
+
+
+                        ([?\s-r] . (lambda (command)
+                                     (interactive (list (read-shell-command "$ ")))
+                                     (start-process-shell-command command nil command)))
+
+                        ([?\s-W] . exwm-workspace-move-window)
+                        ([?\s-w] . exwm-workspace-switch)
+
+                        ,@(mapcar (lambda (i)
+                                    `(,(kbd (format "s-%d" i)) .
+                                      (lambda ()
+                                        (interactive)
+                                        (exwm-workspace-switch-create ,i))))
+                                  (number-sequence 0 9))))
+
+                (exwm-enable))
+
+(jd/use-package desktop-environment "emacs-desktop-environment"
+                :after exwm
+                :custom
+                (desktop-environment-brightness-small-increment "2%+")
+                (desktop-environment-brightness-small-decrement "2%-")
+                (desktop-environment-brightness-normal-increment "5%+")
+                (desktop-environment-brightness-normal-decrement "5%-")
+
+                :config
+                (defun jd/dunst-show-history ()
+                  (interactive)
+                  (start-process-shell-command "dunstctl" nil "dunstctl history-pop"))
+
+                (defun jd/dunst-close ()
+                  (interactive)
+                  (start-process-shell-command "dunstctl" nil "dunstctl close"))
+
+                (defun jd/dunst-close-all ()
+                  (interactive)
+                  (start-process-shell-command "dunstctl" nil "dunstctl close-all"))
+
+                (jd/leader-key-def
+                 "d" '(nil :which-key "dunst")
+                 "dh" '(jd/dunst-show-history :which-key "show history") 
+                 "dc" '(jd/dunst-close :which-key "close") 
+                 "da" '(jd/dunst-close-all :which-key "close all"))
+
+                (desktop-environment-mode))
+
+(set-frame-parameter (selected-frame) 'alpha '(90 . 90))
+(add-to-list 'default-frame-alist `(alpha . (90 . 90)))
+(set-frame-parameter (selected-frame) 'fullscreen 'maximized)
+(add-to-list 'default-frame-alist '(fullscreen . maximized))
+
+(defun jd-exwm/get-color (ATTRIBUTE)
+  (face-attribute 'default ATTRIBUTE))
+
+(defun theme-to-xresources ()
+  (interactive)
+  (require 'term)
+  (with-temp-buffer
+    (insert "! Generated by theme-to-xresources\n")
+    (dolist (spec
+             '(("emacs.background" :background "E6")
+               ("emacs.foreground" :foreground "")))
+      (let ((color (jd-exwm/get-color (cadr spec))))
+        (insert (format "%s: #%s%s\n"
+                        (car spec)
+                        (caddr spec)
+                        (string-remove-prefix "#" color))))
+      jd
+      (write-region (point-min) (point-max) "~/.Xresources")))
+  (call-process "xrdb" nil nil nil "-merge" (expand-file-name "~/.Xresources")))
+
+(defun jd/theme-sync ()
+  (interactive)
+  (theme-to-xresources)
+  (setq org-confirm-babel-evaluate nil)
+  (org-babel-tangle-file "~/dotfiles/Desktop.org")
+  (setq org-confirm-babel-evaluate 't)
+  (call-process "killall" nil nil nil "dunst") ;;  TODO: prevent clear notification history 
+  (jd-exwm/restart-process "polybar"))
+
+;; (add-hook 'jd/load-theme-hook #'jd/theme-sync)
+;; (add-hook 'exwm-init-hook #'jd/theme-sync)
+
+(provide 'jd-exwm)
+
+;;; jd-exwm.el ends here
+