Schwarztee/alkaa
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: add vm workspace

Browse Source
This commit is contained in:
Max Hohlfeld 2024-05-21 08:14:24 +02:00
parent 03c3ccec72
commit d8154df97f
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
roles/scripts/files/t460p/start_vm Normal file
View File

@ -0,0 +1,5 @@
#! /usr/bin/env sh
virsh --connect qemu:///system start "win11"
virt-manager --connect qemu:///system --show-domain-console "win11"

1
roles/scripts/tasks/main.yml
View File

@ -42,4 +42,5 @@
with_items:
- { src: compiledoc, dest: ~/.local/bin/compiledoc }
- { src: inline_code.tex, dest: ~/.local/bin/inline_code.tex }
- { src: start_vm, dest: ~/.local/bin/start_vm }
tags: t460p

8
roles/xmonad/files/xmonad_t460p.hs
View File

@ -35,7 +35,7 @@ import XMonad.Prompt.FuzzyMatch
import XMonad.Prompt.Shell
import XMonad.Prompt.Workspace
import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook)
import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.OnPropertyChange (onXPropertyChange)
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import Text.Regex.Posix
@ -91,6 +91,7 @@ topicItems =
, TI "ST_Backend" "~/projekte/SchulungsTracker/Backend" (switchToLayout "Full" *> spawn "rider ~/projekte/SchulungsTracker/Backend/SchulungsTracker_Backend.sln")
, TI "ST_Wiki" "~/projekte/SchulungsTracker/Wiki" (switchToLayout "Programming" *> spawnEditor)
, TI "azsql-dump" "~/projekte/azsql-dump" (switchToLayout "Programming" *> spawnShell *> spawnEditor)
, TI "gtue" "~/projekte/gtue" (switchToLayout "FullNoBar" *> spawn "start_vm")
]
myTopicConfig :: TopicConfig
@ -227,11 +228,12 @@ myAdditionalKeys =
mySpacing :: Integer -> l a -> XMonad.Layout.LayoutModifier.ModifiedLayout Spacing l a
mySpacing i = spacingRaw True (Border i i i i) True (Border i i i i) True
myLayout = avoidStruts $ tiling ||| hacking ||| full
myLayout = avoidStrutsOn [U] (tiling ||| hacking ||| full) ||| fullNoBar
where
tiling = renamed [Replace "Tall"] $ smartBorders $ mySpacing 6 $ Tall 1 (3/100) (1/2)
hacking = renamed [Replace "Programming"] $ smartBorders $ mySpacing 6 $ Tall 1 (3/100) (5/8)
full = noBorders Full
fullNoBar = renamed [Replace "FullNoBar"] full
-- Regex lifted up to use in manageHook
(*!?) :: Functor f => f String -> String -> f Bool
q *!? x = fmap (=~ x) q
@ -268,7 +270,7 @@ myManageHook = composeAll . concat $
-- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid.
--
myEventHook = dynamicPropertyChange "WM_NAME" (title =? "it factum Max Hohlfeld - KeePassXC" <||> title =? "db.kdbx [Gesperrt] - KeePassXC" --> floating)
myEventHook = onXPropertyChange "WM_NAME" (title =? "it factum Max Hohlfeld - KeePassXC" <||> title =? "db.kdbx [Gesperrt] - KeePassXC" --> floating)
where floating = customFloating $ W.RationalRect (1/8) (1/8) (3/4) (3/4)
------------------------------------------------------------------------