Compare commits

...

2 Commits

Author SHA1 Message Date
Mid Favila 9c79ae1b10 Stuff. 2021-04-30 23:50:50 -03:00
Mid Favila 1b329b63d5 Stuff. 2021-04-30 23:50:29 -03:00
18 changed files with 816 additions and 191 deletions

19
docs/Migration Normal file
View File

@ -0,0 +1,19 @@
FVWM3 has been available for some time now, and I feel it pertinent to begin
shifting to the new builds. They appear to be more efficient, require fewer
dependencies, and have new features.
However, due to these new features, there have been breakages in my
configuration; for a long time I've ignored this, but no longer. The most
immediate cause for concern is that the taskbar module does not maintain
positions throughout reboot; instead, it bases its far right edge position on
the current focused page.
The iconman embedded in the taskbar does not extend across the taskbar's
entirety, either.
Lastly, the pager's proportions are wildly deviant.
These three things must be corrected before a permanent shift can take place.
Pager is corrected

View File

@ -2,9 +2,9 @@
Style * Font "$[infostore.std_font]" Style * Font "$[infostore.std_font]"
# Set FvwmScript theme settings. # Set FvwmScript theme settings.
*FvwmScript: DefaultFont "$[infostore.small_font]" *FvwmScript: DefaultFont "$[infostore.small_font]"
*FvwmScript: DefaultColorset 9 *FvwmScript: DefaultColorset 9
# Load theme settings. # Load theme settings.
Read $[FVWM_USERDIR]/assets/themes/$[infostore.theme]/theme.conf Read $[FVWM_USERDIR]/assets/themes/$[infostore.theme]/theme.conf
Read $[FVWM_USERDIR]/assets/cursors/$[infostore.cursor]/theme.conf Read $[FVWM_USERDIR]/assets/cursors/$[infostore.cursor]/theme.conf

View File

@ -1,75 +1,70 @@
# Test function. You shouldn't be seeing this. # Test function. You shouldn't be seeing this.
DestroyFunc TestScrotFunc DestroyFunc TestScrotFunc
AddToFunc TestScrotFunc AddToFunc TestScrotFunc
+ I Exec exec $[infostore.posix]/hunter -g + I Exec $[infostore.posix]/hunter -g
# Load and restore preferences. # Load and restore preferences.
DestroyFunc PrefFunc DestroyFunc PrefFunc
AddToFunc PrefFunc AddToFunc PrefFunc
+ I Read $[FVWM_USERDIR]/.data/prefrc + I Read $[FVWM_USERDIR]/.data/prefrc
+ I Function PaperBoy $[infostore.papedir]/$[infostore.pape] + I Function PaperBoy $[infostore.papedir]/$[infostore.pape]
# Start daemons. # Start daemons.
DestroyFunc DaemonFunc DestroyFunc DaemonFunc
AddToFunc DaemonFunc AddToFunc DaemonFunc
+ I Exec exec $[infostore.compositor] -c + I Exec $[infostore.compositor] -c
+ I Exec exec /usr/bin/xssstart $[infostore.locker] + I Exec /usr/bin/env xssstart $[infostore.locker]
+ I Exec exec $[infostore.notifs] + I Exec $[infostore.notifs]
+ I Exec exec $[infostore.posix]/batman + I Exec $[infostore.posix]/batman
+ I Module FvwmCommandS + I Module FvwmCommandS
# Spawn modules and whatnot. # Spawn modules and whatnot.
DestroyFunc ModuleFunc
AddToFunc ModuleFunc
AddToFunc ModuleFunc + I Module FvwmEvent AudioEvents
+ I Module FvwmEvent AudioEvents # + I Module FvwmButtons TaskBar
+ I Module FvwmButtons TaskBar # + I Schedule 5 Module FvwmIconMan TaskBarButtons
+ I Schedule 5 Module FvwmButtons Shelf + I Schedule 5 Module FvwmButtons Shelf
+ I Schedule 10 Module FvwmPager ShelfPager + I Schedule 10 Module FvwmPager ShelfPager
# Define how to handle task switching. # Define how to handle task switching.
DestroyFunc TaskSwitchFunc DestroyFunc TaskSwitchFunc
AddToFunc TaskSwitchFunc AddToFunc TaskSwitchFunc
+ I Iconify off + I Iconify off
+ I Focus + I Focus
+ I Raise + I Raise
+ I WarpToWindow !raise 5 5 + I WarpToWindow !raise 5 5
# Define the "Show Desktop" feature # Define the "Show Desktop" feature
DestroyFunc ShowDeskFunc DestroyFunc ShowDeskFunc
AddToFunc ShowDeskFunc AddToFunc ShowDeskFunc
+ I All (CurrentDesk, Iconic, State 1) HideDeskFunc + I All (CurrentDesk, Iconic, State 1) HideDeskFunc
+ I TestRc (Match) Break + I TestRc (Match) Break
+ I All (CurrentDesk, !Iconic, !State 1) ThisWindow State 1 True + I All (CurrentDesk, !Iconic, !State 1) ThisWindow State 1 True
+ I All (CurrentDesk, !Iconic, State 1) Iconify + I All (CurrentDesk, !Iconic, State 1) Iconify
DestroyFunc HideDeskFunc DestroyFunc HideDeskFunc
AddToFunc HideDeskFunc AddToFunc HideDeskFunc
+ I All (CurrentDesk, Iconic, State 1) Iconify off
+ I All (CurrentDesk, Iconic, State 1) Iconify off + I All (CurrentDesk, State1) ThisWindow State 1 False
+ I All (CurrentDesk, State1) ThisWindow State 1 False
# Remove widgets and set window dimensions to the size of the screen minus the # Remove widgets and set window dimensions to the size of the screen minus the
# UI elements. This simulates "full screen" without covering stuff. # UI elements. This simulates "full screen" without covering stuff.
# Currently a WIP.
DestroyFunc LargeifyFunc DestroyFunc LargeifyFunc
AddToFunc LargeifyFunc AddToFunc LargeifyFunc
+ I PipeRead "" + I Maximize
# A simple function to set the wallpaper. # A simple function to set the wallpaper.
DestroyFunc PaperBoy DestroyFunc PaperBoy
AddToFunc PaperBoy AddToFunc PaperBoy
+ I InfoStoreAdd pape $[FVWM_USERDIR]/.data/prefs/cosmetics/pape + I InfoStoreAdd pape $[FVWM_USERDIR]/.data/prefs/cosmetics/pape
+ I Exec exec $[infostore.posix]/paperboy $[infostore.papedir]/`cat $[infostore.pape]` + I Exec $[infostore.posix]/paperboy $[infostore.papedir]/`cat $[infostore.pape]`

View File

@ -2,30 +2,28 @@
IgnoreModifiers L25 IgnoreModifiers L25
# Disable the root menu # Disable the root menu
Mouse 1 R A Mouse 1 R A
# Bind the session manager and execute dialog # Bind the session manager and execute dialog
Key Delete A CM Module FvwmScript $[infostore.fscript]/FvwmScript-ConfirmQuit Key Delete A CM Module FvwmScript $[infostore.fscript]/FvwmScript-ConfirmQuit
Key Return A C Module FvwmScript $[infostore.fscript]/FvwmScript-Execute Key Return A C Module FvwmScript $[infostore.fscript]/FvwmScript-Execute
# Program shortcuts # Program shortcuts
Key T A CM Exec exec $[infostore.term] Key T A CM Exec $[infostore.term]
Key E A CM Exec exec $[infostore.editor] Key E A CM Exec $[infostore.editor]
Key F A CM Exec exec $[infostore.filer] Key F A CM Exec $[infostore.filer]
Key B A CM Exec exec $[infostore.lbrowse] Key B A CM Exec $[infostore.lbrowse]
Key M A CM Exec exec $[infostore.mail] Key M A CM Exec $[infostore.mail]
Key N A CM Exec exec $[infostore.news] Key N A CM Exec $[infostore.news]
Key I A CM Exec exec $[infostore.im] Key I A CM Exec $[infostore.im]
Key C A CM Exec exec $[infostore.calc] Key C A CM Exec $[infostore.calc]
# Shortcut for killing stuff # Shortcut for killing stuff
Key Q A CM Close Key Q A CM Close
# Window focus # Window focus
Key Tab A M Next (CurrentDesk, AcceptsFocus) TaskSwitchFunc Key Tab A M Next (CurrentPage, AnyScreen, AcceptsFocus) TaskSwitchFunc
Key Tab A SM Prev (CurrentDesk, AcceptsFocus) TaskSwitchFunc Key Tab A SM Prev (CurrentPage, AnyScreen, AcceptsFocus) TaskSwitchFunc
# Maximize # Maximize
Key F11 A A Maximize Key F11 A A Maximize

View File

@ -1,6 +1,6 @@
# The first section of the document defines the look and feel of menus. # The first section of the document defines the look and feel of menus.
MenuStyle * MenuColorset 5, PopupDelayed, PopupDelay 300, PopupAsSubmenu, \ MenuStyle * MenuColorset 5, PopupDelayed, PopupDelay 300, PopupAsSubmenu, \
HoldSubmenus, PopupOffset 1 100, PopdownImmediately, HilightTitleBack, \ HoldSubmenus, PopupOffset 1 100, PopdownImmediately, HilightTitleBack, \
TitleColorset 6, InactiveColorset 5, ActiveColorset 6, HilightBack, \ TitleColorset 6, InactiveColorset 5, ActiveColorset 6, HilightBack, \
Font "$[infostore.small_font]" Font "$[infostore.small_font]"
@ -32,44 +32,44 @@ AddToMenu EditMenu "$[gt. Editors ]" Title
DestroyMenu BrowseMenu DestroyMenu BrowseMenu
AddToMenu BrowseMenu "$[gt. Browsers ]" Title AddToMenu BrowseMenu "$[gt. Browsers ]" Title
+ "Full" Exec exec $[infostore.fbrowse] + "Full" Exec exec $[infostore.fbrowse]
+ "Lite" Exec exec $[infostore.lbrowse] + "Lite" Exec exec $[infostore.lbrowse]
DestroyMenu CommsMenu DestroyMenu CommsMenu
AddToMenu CommsMenu "$[gt. Comms ]" Title AddToMenu CommsMenu "$[gt. Comms ]" Title
+ "Mail" Exec exec $[infostore.mail] + "Mail" Exec exec $[infostore.mail]
+ "News" Exec exec $[infostore.news] + "News" Exec exec $[infostore.news]
+ "IM" Exec exec $[infostore.im] + "IM" Exec exec $[infostore.im]
DestroyMenu MediaMenu DestroyMenu MediaMenu
AddToMenu MediaMenu "$[gt. Media ]" Title AddToMenu MediaMenu "$[gt. Media ]" Title
+ "Video Player" Exec exec $[infostore.vplay] + "Video Player" Exec exec $[infostore.vplay]
+ "Music Player" Exec exec $[infostore.mplay] + "Music Player" Exec exec $[infostore.mplay]
+ "Image Viewer" Exec exec $[infostore.iview] + "Image Viewer" Exec exec $[infostore.iview]
+ "Image Editor" Exec exec $[infostore.iedit] + "Image Editor" Exec exec $[infostore.iedit]
DestroyMenu UtilMenu DestroyMenu UtilMenu
AddToMenu UtilMenu "$[gt. Utilities ]" Title AddToMenu UtilMenu "$[gt. Utilities ]" Title
+ "Calculator" Exec exec $[infostore.calc] + "Calculator" Exec exec $[infostore.calc]
+ "Doc Viewer" Exec exec $[infostore.dview] + "Doc Viewer" Exec exec $[infostore.dview]
+ "Torrents" Exec exec $[infostore.torrent] + "Torrents" Exec exec $[infostore.torrent]
+ "" Nop + "" Nop
+ "Screenshot" Exec exec $[infostore.posix]/hunter -g + "Screenshot" Exec exec $[infostore.posix]/hunter -g
+ "Identify" Module FvwmIdent + "Identify" Module FvwmIdent
+ "" Nop + "" Nop
+ "Manual" Exec exec $[infostore.man] + "Manual" Exec exec $[infostore.man]
DestroyMenu InfoMenu DestroyMenu InfoMenu
AddToMenu InfoMenu "$[gt. Sysinfo ]" Title AddToMenu InfoMenu "$[gt. Sysinfo ]" Title
+ "Task Manager" Exec exec $[infostore.pmon] + "Task Manager" Exec exec $[infostore.pmon]
+ "Systems Check" Module FvwmScript $[infostore.fscript]/FXDE-SystemsCheck + "Systems Check" Module FvwmScript $[infostore.fscript]/FXDE-SystemsCheck

View File

@ -1,23 +1,28 @@
# Define how to handle windows in general. # Define how to handle windows in general.
EwmhBaseStruts 0 136 32 0 #EwmhBaseStruts 0 136 32 0
ClickTime 250 EwmhBaseStruts 0 136 0 0
MoveThreshold 2 ClickTime 250
MoveThreshold 2
Style * SloppyFocus Style * SloppyFocus
Style * TileCascadePlacement Style * TileCascadePlacement
# Define how to handle system windows # Define how to handle system windows
Style Session GrabFocus,WindowListSkip,StaysOnTop,Sticky,PositionPlacement Center Style Session GrabFocus,WindowListSkip,StaysOnTop,Sticky,PositionPlacement\
Style Run... GrabFocus,WindowListSkip,StaysOnTop,Sticky,PositionPlacement Center Center
Style Run... GrabFocus,WindowListSkip,StaysOnTop,Sticky,PositionPlacement\
Center
# Define how to handle application windows # Define how to handle application windows
Style XCalendar !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip Style XCalendar !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip
Style svkbd !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip,NeverFocus Style svkbd !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip,\
Style XVkbd !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip,NeverFocus NeverFocus
Style XVkbd !Title,!Borders,!Handles,Sticky,StaysOnTop,WindowListSkip,\
NeverFocus
# We don't want to worry about rubber-banding freezing the screen... # We don't want to worry about rubber-banding freezing the screen...
OpaqueMoveSize unlimited OpaqueMoveSize unlimited
# This is an icon-free zone, ma'am. # This is an icon-free zone, ma'am.
Style * NoIcon Style * NoIcon

15
mainrc
View File

@ -1,8 +1,5 @@
# StartFunction executes every time FVWM executes. # StartFunction executes every time FVWM executes.
# Load in necessary data. # Load in necessary data.
Read .data/prefrc Read .data/prefrc
Read infra/funcrc Read infra/funcrc
Read infra/varrc Read infra/varrc
@ -10,19 +7,25 @@ Read infra/cosmrc
Read infra/kbindrc Read infra/kbindrc
Read infra/menurc Read infra/menurc
Read infra/windrc Read infra/windrc
Read modules/shelf Read modules/shelf
Read modules/taskbar Read modules/taskbar
Read modules/pager Read modules/pager
Read modules/events Read modules/events
# What do we autostart?
DestroyFunc StartFunction DestroyFunc StartFunction
AddToFunc StartFunction AddToFunc StartFunction
+ I Exec exec $[infostore.posix]/janitor + I Exec $[infostore.posix]/janitor
+ I Function PrefFunc + I Function PrefFunc
+ I Function ModuleFunc + I Function ModuleFunc
+ I Schedule 250 Function DaemonFunc + I Schedule 250 Function DaemonFunc
# This setting is useful if you have a multi-head system. # This setting is useful if you have a multi-head system.
EdgeScroll 0 0 EdgeScroll 0 0
# This controls names and the number of pages you have.
DesktopName 0 General 1
DesktopName 1 General 2
DesktopName 2 General 3
DesktopSize 3x3

View File

@ -1,6 +1,6 @@
DestroyModuleConf AudioEvents DestroyModuleConf AudioEvents
*AudioEvents: Cmd "Exec exec /usr/bin/aplay" *AudioEvents: Cmd "Exec /usr/bin/aplay"
*AudioEvents: StartDelay 2.5 *AudioEvents: StartDelay 2.5
*AudioEvents: startup $[FVWM_USERDIR]/assets/audio/Login.wav *AudioEvents: startup $[FVWM_USERDIR]/assets/audio/Login.wav

View File

@ -1,14 +1,18 @@
Style "ShelfPager" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \ Style "ShelfPager" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, !Iconifiable CirculateSkip, StaysOnBottom, FixedPosition, FixedSize,\
!Iconifiable
DestroyModuleConfig ShelfPager DestroyModuleConfig ShelfPager
*ShelfPager: Geometry 100+100 *ShelfPager: Geometry 100+100
*ShelfPager: Font "$[infostore.ui_font_bold]" *ShelfPager: Font "$[infostore.ui_font_bold]"
*ShelfPager: Rows 1 *ShelfPager: Rows 1
*ShelfPager: Columns 1 *ShelfPager: Columns 1
*ShelfPager: Colorset * 13 *ShelfPager: Colorset * 13
*ShelfPager: HilightColorset * 14 *ShelfPager: HilightColorset * 14
*ShelfPager: Back rgb:BE/BE/BE *ShelfPager: Back rgb:BE/BE/BE
*ShelfPager: WindowColors rgb:A5/A5/A5 rgb:A5/A5/A5 rgb:9B/A9/C9 rgb:9B/A9/C9 *ShelfPager: WindowColors rgb:A5/A5/A5 \
rgb:A5/A5/A5 \
rgb:9B/A9/C9 \
rgb:9B/A9/C9
*ShelfPager: SolidSeparators *ShelfPager: SolidSeparators
*ShelfPager: Label * FXDE *ShelfPager: Label * FXDE

View File

@ -1,43 +1,46 @@
#Define the shelf. #Define the shelf.
Style "Shelf" NeverFocus, NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \ Style "Shelf" NeverFocus, NoTitle, !Handles, !Borders, Sticky, FixedSize, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \ WindowListSkip, CirculateSkip, StaysOnBottom, FixedPosition,\
!Iconifiable, !Closable, !Maximizable !Iconifiable, !Closable, !Maximizable
DestroyModuleConfig Shelf DestroyModuleConfig Shelf
*Shelf: Geometry 136x$[vp.height]-0-0@g *Shelf: Geometry 136x$[vp.height]-0-0@g
*Shelf: Columns 136 *Shelf: Columns 136
*Shelf: Rows $[vp.height] *Shelf: Rows $[vp.height]
*Shelf: Frame 2 *Shelf: Frame 2
*Shelf: Padding 2 2 *Shelf: Padding 2 2
*Shelf: Colorset 10 *Shelf: Colorset 10
*Shelf: BoxSize fixed *Shelf: BoxSize fixed
*Shelf: Font "$[infostore.ui_font_bold]" *Shelf: Font "$[infostore.ui_font_bold]"
*Shelf: Colorset 9 *Shelf: Colorset 9
*Shelf: PressColorset 10 *Shelf: PressColorset 10
# Columns are X, rows are Y
*Shelf: (Size 5x$[vp.height]) # Provide a bevel.
*Shelf: (Size 131x5, ActiveColorset 10, PressColorset 10) *Shelf: (Size 5x$[vp.height])
*Shelf: (Size 131x5, ActiveColorset 10, PressColorset 10)
*Shelf: (Size 131x30, Title (Right) Terminal, Action Exec exec $[infostore.term] *Shelf: (Size 131x30, Title (Right) Terminal, Action Exec exec $[infostore.term]
*Shelf: (Size 131x30, Title (Right) Editors , Action Menu EditMenu) *Shelf: (Size 131x30, Title (Right) Editors , Action Menu EditMenu)
*Shelf: (Size 131x30, Title (Right) Files , Action Exec exec $[infostore.filer]) *Shelf: (Size 131x30, Title (Right) Files , Action Exec exec $[infostore.filer])
*Shelf: (Size 131x30, Title (Right) Browsers , Action Menu BrowseMenu) *Shelf: (Size 131x30, Title (Right) Browsers , Action Menu BrowseMenu)
*Shelf: (Size 131x30, Title (Right) Comms , Action Menu CommsMenu) *Shelf: (Size 131x30, Title (Right) Comms , Action Menu CommsMenu)
*Shelf: (Size 131x30, Title (Right) Media , Action Menu MediaMenu) *Shelf: (Size 131x30, Title (Right) Media , Action Menu MediaMenu)
*Shelf: (Size 131x30, Title (Right) Utilities , Action Menu UtilMenu) *Shelf: (Size 131x30, Title (Right) Utilities , Action Menu UtilMenu)
*Shelf: (Size 131x15, Frame 0) *Shelf: (Size 131x15, Frame 0)
*Shelf: (Size 131x30, Title (Right) Run , Action Module FvwmScript $[infostore.fscript]/FvwmScript-Execute) *Shelf: (Size 131x30, Title (Right) Run , Action Module FvwmScript \
*Shelf: (Size 131x30, Title (Right) Configure , Action Module FvwmScript $[infostore.fscript]/FXDE-ControlPanel) $[infostore.fscript]/FvwmScript-Execute)
*Shelf: (Size 131x30, Title (Right) Sysinfo , Action Menu InfoMenu) *Shelf: (Size 131x30, Title (Right) Configure , Action Module FvwmScript \
*Shelf: (Size 131x30, Title (Right) Hide , Action Function ShowDeskFunc) $[infostore.fscript]/FXDE-ControlPanel)
*Shelf: (Size 131x30, Title (Right) Lock , Action Exec exec xset s activate) *Shelf: (Size 131x30, Title (Right) Sysinfo , Action Menu InfoMenu)
*Shelf: (Size 131x30, Title (Right) Logout , Action Module FvwmScript $[infostore.fscript]/FvwmScript-ConfirmQuit) *Shelf: (Size 131x30, Title (Right) Hide , Action Function ShowDeskFunc)
*Shelf: (Size 131x30, Title (Right) Lock , Action Exec exec xset s activate)
*Shelf: (Size 131x30, Title (Right) Logout , Action Module FvwmScript \
$[infostore.fscript]/FvwmScript-ConfirmQuit)
PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/106)*1)))), Frame 0)"' PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/106)*1)))), Frame 0)"'
@ -45,19 +48,23 @@ PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/106)*1)))), Frame 0)"'
#*Shelf: (Size 64x64, Frame 0, Swallow wmix, 'Exec exec wmix', Frame 1) #*Shelf: (Size 64x64, Frame 0, Swallow wmix, 'Exec exec wmix', Frame 1)
#*Shelf: (Size 64x64, Frame 0, Swallow wmmon, 'Exec exec wmmon -l', Frame 1) #*Shelf: (Size 64x64, Frame 0, Swallow wmmon, 'Exec exec wmmon -l', Frame 1)
#*Shelf: (Size 64x64, Frame 0, Swallow wmmon, 'Exec exec wmmon -l -s -b', Frame 1) #*Shelf: (Size 64x64, Frame 0, Swallow wmmon, 'Exec exec wmmon -l -s -b', \
Frame 1)
#*Shelf: (Size 64x64, Frame 0, Swallow wmcalc, 'Exec exec wmcalc', Frame 1) #*Shelf: (Size 64x64, Frame 0, Swallow wmcalc, 'Exec exec wmcalc', Frame 1)
#*Shelf: (Size 64x64, Frame 0, Swallow wmmoonclock, 'Exec exec wmmoonclock', Frame 1) #*Shelf: (Size 64x64, Frame 0, Swallow wmmoonclock, 'Exec exec wmmoonclock', \
Frame 1)
PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/53)*3)))), Frame 0, Swallow xosview" ", \'Exec exec xosview\')"' PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/53)*3)))), Frame 0, Swallow \
xosview" ", \'Exec exec xosview\')"'
PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/53)*29)))), Frame 0)"' PipeRead 'echo "*Shelf: (Size 131x$(((($[vp.height]/53)*29)))), Frame 0)"'
*Shelf: (Size 131x60, Frame 0, Swallow stalonetray, 'Exec exec stalonetray --kludges force_icons_size --icon-size 32 --icon-gravity SE --geometry 4x2 --background "#BEBEBE"') *Shelf: (Size 131x60, Frame 0, Swallow stalonetray, 'Exec exec stalonetray \
--kludges force_icons_size --icon-size 32 --icon-gravity SE \
*Shelf: (Size 131x5, Frame 0) --geometry 4x2 --background "#BEBEBE"')
*Shelf: (Size 131x5, Frame 0)
*Shelf: (Action Exec exec xcalendar, Size 131x30, Frame 0, Swallow xclock, 'Exec exec /usr/bin/xclock -digital -strftime "%a %H:%M:%S" -update 1 -bg "#BEBEBE" -sharp -face "$[infostore.small_font]"') *Shelf: (Action Exec exec xcalendar, Size 131x30, Frame 0, Swallow xclock,\
'Exec exec /usr/bin/xclock -digital -strftime "%a %H:%M:%S" \
*Shelf: (Size 131x130, Frame 0, Swallow ShelfPager) -update 1 -bg "#BEBEBE" -sharp -face "$[infostore.small_font]"')
*Shelf: (Size 131x130, Frame 0, Swallow ShelfPager)

View File

@ -1,54 +1,29 @@
# Define the taskbar. # Taskbar definition.
DestroyModuleConfig TaskBar DestroyModuleConfig TaskBar
Style "TaskBar" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \ Style "TaskBar" !Title, !Handles, !Borders, Sticky, WindowListSkip, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \ CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \
!Iconifiable, NeverFocus !Iconifiable, NeverFocus
*TaskBarButtons: Font "$[infostore.small_font_bold]"
PipeRead 'echo "*TaskBar: Geometry $(($[vp.width]-136))x32-136@g)"' *TaskBar: Geometry $[wa.width]x32-137@g
*TaskBar: Columns $[vp.width] *TaskBar: Columns $[wa.width]
*TaskBar: Rows 32 *TaskBar: Rows 32
*TaskBar: Frame 0 *TaskBar: Frame 0
*TaskBar: Colorset 9 *TaskBar: Colorset 9
*TaskBar: BoxSize fixed
# Swallow the buttonbar. #PipeRead `echo "*TaskBar: (Size 100000x30, Swallow TaskBarButtons 'Module \
*TaskBar: (Size $[vp.width]x28, Swallow TaskBarButtons 'Module FvwmIconMan TaskBarButtons')'" # FvwmIconMan TaskBarButtons')"`
# Define the buttonbar.
# Buttons definition
DestroyModuleConfig TaskBarButtons DestroyModuleConfig TaskBarButtons
*TaskBarButtons: UseWinList true *TaskBarButtons: UseWinList true
*TaskBarButtons: Resolution page *TaskBarButtons: Resolution page
*TaskBarButtons: Tips needed *TaskBarButtons: Sort id
*TaskBarButtons: Tips needed
*TaskBarButtons: ButtonGeometry 125x26 *TaskBarButtons: ButtonGeometry 30000x10
*TaskBarButtons: MaxButtonWidth $[vp.width] *TaskBarButtons: ManagerGeometry 1x1
*TaskBarButtons: ManagerGeometry 1x1+100+0@g
*TaskBarButtons: DrawIcons always
*TaskBarButtons: ReliefThickness 2
*TaskBarButtons: IconButton down
*TaskBarButtons: IconAndSelectButton down
*TaskBarButtons: SelectButton up
*TaskBarButtons: FocusAndSelectButton up
*TaskBarButtons: Colorset 16
*TaskBarButtons: FocusAndSelectColorset 17
*TaskBarButtons: IconAndSelectColorset 18
*TaskBarButtons: Shape true
# Button actions.
*TaskBarButtons: Action Mouse 1 A sendcommand Iconify
*TaskBarButtons: Action Mouse 3 A sendcommand "Menu WindowOps Mouse 0 o100"
# Button logic.
*TaskBarButtons: Sort id
# Provide a simple bevel effect.
*TaskBar: (Size $[vp.width]x4, Frame 2)

55
modules/taskbar.broken Normal file
View File

@ -0,0 +1,55 @@
# Define the taskbar.
DestroyModuleConfig TaskBar
Style "TaskBar" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \
!Iconifiable, NeverFocus
*TaskBarButtons: Font "$[infostore.small_font_bold]"
*TaskBar: Geometry $[wa.width]x32-136@g"'
*TaskBar: Columns $[vp.width]
*TaskBar: Rows 32
*TaskBar: Frame 0
*TaskBar: Colorset 9
# Swallow the buttonbar.
*TaskBar: (Size $[wp.width]x28, Swallow TaskBarButtons 'Module FvwmIconMan TaskBarButtons')'"
# Define the buttonbar.
DestroyModuleConfig TaskBarButtons
*TaskBarButtons: UseWinList true
*TaskBarButtons: Resolution page
*TaskBarButtons: Tips needed
PipeRead 'echo "*TaskBarButtons: ButtonGeometry $(($[wa.width]-1))x26@g"'
#*TaskBarButtons: ButtonGeometry 100x26
*TaskBarButtons: MaxButtonWidth $[wa.width]
*TaskBarButtons: ManagerGeometry 1x1
*TaskBarButtons: DrawIcons always
*TaskBarButtons: ReliefThickness 2
*TaskBarButtons: IconButton down
*TaskBarButtons: IconAndSelectButton down
*TaskBarButtons: SelectButton up
*TaskBarButtons: FocusAndSelectButton up
*TaskBarButtons: Colorset 16
*TaskBarButtons: FocusAndSelectColorset 17
*TaskBarButtons: IconAndSelectColorset 18
*TaskBarButtons: Shape true
# Button actions.
*TaskBarButtons: Action Mouse 1 A sendcommand Iconify
*TaskBarButtons: Action Mouse 3 A sendcommand "Menu WindowOps Mouse 0 o100"
# Button logic.
*TaskBarButtons: Sort id
# Provide a simple bevel effect.
*TaskBar: (Size $[vp.width]x4, Frame 2)

26
modules/taskbar.new Normal file
View File

@ -0,0 +1,26 @@
# Taskbar definition.
DestroyModuleConfig TaskBar
Style "TaskBar" !Title, !Handles, !Borders, Sticky, WindowListSkip, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \
!Iconifiable, NeverFocus
*TaskBar: Geometry $[wa.width]x32-137@g
*TaskBar: Columns $[wa.width]
*TaskBar: Rows 32
*TaskBar: Frame 0
*TaskBar: Colorset 9
*TaskBar: BoxSize fixed
PipeRead `echo "*TaskBar: (Size $[wa.width]x32, Swallow TaskBarButtons 'Module \
FvwmIconMan TaskBarButtons')"`
# Buttons definition
DestroyModuleConfig TaskBarButtons
*TaskBarButtons: UseWinList true
*TaskBarButtons: Resolution page
*TaskBarButtons: Sort id
*TaskBarButtons: Tips needed
*TaskBarButtons: ButtonGeometry 100x28

54
modules/taskbar.old Normal file
View File

@ -0,0 +1,54 @@
# Define the taskbar.
DestroyModuleConfig TaskBar
Style "TaskBar" NoTitle, !Handles, !Borders, Sticky, WindowListSkip, \
CirculateSkip, StaysOnBottom, FixedPosition, FixedSize, \
!Iconifiable, NeverFocus
*TaskBarButtons: Font "$[infostore.small_font_bold]"
PipeRead 'echo "*TaskBar: Geometry $(($[vp.width]-136))x32-136@g)"'
*TaskBar: Columns $[vp.width]
*TaskBar: Rows 32
*TaskBar: Frame 0
*TaskBar: Colorset 9
# Swallow the buttonbar.
*TaskBar: (Size $[vp.width]x28, Swallow TaskBarButtons 'Module FvwmIconMan TaskBarButtons')
# Define the buttonbar.
DestroyModuleConfig TaskBarButtons
*TaskBarButtons: UseWinList true
*TaskBarButtons: Resolution page
*TaskBarButtons: Tips needed
*TaskBarButtons: ButtonGeometry 125x26
*TaskBarButtons: MaxButtonWidth $[vp.width]
*TaskBarButtons: ManagerGeometry 1x1+100+0@g
*TaskBarButtons: DrawIcons always
*TaskBarButtons: ReliefThickness 2
*TaskBarButtons: IconButton down
*TaskBarButtons: IconAndSelectButton down
*TaskBarButtons: SelectButton up
*TaskBarButtons: FocusAndSelectButton up
*TaskBarButtons: Colorset 16
*TaskBarButtons: FocusAndSelectColorset 17
*TaskBarButtons: IconAndSelectColorset 18
*TaskBarButtons: Shape true
# Button actions.
*TaskBarButtons: Action Mouse 1 A sendcommand Iconify
*TaskBarButtons: Action Mouse 3 A sendcommand "Menu WindowOps Mouse 0 o100"
# Button logic.
*TaskBarButtons: Sort id
# Provide a simple bevel effect.
*TaskBar: (Size $[vp.width]x4, Frame 2)

View File

@ -0,0 +1,323 @@
WindowTitle {Workstation Information}
WindowSize 486 352
Init
Begin
Set $un = { } (GetOutput {id -un} 1 -1)
Set $hn = { } (GetOutput {hostname} 1 -1)
Set $isa = { } (GetOutput {uname -m} 1 -1)
Set $os = { } (GetOutput {sed 's/^PRETTY_NAME="\(.*\)"/\1/p' /etc/os-release /etc/os-release} 1 -1)
Set $krn = { } (GetOutput {uname -r} 1 -1)
Set $ip = { } (GetOutput {ifconfig | sed -ne '2s/.*inet addr:\([0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\) .*/\1/p'} 1 -1)
Set $dn = { } (GetOutput {hostname -d} 1 -1)
Set $ram = { } (GetOutput {free -m | sed -e 's/ */ /g' -e '2!d' | cut -d ' ' -f2} 1 -1) { MB}
Set $ru = { } (GetOutput {free -m | sed -e 's/ */ /g' -e '2!d' | cut -d ' ' -f3} 1 -1) { MB}
Set $rpct = { } (GetOutput {echo "$((100-$((100*$(free -m | sed -e 's/ */ /g' -e '2!d' | cut -d ' ' -f3)))/$(free -m | sed -e 's/ */ /g' -e '2!d' | cut -d ' ' -f2)))"} 1 -1)
Set $swp = { } (GetOutput {free -m | sed -e 's/ */ /g' -e '3!d' | cut -d ' ' -f2} 1 -1) { MB}
Set $su = { } (GetOutput {free -m | sed -e 's/ */ /g' -e '3!d' | cut -d ' ' -f3} 1 -1) { MB}
Set $spct = { } (GetOutput {echo "$((100-$((100*$(free -m | sed -e 's/ */ /g' -e '3!d' | cut -d ' ' -f3)))/$(free -m | sed -e 's/ */ /g' -e '3!d' | cut -d ' ' -f2)))"} 1 -1)
ChangeTitle 14 $un
ChangeTitle 15 $hn
ChangeTitle 16 $isa
ChangeTitle 17 $os
ChangeTitle 18 $krn
ChangeTitle 19 $ip
ChangeTitle 20 $dn
ChangeTitle 21 $ram
ChangeTitle 22 $ru
ChangeValue 23 $rpct
ChangeTitle 24 $swp
ChangeTitle 25 $su
ChangeValue 26 $spct
End
Widget 1
Property
Title {User Name:}
Size 150 0
Position 10 15
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 2
Property
Title {Workstation Name:}
Size 150 0
Position 10 32
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 3
Property
Title {ISA:}
Size 150 0
Position 10 62
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 4
Property
Title {OS:}
Size 150 0
Position 10 77
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 5
Property
Title {Kernel:}
Size 150 0
Position 10 92
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 6
Property
Title {Local IP:}
Size 150 0
Position 10 122
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 7
Property
Title {Domain:}
Size 150 0
Position 10 137
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 8
Property
Title {RAM:}
Size 150 0
Position 10 167
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 9
Property
Title {In Use:}
Size 150 0
Position 10 182
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 10
Property
Title {Available:}
Size 150 0
Position 10 197
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 11
Property
Title {Swap:}
Size 150 0
Position 10 228
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 12
Property
Title {In Use:}
Size 150 0
Position 10 243
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 13
Property
Title {Available:}
Size 150 0
Position 10 258
Type ItemDraw
Flags NoReliefString NoFocus Right
Colorset 9
End
Widget 14
Property
Title {<un>}
Size 150 0
Position 159 15
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 15
Property
Title {<hn>}
Size 150 0
Position 159 32
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 16
Property
Title {<isa>}
Size 150 0
Position 159 62
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 17
Property
Title {<os>}
Size 150 0
Position 159 77
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 18
Property
Title {<krn>}
Size 150 0
Position 159 92
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 19
Property
Title {<ip>}
Size 150 0
Position 159 122
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 20
Property
Title {<dn>}
Size 150 0
Position 159 137
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 21
Property
Title {<ram>}
Size 150 0
Position 159 167
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 22
Property
Title {<ru>}
Size 150 0
Position 159 182
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 23
Property
Title {}
Value 50
MaxValue 100
MinValue 0
Size 100 0
Position 169 201
Type HDipstick
Flags NoFocus
Colorset 9
End
Widget 24
Property
Title {<swp>}
Size 150 0
Position 159 228
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 25
Property
Title {<su>}
Size 150 0
Position 159 243
Type ItemDraw
Flags NoReliefString NoFocus Left
Colorset 9
End
Widget 26
Property
Title {}
Value 50
MaxValue 100
MinValue 0
Size 100 0
Position 169 262
Type HDipstick
Flags NoFocus
Colorset 9
End
Widget 27
Property
Title {Dismiss}
Size 71 28
Position 401 312
Type PushButton
Flags NoReliefString
Main
Case message of
SingleClic :
Begin
Quit
End
End

View File

@ -0,0 +1,138 @@
WindowTitle {Workstation Information}
WindowSize 486 352
Init
Begin
Set $ip = { } (GetOutput {echo `ifconfig | sed -ne '2s/.*inet addr:\([0-9]*\.[0
ChangeTitle 50 $ip
End
Widget 50
Property
Title {}
Size 100 100
Position 100 100
Type ItemDraw
Flags NoReliefString Nofocus
Colorset 9
End
Widget 1
Property
Title {User Name:}
Size 200 30
Position 75 10
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 2
Property
Title {Workstation Name:}
Size 100 15
Position 125 54
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 3
Property
Title {ISA:}
Size 100 15
Position 113 74
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 4
Property
Title {Local IP:}
Size 100 15
Position 125 94
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 5
Property
Title {Domain:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 6
Property
Title {ID:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 7
Property
Title {RAM:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 8
Property
Title {In Use:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 9
Property
Title {MB Available:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 10
Property
Title {RAM:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 11
Property
Title {In Use:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End
Widget 12
Property
Title {MB Available:}
Size 80 15
Position 125 114
Type ItemDraw
Flags NoReliefString NoFocus
Colorset 9
End

23
scripts/fvwmscript/test Normal file
View File

@ -0,0 +1,23 @@
WindowTitle {Run...}
WindowSize 512 64
Init
Begin
Set $ip = { } (GetOutput {echo `ifconfig | sed -ne '2s/.*inet addr:\([0-9]*\.[0-9]*\.[0-9]*\.[0-9]*\) .*/\1/p'`} 1 -1)
ChangeTitle 1 $ip
End
Widget 1
Property
Title {}
Size 496 24
Position 8 4
Flags NoReliefString
Type ItemDraw
Value 1
Main
Case message of
SingleClic :
Begin
End
End