home/natto: misc changes

update st config
update pkgs and stuff
misc updates to emacs and xmonad config

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>

home/natto/config/emacs/config.org

@@ -486,7 +486,7 @@ This returns the command to run in the terminal
            ("java" (concat "java" full))
            ("py" (concat "python" full))
            ("cpp" (concat "g++ " full " -o " file " && " file " && rm " file))
-           ("hs" (concat "ghc -dynamic " full " && " file " && rm " file " " file ".o"))
+           ("hs" (concat "runhaskell " full))
            ("sh" (concat "sh" full))
            ("js" (concat "node" full))
            ("ts" (concat "tsc" full " && node " file ".js && rm " file ".js" ))

home/natto/config/xmonad/xmobar.hs

@@ -37,13 +37,13 @@ config =
           Run $ Date "<fn=1>\xf073</fn> %-d/%-m/%-y/%w" "date" 10000,
           Run $ Date "%H:%M:%S" "time" 10,
           Run $ MPD ["-t", "<statei><title><fn=" ++ magenta ++ "> \xf001</fn>", "--", "-P", ">> ", "-Z", "|| ", "-S", "Stopped", "-h", "127.0.0.1", "-p", "6600"] 10,
-          Run $ Com "/home/natto/.xmonad/lib/padding-icon.sh" ["stalonetray"] "tray" 10,
+          Run $ Com "~/.xmonad/lib/padding-icon.sh" ["stalonetray"] "tray" 10,
           Run $ Com "pamixer" ["--get-volume"] "" 100,
           Run UnsafeStdinReader
         ],
       sepChar = "*",
       alignSep = "--",
-      template = "<action=`dmenu_run` button=1><icon=/home/natto/.xmonad/lib/nixos.xpm/></action> *UnsafeStdinReader* " ++ sep ++ " <fn=1></fn>*mpd* -- *multicpu* " ++ sep ++ " *memory* " ++ sep ++ " *dynnetwork* " ++ sep ++ " *battery* " ++ sep ++ " <fn=1>\xf028</fn> <fc=" ++ green ++ ">*pamixer*%</fc> " ++ sep ++ " *date* - *time* " ++ sep ++ "*tray*"
+      template = "<action=`dmenu_run` button=1><icon=~/.xmonad/lib/nixos.xpm/></action> *UnsafeStdinReader* " ++ sep ++ " <fn=1></fn>*mpd* -- *multicpu* " ++ sep ++ " *memory* " ++ sep ++ " *dynnetwork* " ++ sep ++ " *battery* " ++ sep ++ " <fn=1>\xf028</fn> <fc=" ++ green ++ ">*pamixer*%</fc> " ++ sep ++ " *date* - *time* " ++ sep ++ "*tray*"
     }
 
 main :: IO ()

home/natto/config/xmonad/xmonad.hs

@@ -56,6 +56,12 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
 
   , ((modMask, xK_d),
      spawn "dmenu_run -l 20")
+
+  , ((shiftMask .|. mod1Mask, xK_v),
+     spawn "clipmenu")
+
+  , ((modMask, xK_s),
+     spawn "dmenu_websearch")
   
   , ((shiftMask, xK_Print),
      spawn "flameshot gui")