diff --git a/misc/my-hosts b/misc/my-hosts deleted file mode 100644 index 9504df4..0000000 --- a/misc/my-hosts +++ /dev/null @@ -1,3 +0,0 @@ -127.0.0.1 localhost -192.168.3.1 gw.c2vi.dev - diff --git a/misc/my-hosts-h b/misc/my-hosts-h deleted file mode 100644 index 67e1ae3..0000000 --- a/misc/my-hosts-h +++ /dev/null @@ -1,11 +0,0 @@ -192.168.1.6 hpm -192.168.1.4 fe -192.168.1.2 fusu -192.168.1.2 files -192.168.1.5 acern -192.168.1.22 fasu -192.168.1.1 rou -192.168.1.1 router -192.168.1.33 mac -192.168.1.36 mosatop -192.168.1.44 lush diff --git a/misc/my-hosts-pt b/misc/my-hosts-pt deleted file mode 100644 index 8544be8..0000000 --- a/misc/my-hosts-pt +++ /dev/null @@ -1,4 +0,0 @@ -192.168.44.1 phone -192.168.44.11 main -192.168.44.22 lush - diff --git a/misc/my-hosts-pw b/misc/my-hosts-pw deleted file mode 100644 index e69de29..0000000 diff --git a/misc/my-hosts-r b/misc/my-hosts-r deleted file mode 100644 index d21822a..0000000 --- a/misc/my-hosts-r +++ /dev/null @@ -1,4 +0,0 @@ -home.c2vi.dev rpi -home.c2vi.dev fusu -home.c2vi.dev rpis -home.c2vi.dev files diff --git a/misc/my-hosts-t b/misc/my-hosts-t deleted file mode 100644 index be83d11..0000000 --- a/misc/my-hosts-t +++ /dev/null @@ -1,10 +0,0 @@ -100.107.67.76 te -100.93.225.52 fasu -100.88.42.194 fwin -100.88.28.123 fe -100.88.79.207 fusu -100.88.79.207 files -100.88.164.39 lush -100.88.112.181 mac -100.88.116.225 nico -100.88.245.227 phone diff --git a/misc/settings.zip b/misc/settings.zip deleted file mode 100755 index 2a6ee55..0000000 Binary files a/misc/settings.zip and /dev/null differ diff --git a/misc/xmobar.hs b/misc/xmobar.hs deleted file mode 100644 index fc33aae..0000000 --- a/misc/xmobar.hs +++ /dev/null @@ -1,74 +0,0 @@ -Config { - - -- appearance - font = "xft:Bitstream Vera Sans Mono:size=15:bold:antialias=true" - , bgColor = "black" - , fgColor = "#646464" - , position = Top - , border = BottomB - , borderColor = "#646464" - - -- layout - , sepChar = "%" -- delineator between plugin names and straight text - , alignSep = "}{" -- separator between left-right alignment - , template = "HI | %dynnetwork% }{ %battery% | %date%" - --, template = "%battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% }{ %RJTT% | %date% || %kbd% " - --, template = "%battery% | %multicpu% | %coretemp% | %memory% | %dynnetwork% }{ %RJTT% | %date% || %kbd% " - - -- general behavior - , lowerOnStart = True -- send to bottom of window stack on start - , hideOnStart = False -- start with window unmapped (hidden) - , allDesktops = True -- show on all desktops - , overrideRedirect = True -- set the Override Redirect flag (Xlib) - , pickBroadest = False -- choose widest display (multi-monitor) - , persistent = True -- enable/disable hiding (True = disabled) - - -- plugins - -- Numbers can be automatically colored according to their value. xmobar - -- decides color based on a three-tier/two-cutoff system, controlled by - -- command options: - -- --Low sets the low cutoff - -- --High sets the high cutoff - -- - -- --low sets the color below --Low cutoff - -- --normal sets the color between --Low and --High cutoffs - -- --High sets the color above --High cutoff - -- - -- The --template option controls how the plugin is displayed. Text - -- color can be set by enclosing in tags. For more details - -- see http://projects.haskell.org/xmobar/#system-monitor-plugins. - , commands = - [ - -- network - Run DynNetwork [ "--template" , ": kB/s|kB/s" - , "--Low" , "1000" -- units: B/s - , "--High" , "5000" -- units: B/s - , "--low" , "darkgreen" - , "--normal" , "darkorange" - , "--high" , "darkred" - ] 10 - - -- batery - , Run Battery [ "--template" , "Batt: " - , "--Low" , "10" -- units: % - , "--High" , "80" -- units: % - , "--low" , "darkred" - , "--normal" , "darkorange" - , "--high" , "darkgreen" - - , "--" -- battery specific options - -- discharging status - , "-o" , "% ()" - -- AC "on" status - , "-O" , "Charging" - -- charged status - , "-i" , "Charged" - ] 50 - - -- time and date indicator - -- (%F = y-m-d date, %a = day of week, %T = h:m:s time) - , Run Date "%F (%a) %T" "date" 10 - - ] - -} diff --git a/misc/xmonad.hs b/misc/xmonad.hs deleted file mode 100644 index 254644a..0000000 --- a/misc/xmonad.hs +++ /dev/null @@ -1,401 +0,0 @@ --- xmonad example config file. --- --- A template showing all available configuration hooks, --- and how to override the defaults in your own xmonad.hs conf file. --- --- Normally, you'd only override those defaults you care about. --- - -import XMonad -import Data.Monoid -import System.Exit - ---for xmobar -import XMonad.Hooks.DynamicLog -import XMonad.Hooks.StatusBar -import XMonad.Hooks.StatusBar.PP -import XMonad.Hooks.SetWMName -import XMonad.Hooks.EwmhDesktops - - -import Data.Monoid -import qualified Data.Map as M - -import XMonad -import Control.Monad - - -import qualified XMonad.StackSet as W -import qualified Data.Map as M - --- The preferred terminal program, which is used in a binding below and by --- certain contrib modules. --- -myTerminal = "alacritty" - --- Whether focus follows the mouse pointer. -myFocusFollowsMouse :: Bool -myFocusFollowsMouse = True - --- Whether clicking on a window to focus also passes the click to the window -myClickJustFocuses :: Bool -myClickJustFocuses = False - --- Width of the window border in pixels. --- -myBorderWidth = 2 --- myBorderWidth = 0 - --- modMask lets you specify which modkey you want to use. The default --- is mod1Mask ("left alt"). You may also consider using mod3Mask --- ("right alt"), which does not conflict with emacs keybindings. The --- "windows key" is usually mod4Mask. --- -myModMask = mod4Mask - --- The default number of workspaces (virtual screens) and their names. --- By default we use numeric strings, but any string may be used as a --- workspace name. The number of workspaces is determined by the length --- of this list. --- --- A tagging example: --- --- > workspaces = ["web", "irc", "code" ] ++ map show [4..9] --- -myWorkspaces = ["1","2","3","4","5","6","7","8","9"] - --- Border colors for unfocused and focused windows, respectively. --- -myNormalBorderColor = "#dddddd" -myFocusedBorderColor = "#ff0000" --- myFocusedBorderColor = "#68cedc" - ------------------------------------------------------------------------- --- Key bindings. Add, modify or remove key bindings here. --- -myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ - - [ - - -- launch a terminal - ((modm , xK_BackSpace), spawn $ XMonad.terminal conf), - - ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf), - - -- enable keyboard - --((button2), spawn "xinput enable 17"), - --((modm .|. button2, \w -> focus w >> windows W.shiftMaster), - - ((noModMask, xK_Page_Up), spawn "alacritty" ), - - -- player next - ((modm, xK_n), spawn "playerctl next"), - -- player previous - ((modm .|. shiftMask, xK_n), spawn "playerctl previous"), - -- player play-pause - ((modm , xK_c), spawn "playerctl play-pause"), - -- player volume up - ((modm , xK_v), spawn "amixer set Master 3%+"), - -- player volume down - ((modm .|. shiftMask, xK_v), spawn "amixer set Master 3%-"), - - -- xrandr - ((modm .|. shiftMask, xK_d), spawn "xrandr --output eDP-1 --off"), - - ((modm .|. shiftMask, xK_f), spawn "bash -c \"kill -9 $(pgrep firefox)\""), - - ((modm , xK_d), spawn "xrandr --output eDP-1 --auto"), - - -- launch mshot - ((modm .|. shiftMask, xK_m), spawn "mshot"), - - - -- launch dmenu - ((modm, xK_p ), spawn "nice -n 7 rofi -show run"), - - -- close focused window - ((modm .|. shiftMask, xK_c ), kill), - - -- Rotate through the available layout algorithms - ((modm, xK_space ), sendMessage NextLayout), - - -- Reset the layouts on the current workspace to default - ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf), - - -- Resize viewed windows to the correct size - --((modm, xK_n ), refresh), - - -- Move focus to the next window - ((modm, xK_Tab ), windows W.focusDown), - - -- Move focus to the next window - ((modm, xK_j ), windows W.focusDown), - - -- Move focus to the previous window - ((modm, xK_k ), windows W.focusUp ), - - -- Move focus to the master window - --((modm, xK_m ), windows W.focusMaster ), - - -- Swap the focused window and the master window - ((modm, xK_Return), windows W.swapMaster), - - -- Swap the focused window with the next window - ((modm .|. shiftMask, xK_j ), windows W.swapDown ), - - -- Swap the focused window with the previous window - ((modm .|. shiftMask, xK_k ), windows W.swapUp ), - - -- Shrink the master area - ((modm, xK_h ), sendMessage Shrink), - - -- Expand the master area - ((modm, xK_l ), sendMessage Expand), - - -- Push window back into tiling - ((modm, xK_t ), withFocused $ windows . W.sink), - - -- Increment the number of windows in the master area - ((modm , xK_comma ), sendMessage (IncMasterN 1)), - - -- Deincrement the number of windows in the master area - ((modm , xK_period), sendMessage (IncMasterN (-1))), - - -- Toggle the status bar gap - -- Use this binding with avoidStruts from Hooks.ManageDocks. - -- See also the statusBar function from Hooks.DynamicLog. - -- - -- , ((modm , xK_b ), sendMessage ToggleStruts) - - -- Quit xmonad - ((modm .|. shiftMask, xK_q ), io exitSuccess), - - -- Restart xmonad - ((modm , xK_q ), spawn "xmonad --recompile; xmonad --restart") - - -- Run xmessage with a summary of the default keybindings (useful for beginners) - --, ((modm .|. shiftMask, xK_slash ), xmessage help) - ] - ++ - - -- - -- mod-[1..9], Switch to workspace N - -- mod-shift-[1..9], Move client to workspace N - -- - [((m .|. modm, k), windows $ f i) - | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] - , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] - ++ - - -- - -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 - -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 - -- - [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) - | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..] - , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] - - ------------------------------------------------------------------------- --- Mouse bindings: default actions bound to mouse events --- -myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList - - -- mod-button1, Set the window to floating mode and move by dragging - [ ((modm, button1), \w -> focus w >> mouseMoveWindow w - >> windows W.shiftMaster) - - -- mod-button2, Raise the window to the top of the stack - -- , ((button2), spawn "xinput enable 17") - - -- mod-button3, Set the window to floating mode and resize by dragging - , ((modm, button3), \w -> focus w >> mouseResizeWindow w - >> windows W.shiftMaster) - - -- you may also bind events to the mouse scroll wheel (button4 and button5) - ] - ------------------------------------------------------------------------- --- Layouts: - --- You can specify and transform your layouts by modifying these values. --- If you change layout bindings be sure to use 'mod-shift-space' after --- restarting (with 'mod-q') to reset your layout state to the new --- defaults, as xmonad preserves your old layout settings by default. --- --- The available layouts. Note that each layout is separated by |||, --- which denotes layout choice. --- -myLayout = tiled ||| Full - where - -- default tiling algorithm partitions the screen into two panes - tiled = Tall nmaster delta ratio - - -- The default number of windows in the master pane - nmaster = 1 - - -- Default proportion of screen occupied by master pane - ratio = 1/2 - - -- Percent of screen to increment by when resizing panes - delta = 3/100 - ------------------------------------------------------------------------- --- Window rules: - --- Execute arbitrary actions and WindowSet manipulations when managing --- a new window. You can use this to, for example, always float a --- particular program, or have a client always appear on a particular --- workspace. --- --- To find the property name associated with a program, use --- > xprop | grep WM_CLASS --- and click on the client you're interested in. --- --- To match on the WM_NAME, you can use 'title' in the same way that --- 'className' and 'resource' are used below. --- -myManageHook = composeAll - [ - className =? "MPlayer" --> doFloat, - className =? "Gimp" --> doFloat, - resource =? "desktop_window" --> doIgnore, - resource =? "kdesktop" --> doIgnore - ] - ------------------------------------------------------------------------- --- Event handling - --- * EwmhDesktops users should change this to ewmhDesktopsEventHook --- --- Defines a custom handler function for X Events. The function should --- return (All True) if the default handler is to be run afterwards. To --- combine event hooks use mappend or mconcat from Data.Monoid. --- ---myEventHook = ewmhFullscreen `mappend` keyUpEventHook - ------------------------------------------------------------------------- --- Status bars and logging - --- Perform an arbitrary action on each internal state change or X event. --- See the 'XMonad.Hooks.DynamicLog' extension for examples. --- -myLogHook = return () - ------------------------------------------------------------------------- --- Startup hook - --- Perform an arbitrary action each time xmonad starts or is restarted --- with mod-q. Used by, e.g., XMonad.Layout.PerWorkspace to initialize --- per-workspace layout choices. --- -myStartupHook = do - spawn "echo hiiiiiiiiiiiiiiiiiiiiiiiiiiii | sudo tee -a /dev/kmsg" - spawn "bash ~/work/virtchord/run &" - spawn "xset r rate 130 85" - -- spawn "sudo swapon /swapfile" - spawn "setxkbmap de" - setWMName "LG3D" - - -main = xmonad $ xmobarProp $ myConfig - - -myConfig = ewmh def { - -- simple stuff - terminal = myTerminal, - focusFollowsMouse = myFocusFollowsMouse, - clickJustFocuses = myClickJustFocuses, - borderWidth = myBorderWidth, - modMask = myModMask, - workspaces = myWorkspaces, - normalBorderColor = myNormalBorderColor, - focusedBorderColor = myFocusedBorderColor, - - -- key bindings - keys = myKeys, - mouseBindings = myMouseBindings, - - -- hooks, layouts - layoutHook = myLayout, - manageHook = myManageHook, - handleEventHook = handleEventHook def, -- <+> keyUpEventHook, -- <+> fullscreenEventHook , - logHook = myLogHook, - startupHook = myStartupHook - } - - --- | Finally, a copy of the default bindings in simple textual tabular format. -help :: String -help = unlines ["The default modifier key is 'alt'. Default keybindings:", - "", - "-- launching and killing programs", - "mod-Shift-Enter Launch xterminal", - "mod-p Launch dmenu", - "mod-Shift-p Launch gmrun", - "mod-Shift-c Close/kill the focused window", - "mod-Space Rotate through the available layout algorithms", - "mod-Shift-Space Reset the layouts on the current workSpace to default", - "mod-n Resize/refresh viewed windows to the correct size", - "mod-Shift-/ Show this help message with the default keybindings", - "", - "-- move focus up or down the window stack", - "mod-Tab Move focus to the next window", - "mod-Shift-Tab Move focus to the previous window", - "mod-j Move focus to the next window", - "mod-k Move focus to the previous window", - "mod-m Move focus to the master window", - "", - "-- modifying the window order", - "mod-Return Swap the focused window and the master window", - "mod-Shift-j Swap the focused window with the next window", - "mod-Shift-k Swap the focused window with the previous window", - "", - "-- resizing the master/slave ratio", - "mod-h Shrink the master area", - "mod-l Expand the master area", - "", - "-- floating layer support", - "mod-t Push window back into tiling; unfloat and re-tile it", - "", - "-- increase or decrease number of windows in the master area", - "mod-comma (mod-,) Increment the number of windows in the master area", - "mod-period (mod-.) Deincrement the number of windows in the master area", - "", - "-- quit, or restart", - "mod-Shift-q Quit xmonad", - "mod-q Restart xmonad", - "mod-[1..9] Switch to workSpace N", - "", - "-- Workspaces & screens", - "mod-Shift-[1..9] Move client to workspace N", - "mod-{w,e,r} Switch to physical/Xinerama screens 1, 2, or 3", - "mod-Shift-{w,e,r} Move client to screen 1, 2, or 3", - "", - "-- Mouse bindings: default actions bound to mouse events", - "mod-button1 Set the window to floating mode and move by dragging", - "mod-button2 Raise the window to the top of the stack", - "mod-button3 Set the window to floating mode and resize by dragging"] - - - - - --- me trying to get key up to be handeled - -keyUpEventHook :: Event -> X All -keyUpEventHook e = handle e >> return (All True) - -keyUpKeys (XConf{ config = XConfig {XMonad.modMask = modMask} }) = M.fromList $ - [ ((noModMask, xK_Page_Up), spawn "mshot" ) ] - -handle :: Event -> X () -handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code}) - | t == keyRelease = withDisplay $ \dpy -> do - s <- io $ keycodeToKeysym dpy code 0 - mClean <- cleanMask m - ks <- asks keyUpKeys - userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id -handle _ = return () - -