updates from fedora

.bashrc

@@ -12,7 +12,7 @@ alias dired="emacsclient -c -nw -a '' --eval '(dired nil)'"
 alias update-grub="sudo grub-mkconfig -o /boot/grub/grub.cfg"
 alias update-xmonad="yay -S xmonad-git xmonad-contrib-git xmobar-git"
 alias git-python='/usr/bin/git --git-dir=$HOME/devel/python/python-bits-and-bobs --work-tree=$HOME/devel/python'
-alias rm='echo "This is not the command you are looking for."; false'
+#alias rm='echo "This is not the command you are looking for."; false'
 alias tp='trash-put'
 alias te='trash-empty'
 alias tl='trash-list'

.config/scratch/.Scratch.org.~undo-tree~

@@ -0,0 +1,4 @@
+(undo-tree-save-format-version . 1)
+"e3e53e518e32da1639104fcee51eb2fd7e2d7546"
+[nil current nil nil (25227 12562 895871 720000) 0 nil]
+nil

.config/stumpwm/config

@@ -0,0 +1,13 @@
+(in-package :stumpwm)
+
+(run-shell-command "export GDK_CORE_DEVICE_EVENTS=1")
+
+(defvar *app-keymap*
+  (let ((m (make-sparse-keymap)))
+    (define-key m (kbd "b") "exec firefox")
+    (define-key m (kbd "t") "exec alacritty")
+    m))
+
+(define-key *root-map* (kbd "a") '*app-keymap*)
+
+(setf *mouse-focus-policy* :click)

.config/stumpwm/start_stumpwm.sh

@@ -0,0 +1,4 @@
+#!/usr/bin/env bash
+
+export GDK_CORE_DEVICE_EVENTS=1
+stumpwm

.xinitrc

@@ -1,6 +1,7 @@
-xrdb -load ~/.Xresources
-exec dbus-launch xmonad
+#xrdb -load ~/.Xresources
+#exec dbus-launch xmonad
 #exec qtile start
 #exec dbus-launch --exit-with-session emacs -mm --eval "(exwm-enable)"
 #exec herbstluftwm --locked
-#exec stumpwm
+export GDK_CORE_DEVICE_EVENTS=1
+exec stumpwm

.xmonad/build

@@ -0,0 +1,10 @@
+# ~/.xmonad/build
+#!/bin/sh
+exec stack ghc -- \
+  --make xmonad.hs \
+  -i \
+  -ilib \
+  -fforce-recomp \
+  -main-is main \
+  -v0 \
+  -o "$1"

.xmonad/stack.yaml

@@ -0,0 +1,72 @@
+# This file was automatically generated by 'stack init'
+#
+# Some commonly used options have been documented as comments in this file.
+# For advanced use and comprehensive documentation of the format, please see:
+# https://docs.haskellstack.org/en/stable/yaml_configuration/
+
+# Resolver to choose a 'specific' stackage snapshot or a compiler version.
+# A snapshot resolver dictates the compiler version and the set of packages
+# to be used for project dependencies. For example:
+#
+# resolver: lts-3.5
+# resolver: nightly-2015-09-21
+# resolver: ghc-7.10.2
+#
+# The location of a snapshot can be provided as a file or url. Stack assumes
+# a snapshot provided as a file might change, whereas a url resource does not.
+#
+# resolver: ./custom-snapshot.yaml
+# resolver: https://example.com/snapshots/2018-01-01.yaml
+resolver:
+  url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/8.yaml
+
+# User packages to be built.
+# Various formats can be used as shown in the example below.
+#
+# packages:
+# - some-directory
+# - https://example.com/foo/bar/baz-0.0.2.tar.gz
+#   subdirs:
+#   - auto-update
+#   - wai
+packages:
+- xmobar-git
+- xmonad-git
+- xmonad-contrib-git
+# Dependency packages to be pulled from upstream that are not in the resolver.
+# These entries can reference officially published versions as well as
+# forks / in-progress versions pinned to a git hash. For example:
+#
+# extra-deps:
+# - acme-missiles-0.3
+# - git: https://github.com/commercialhaskell/stack.git
+#   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
+#
+extra-deps:
+  - netlink-1.1.1.0
+
+# Override default flag values for local packages and extra-deps
+flags:
+  xmobar:
+    all_extensions: true
+
+# Extra package databases containing global packages
+# extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+#
+# Require a specific version of stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: ">=2.7"
+#
+# Override the architecture used by stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+#
+# Extra directories used by stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]
+#
+# Allow a newer minor version of GHC than the snapshot specifies
+# compiler-check: newer-minor

.xmonad/xmonad.hs

@@ -39,7 +39,7 @@ import XMonad.Util.EZConfig (additionalKeysP, removeKeys)
 import XMonad.Util.NamedScratchpad
 import XMonad.Util.ClickableWorkspaces (clickablePP)
 import XMonad.Util.Loggers
-import XMonad.Util.XProp
+--import XMonad.Util.XProp
 
 -- Actions
 import XMonad.Actions.DynamicProjects (Project (..), dynamicProjects, switchProjectPrompt, shiftToProjectPrompt, switchProject, shiftToProject)
@@ -68,6 +68,7 @@ myFocusFollowsMouse = True
 
 -- Define mod keys
 myModMask :: KeyMask
+--myModMask = mod4Mask
 myModMask = mod4Mask
 
 -- Define volume keys and commands
@@ -83,7 +84,7 @@ windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace
 myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
 
 -- Width of window border
-myBorderWidth = 2
+myBorderWidth = 0
   
 -- Border colors
 myNormalBorderColor = "#282828"
@@ -141,9 +142,9 @@ projects =
 -- Config layouts
 myLayout = windowNavigation
          $ renamed [CutWordsLeft 1]
-         $ spacing 2
-         $ smartBorders
-         (masterTab ||| (tabbed shrinkText myTabTheme) ||| tiled Tall) 
+         $ spacing 0
+         -- $ smartBorders
+         (masterTab ||| (tabbed shrinkText myTabTheme) ||| tiled Tall ||| noBorders Full) 
     where
         -- tiled = Tall nmaster delta ratio
         tiled = HintedTile 1 0.03 0.5 TopLeft