primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 14:49:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: refactor

Browse source
This commit is contained in:
Primrose 2025-11-05 08:54:06 +08:00
parent b9fd0ef6b3
commit ca6fb5e7d2
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
5 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
nix/configurations/vanadium/home/xmonad/leanamonad.cabal
View file

@ -24,9 +24,9 @@ library
import: common import: common
hs-source-dirs: lib hs-source-dirs: lib
exposed-modules: exposed-modules:
Leanamonad.Layout.ReflectMsg XMonad.Layout.Reflect.Message
Leanamonad.Layout.ResizableTile XMonad.Layout.ResizableTile.FixDescription
Leanamonad.GreekChar Data.Char.Greek
executable leanamonad executable leanamonad
import: common import: common

2
nix/configurations/vanadium/home/xmonad/lib/Leanamonad/GreekChar.hs → nix/configurations/vanadium/home/xmonad/lib/Data/Char/Greek.hs
View file

@ -1,4 +1,4 @@
module Leanamonad.GreekChar where module Data.Char.Greek where
import Data.List (find) import Data.List (find)

2
nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layout/ReflectMsg.hs → nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/Reflect/Message.hs
View file

@ -1,7 +1,7 @@
{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE MultiParamTypeClasses #-}
module Leanamonad.Layout.ReflectMsg where module XMonad.Layout.Reflect.Message where
import XMonad ( import XMonad (
Resize (Expand, Shrink), Resize (Expand, Shrink),

5
nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layout/ResizableTile.hs → nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/ResizableTile/FixDescription.hs
View file

@ -1,9 +1,8 @@
{-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-} {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
module Leanamonad.Layout.ResizableTile module XMonad.Layout.ResizableTile.FixDescription
( module XMonad.Layout.ResizableTile ( RTFixDescription(..)
, RTFixDescription(..)
) where ) where
import XMonad import XMonad

7
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -12,8 +12,10 @@ import XMonad.Hooks.RefocusLast
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.Reflect import XMonad.Layout.Reflect
import XMonad.Layout.Reflect.Message
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.ResizableTile import XMonad.Layout.ResizableTile
import XMonad.Layout.ResizableTile.FixDescription
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
@ -26,10 +28,7 @@ import qualified Data.Map.Strict as M
import System.Posix import System.Posix
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
import Leanamonad.Layout.ReflectMsg import Data.Char.Greek
-- TODO: rename this module
import Leanamonad.Layout.ResizableTile
import Leanamonad.GreekChar
main :: IO () main :: IO ()
main = main =