Fixing go install path

This commit is contained in:
Zoe Roux
2022-02-03 15:11:10 +01:00
parent bf6fc7e6dc
commit 9dd9621d25
4 changed files with 20 additions and 11 deletions
+1
View File
@@ -13,3 +13,4 @@ tree
htop
kitty-shell-integration
mlocate
viu
+1
View File
@@ -29,6 +29,7 @@ export WGETRC="$XDG_CONFIG_HOME/wgetrc"
export PUB_CACHE="$XDG_CACHE_HOME/pub-cache"
export OMNISHARPHOME="$XDG_DATA_HOME/omnisharp"
export NUGET_PACKAGES="$XDG_CACHE_HOME"/NuGetPackages
export GOPATH="$XDG_DATA_HOME"/go
# Themings & breaking issues due to DWM.
export _JAVA_AWT_WM_NONREPARENTING=1
@@ -56,4 +56,6 @@ vim.cmd "set whichwrap+=<,>,[,],h,l"
vim.cmd [[set iskeyword+=-]]
vim.cmd [[set formatoptions-=cro]] -- TODO: this doesn't seem to work
vim.g.colorizer_nomap = 1
vim.g.targets_gracious = 1 -- for wellle/targets.vim
+16 -11
View File
@@ -1,4 +1,8 @@
module Lemonbar where
import Data.List.Utils (replace)
import XMonad.Hooks.DynamicLog (wrap)
type Color = String
data MouseButton
= LeftClick
@@ -27,20 +31,21 @@ data LemonbarFormatting
lemonbarFormatOne :: LemonbarFormatting -> String -> String
lemonbarFormatOne fmt = case fmt of
(Foreground color) -> wrap (bracket $ format1 "F{}" color) (bracket "F-")
(Background color) -> wrap (bracket $ format1 "B{}" color) (bracket "B-")
(Reverse) -> wrap (bracket "R") (bracket "R")
(Underline color) -> wrap (bracket (format1 "u{}" color) <> bracket "+u") (bracket "-u")
(Overline color) -> wrap (bracket (format1 "o{}" color) <> bracket "+o") (bracket "-o")
(Font index) -> wrap (bracket (format1 "T{}" index)) (bracket "T-")
(Offset size) -> (bracket (format1 "O{}" size) <>)
(Action button cmd) -> wrap (bracket (format "A{}:{}:" (fromMouseButton button, (escape ':' cmd))))
(Foreground color) -> wrap (bracket $ "F" <> color) (bracket "F-")
(Background color) -> wrap (bracket $ "B" <> color) (bracket "B-")
Reverse -> wrap (bracket "R") (bracket "R")
(Underline color) -> wrap (bracket ("u" <> color) <> bracket "+u") (bracket "-u")
(Overline color) -> wrap (bracket ("o" <> color) <> bracket "+o") (bracket "-o")
(Font index) -> wrap (bracket ("T" <> show index)) (bracket "T-")
(Offset size) -> (bracket ("O" <> show size) <>)
(Action button cmd) -> wrap (bracket (format "A{}:{}:" (fromMouseButton button, escape ':' cmd)))
(bracket "A")
where
escape :: Char -> String -> String
escape char = replace [char] ('\\':[char])
bracket :: String -> String
bracket = wrap "%{" "}"
escape char =
let charT = T.singleton char in
T.replace charT (T.cons '\\' charT)
lemonbarFormat :: [LemonbarFormatting] -> String -> String
lemonbarFormat fmts = foldr (.) id (lemonbarFormatOne <$> fmts)