From c78c301084ca52a884dcc696869a39d529c4999c Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 20 Oct 2016 17:55:43 -0700 Subject: [PATCH 01/48] [Shell] Put cabal path in front --- dotfiles/lib/shellpath.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dotfiles/lib/shellpath.sh b/dotfiles/lib/shellpath.sh index 25460e0c..094c8851 100644 --- a/dotfiles/lib/shellpath.sh +++ b/dotfiles/lib/shellpath.sh @@ -135,5 +135,5 @@ function _path_helper { } function _haskell_setup { - add_to_path "$HOME/.cabal/bin" + add_to_path "$HOME/.cabal/bin" --before } From 80addc4ae9dbafacd01ef16f3225d04a270f0084 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 20 Oct 2016 17:58:25 -0700 Subject: [PATCH 02/48] [XMonad] Use custom WindowBringer config --- dotfiles/xmonad/xmonad.hs | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 7a78ed50..a12a2c41 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -21,6 +21,16 @@ import qualified XMonad.StackSet as W import XMonad.Util.CustomKeys import XMonad.Util.NamedWindows (getName) +myDecorateName ws w = do + name <- show <$> getName w + return $ name -- ++ " [" ++ W.tag ws ++ "]" + +myWindowBringerConfig = WindowBringerConfig{ menuCommand = "rofi" + , menuArgs = ["-dmenu"] + , windowTitler = myDecorateName + } + + main = xmonad $ ewmh $ pagerHints def { modMask = mod4Mask , terminal = "urxvt" @@ -53,10 +63,10 @@ myStartup = spawn "systemctl --user start wm.target" addKeys conf@XConfig {modMask = modm} = [ ((modm, xK_p), spawn "rofi -show drun") , ((modm .|. shiftMask, xK_p), spawn "rofi -show run") - , ((modm, xK_g), gotoMenuArgs' "rofi" ["-dmenu"]) + , ((modm, xK_g), gotoMenuConfig myWindowBringerConfig) + , ((modm, xK_b), bringMenuConfig myWindowBringerConfig) , ((modm .|. controlMask, xK_t), spawn "systemctl --user restart taffybar.service") - , ((modm, xK_b), bringMenuArgs' "rofi" ["-dmenu"]) , ((modm, xK_v), spawn "copyq paste") , ((modm, xK_s), swapNextScreen) , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full") From 66743214194f117dd266db327ed35f926db17c42 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 20 Oct 2016 17:58:58 -0700 Subject: [PATCH 03/48] [XMonad] Move setWorkspaceName... to top level --- dotfiles/xmonad/xmonad.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index a12a2c41..2a0c6a03 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -44,12 +44,13 @@ main = xmonad $ ewmh $ pagerHints def myLogHook = fadeInactiveLogHook 0.9 +setWorkspaceNameToFocusedWindow workspace = do + namedWindows <- mapM getName $ take 2 $ W.integrate' $ W.stack workspace + setWorkspaceName (W.tag workspace) (concatMap show namedWindows) + automaticallySetWorkspaceNames = do ws <- gets windowset mapM_ setWorkspaceNameToFocusedWindow (W.workspaces ws) - where setWorkspaceNameToFocusedWindow workspace = do - namedWindows <- mapM getName $ take 2 $ W.integrate' $ W.stack workspace - setWorkspaceName (W.tag workspace) (concatMap show namedWindows) shiftThenView i = W.greedyView i . W.shift i From 43b512abb255a0bb58c35fe8cf1c938f45de6153 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 21 Oct 2016 15:44:47 -0700 Subject: [PATCH 04/48] [XMonad] Make rofi command case insensitive --- dotfiles/xmonad/xmonad.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 2a0c6a03..60035cb6 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -23,13 +23,12 @@ import XMonad.Util.NamedWindows (getName) myDecorateName ws w = do name <- show <$> getName w - return $ name -- ++ " [" ++ W.tag ws ++ "]" - -myWindowBringerConfig = WindowBringerConfig{ menuCommand = "rofi" - , menuArgs = ["-dmenu"] - , windowTitler = myDecorateName - } + return $ name ++ " [" ++ W.tag ws ++ "]" +myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi" + , menuArgs = ["-dmenu", "-i"] + , windowTitler = myDecorateName + } main = xmonad $ ewmh $ pagerHints def { modMask = mod4Mask From c520264f4cbe97161341d9ee11be1eaa34c13d3a Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 21 Oct 2016 16:37:26 -0700 Subject: [PATCH 05/48] [XMonad] Make WindowBringer text similar to rofi --- dotfiles/xmonad/xmonad.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 60035cb6..c94e8b24 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -1,5 +1,6 @@ import Graphics.X11.ExtraTypes.XF86 import System.Taffybar.Hooks.PagerHints (pagerHints) +import Text.Printf import XMonad hiding ( (|||) ) import XMonad.Actions.CycleWS @@ -23,7 +24,8 @@ import XMonad.Util.NamedWindows (getName) myDecorateName ws w = do name <- show <$> getName w - return $ name ++ " [" ++ W.tag ws ++ "]" + classHint <- withDisplay $ \d -> io $ getClassHint d w + return $ printf "%-2s %-20s%-20s" (W.tag ws) (resClass classHint) name myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi" , menuArgs = ["-dmenu", "-i"] From eb5b8f5e24647e4feb6dd8c91cfa2dc5d780737c Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 21 Oct 2016 21:51:05 -0700 Subject: [PATCH 06/48] [Emacs] Always show trailing whitespace --- dotfiles/emacs.d/README.org | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index bcc92099..b0a732e3 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -999,6 +999,13 @@ Set the default fill-column #+BEGIN_SRC emacs-lisp (setq-default fill-column 80) #+END_SRC +** Show Trailing Whitespace +Trailing whitespace is really messy and annoying, which makes this a must-have +in my opinion. It's kind of crazy how often you will encounter serious codebases +with random whitespace ALL over the place. +#+BEGIN_SRC emacs-lisp +(setq-default show-trailing-whitespace t) +#+END_SRC ** Encoding UTF-8 everywhere #+BEGIN_SRC emacs-lisp From 80b58ceae3fb5f1f032d6d522d8a393f908140bc Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 21 Oct 2016 21:51:05 -0700 Subject: [PATCH 07/48] [Emacs] Update github pages index file --- index.html | 7485 ++++++++++++++++++++++++++-------------------------- 1 file changed, 3731 insertions(+), 3754 deletions(-) diff --git a/index.html b/index.html index cbc60187..180031fe 100644 --- a/index.html +++ b/index.html @@ -3,7 +3,7 @@ "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> - + @@ -102,56 +102,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - + - - - + pre.src {background-color: nil; color: unspecified-fg;} + pre.src {background-color: #263238; color: #ffffff;} + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -