Update Desktop config

1 files changed, 76 insertions, 31 deletions

diff --git a/Desktop.org b/Desktop.org
index 04d6be3..e24607e 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -15,13 +15,16 @@
     (let ((command-parts (split-string command "[ ]+")))
       (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
 
-  (defun jd-exwm/exwm-init-hook ()
-    (display-battery-mode t)
-    (display-time-mode t)
+  (defun jd-exwm/restart-process (program-name)
+    (call-process "killall" nil nil nil program-name)
+    (jd-exwm/run-in-background program-name))
 
-    (jd-exwm/run-in-background "nm-applet")
-    (jd-exwm/run-in-background "pasystray")
-    (jd-exwm/run-in-background "blueman-applet"))
+  (defun jd-exwm/exwm-init-hook ()
+    (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")
+    (jd-exwm/restart-process "pasystray"))
 
   (defun jd-exwm/exwm-update-title ()
     (exwm-workspace-rename-buffer exwm-title))
@@ -30,6 +33,7 @@
     (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))
@@ -37,29 +41,26 @@
 
   (use-package exwm
     :config
-    (setq exwm-workspace-number 9)
+    (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)
 
-    (start-process-shell-command "xmodmap" nil "xmodmap ~/dotfiles/.Xmodmap")
     (start-process-shell-command "nitrogen" nil "nitrogen --restore")
-    (start-process-shell-command "xinput" nil "xinput set-prop 11 336 1")
+    (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 "xmodmap" nil "xmodmap ~/dotfiles/.Xmodmap")
 
     (require 'exwm-randr)
+    (setq exwm-randr-workspace-monitor-plist '(9 "eDP-1" 0 "eDP-1"))
     (exwm-randr-enable)
-    ;; (start-process-shell-command "xrandr" nil "xrandr --output DP-1-8 --primary --mode 1920x1080 --output eDP-1 --off")
-
-    (require 'exwm-systemtray)
-    (exwm-systemtray-enable)
 
     (setq exwm-input-simulation-keys
-          '(([?\C-l] . [left])
-            ([?\C-h] . [right])
-            ([?\C-k] . [up])
-            ([?\C-j] . [down])))
+          '(([?\C-b] . [left])
+            ([?\C-f] . [right])
+            ([?\C-p] . [up])
+            ([?\C-n] . [down])))
 
     (setq exwm-input-prefix-keys
           '(?\C-x
@@ -91,7 +92,7 @@
                           (lambda ()
                             (interactive)
                             (exwm-workspace-switch-create ,i))))
-                      (number-sequence 1 9))))
+                      (number-sequence 0 9))))
 
     (exwm-enable))
 
@@ -115,13 +116,49 @@
 
 #+begin_src emacs-lisp
 
-  (set-frame-parameter (selected-frame) 'alpha '(95 . 95))
-  (add-to-list 'default-frame-alist `(alpha . (95 . 95)))
+  (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))
 
 #+end_src
 
+** Update colorsheme
+#+begin_src emacs-lisp
+
+  (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))))
+        (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)
+
+
+#+end_src
 ** Start emacs
 
 #+begin_src sh :tangle ~/.config/emacs/exwm/start.sh
@@ -131,8 +168,10 @@
 
   xss-lock -- slock &
 
-  export VISUAL=emacsclient
+  export VISUAL="emacsclient -a vim"
   export EDITOR="$VISUAL"
+  export GTK_THEME="Adwaita:dark"
+  export CALIBRE_USE_DARK_PALETTE=1
 
   exec dbus-launch --exit-with-session emacs -mm --debug-init -l ~/.config/emacs/exwm/desktop.el
 
@@ -163,13 +202,21 @@
 
 #+end_src
 
+*Get emacs colors*
+#+NAME: get-color
+#+BEGIN_SRC elisp :var ATTR="" :tangle no  :eval yes
+  (if (and (stringp ATTR) (s-prefix-p ":" ATTR))
+      (jd-exwm/get-color (intern ATTR))
+    "")
+#+END_SRC
+
 *dunstrc*
 
-#+begin_src conf :tangle .config/dunst/dunstrc
+#+begin_src conf :tangle .config/dunst/dunstrc :noweb yes :eval yes
 
   [global]
   frame_width = 2
-  frame_color = "#39bae6"
+  frame_color = "<<get-color(":foreground")>>"
   font = sourcecodepro
 
   # Allow a small subset of html markup:
@@ -324,15 +371,15 @@
   [urgency_low]
   # IMPORTANT: colors have to be defined in quotation marks.
   # Otherwise the "#" and following would be interpreted as a comment.
-  background "#0d1017"
+  background = "<<get-color(":background")>>"
   foreground = "#888888"
   timeout = 10
   # Icon for notifications with low urgency, uncomment to enable
   #icon = /path/to/icon
 
   [urgency_normal]
-  background = "#1e2128"
-  foreground = "#ffffff"
+  background = "<<get-color(":background")>>"
+  foreground = "<<get-color(":foreground")>>"
   timeout = 10
   # Icon for notifications with normal urgency, uncomment to enable
   #icon = /path/to/icon
@@ -347,6 +394,7 @@
 #+end_src
 
 * Polybar
+
 #+begin_src conf :tangle .config/polybar/config.ini
 
   [settings]
@@ -354,12 +402,9 @@
   pseudo-transparency = true
 
   [colors]
-  background = #F20d1017
-  background-alt = #131721
-  foreground = #C5C8C6
+  background = ${xrdb:emacs.background}
+  foreground = ${xrdb:emacs.foreground}
   primary = #7fd962
-  secondary = #bfbdb6
-  alert = #A54242
   disabled = #707880
 
   [bar/example]