UpdateHEADmaster

1 files changed, 18 insertions, 34 deletions

diff --git a/init.lisp b/init.lisp
index 90de49e..70e22ce 100644
--- a/init.lisp
+++ b/init.lisp
@@ -1,5 +1,5 @@
 (in-package :stumpwm)
-(load "~/.stumpwm.d/setup")
+(ignore-errors (load "~/.stumpwm.d/setup"))
 
 ;;; Variables
 
@@ -13,47 +13,29 @@
 (defparameter +bookmark-file+
   "~/.local/share/bookmarks")
 
-(load "~/.stumpwm.d/commands")
+(ignore-errors (load "~/.stumpwm.d/commands"))
 
 (setf *mouse-focus-policy* :click
       *top-level-error-action* :message
       *input-window-gravity* :center
-      *message-window-gravity* :center
-      app-menu:*app-menu*
-      '(("Firefox" "firefox")
-        ("Brave" "brave")
-        ("NYXT" "nyxt")
-        ("Gajim" "gajim")
-        ("Tor Browser" "torbrowser-launcher")
-        ("Krita" "krita")
-        ("Gimp" "gimp")
-        ("Xournal++" "xournalpp")
-        ("Pcmanfm" "pcmanfm")
-        ("Arandr" "arandr")
-        ("Powertop" "pkexec st -e powertop")
-        ("TLP" "tlpui")
-        ("KeepassXC" "keepassxc")
-        ("Ario" "ario")
-        ("Transmission" "transmission-gtk"))
-      end-session:*end-session-menu*
-      (list (list "Logout" #'end-session:logout)
-            (list "Shutdown" #'end-session:shutdown-computer)
-            (list "Restart"  #'end-session:restart-computer)
-            (list "Suspend" #'end-session:suspend-computer)
-            (list "Lock" #'lock-computer))
-      *input-refine-candidates-fn* 'stumpwm-prescient:refine-input)
+      *message-window-gravity* :center)
 
 ;;; Init
 
 (when *initializing*
   (xft:cache-fonts)
-  (set-font
-   (make-instance 'xft:font :family "FantasqueSansMono Nerd Font" :subfamily "Regular" :size 14 :antialias t))
   (dolist (group *groups*)
     (gnew group))
   (gnext)
   (gkill)
-  (gnext))
+  (gnext)
+  (uiop:run-program "~/.stumpwm.d/xsession")
+  (setf *mode-line-background-color* "white"
+        *mode-line-foreground-color* "black"
+        *screen-mode-line-format* (list "[^B%n^b] %W |" '(:eval (run-shell-command "date +'%d/%m/%Y %H:%M'" t)))
+        stumptray:*tray-viwin-background* "#ffffff")
+  (mode-line)
+  (stumptray:stumptray))
 
 ;;; Frame preferences
 
@@ -61,6 +43,7 @@
   (0 t t :create t :class "Emacs"))
 (define-frame-preference "browser"
   (0 t t :create t :class "firefox")
+  (0 t t :create t :class "Chromium")
   (0 t t :create t :class "Nyxt")
   (0 t t :create t :class "Brave"))
 (define-frame-preference "media"
@@ -98,7 +81,6 @@
      ("C-M-f" . "M-f")
      ("C-s" . "C-f")
      ("C-k" . ("C-S-End" "C-x")))))
-
 ;;; Keybindings
 
 (set-prefix-key (kbd "M-z"))
@@ -127,19 +109,20 @@ For example:
    ("s-e" . "gselect other")
    ("s-j" . "fnext")
    ("s-k" . "fprev")
+   ("s-m" . "run-shell-command icedove")
    ("s-n" . "pull-hidden-next")
    ("s-o" . "gselect browser")
    ("s-p" . "pull-hidden-previous")
    ("s-q" . "delete")
-   ("s-r" . "show-menu")
+   ("s-r" . "launcher-command")
    ("s-u" . "gselect media")
-   ("s-w" . "run-shell-command brave")
+   ("s-w" . "run-shell-command chromium")
    ("s-A" . "gmove emacs")
    ("s-O" . "gmove browser")
    ("s-E" . "gmove other")
    ("s-R" . "launcher-command")
    ("s-U" . "gmove media")
-   ("s-SPC" . "run-shell-command st")
+   ("s-RET" . "run-shell-command st -e tmux a")
    ("s-BackSpace" . "powermenu")
    ("XF86AudioRaiseVolume" . "volume-up")
    ("XF86AudioLowerVolume" . "volume-down")
@@ -152,7 +135,7 @@ For example:
      ("2" . "vsplit")
      ("b" . "pull-from-windowlist")
      ("e" . "run-shell-command emacsclient -c")
-     ("M-b" . "bookmarks" )
+     ("M-b" . "bookmarks")
      ("M-c" . "powermenu")
      ("M-e" . "run-shell-command emacsclient -c")
      ("M-h" . "move-window left")
@@ -160,4 +143,5 @@ For example:
      ("M-k" . "move-window up")
      ("M-l" . "move-window right")
      ("M-p" . "pass-copy-menu")
+     ("M-t" . "run-shell-command otpmenu")
      ("M-r" . "launcher-command")))