fvwm-crystal calendar files

Dois arquivos de um script para adicionar um calendário translúcido no fvwm-crystal.

Screenshot com o calendário:















Calendar:

#
# This file have some lines that must be included on your recipes-script ( that you use - TopDown for me )
# located on /usr/share/fvwm-crystal/fvwm/recipes/ so that it can load the adaptation of the Calendar-Script
# that you can download from the same place where you get this one.
# Or send a message to jarbasaraujojr at yahoo dot com dot br
#

# Calendar {{{1
All (FvwmButtons-Calendar) Close
DestroyModuleConfig FvwmButtons-Calendar: *
*FvwmButtons-Calendar: Geometry -1+1
*FvwmButtons-Calendar: BoxSize smart
*FvwmButtons-Calendar: ActiveColorset $[cs-panel-active]
*FvwmButtons-Calendar: Colorset $[cs-panel-inactive]
*FvwmButtons-Calendar: Columns 2
*FvwmButtons-Calendar: Padding 2 2
*FvwmButtons-Calendar: Frame 0

*FvwmButtons-Calendar: (2x1, Size 150 200, Swallow (Close, Respawn, FvwmModule) "Calendar-Script")

Module FvwmButtons FvwmButtons-Calendar
Script components/scripts/Calendar-Script

Calendar-Script:

#
# This file was adapted by Jarbas Araujo ( jarbasaraujojr at yahoo dot com dot br )
# to act like a nice translucent calendar to fvwm-crystal
# It was made to be ok on a 1280 x 1024 desktop. May need some adjusts on other resolutions
#

WindowTitle {Calendar}
WindowSize 150 200
Colorset 1
Font  "shadow=0 se:xft:Courier:Bold:size=12"


Init
Begin
Set $PROG = "/usr/bin/cal"

Set $text1 = (GetOutput $PROG 1 -1)
ChangeTitle 1 $text1

Set $text2 = (GetOutput $PROG 2 -1)
ChangeTitle 2 $text2

Set $text3 = (GetOutput $PROG 3 -1)
ChangeTitle 3 $text3

Set $text4 = (GetOutput $PROG 4 -1)
ChangeTitle 4 $text4

Set $text5 = (GetOutput $PROG 5 -1)
ChangeTitle 5 $text5

Set $text6 = (GetOutput $PROG 6 -1)
ChangeTitle 6 $text6

Set $text7 = (GetOutput $PROG 7 -1)
ChangeTitle 7 $text7

Set $text8 = (GetOutput $PROG 8 -1)
ChangeTitle 8 $text8

End

PeriodicTasks
Begin
 If (RemainderOfDiv (GetTime) 60)==0 Then
 Begin
 End
End

Widget                  1
Property
Type            ItemDraw
Size            150 35
Position        0 0
Font            "shadow=0 se:xft:Sans serif:Bold:size=14:color=d5dee7"
Flags           NoFocus NoReliefString Center
ForeColor {white}
Colorset 1

Main
Case message of
SingleClic:
Begin
End
End

Widget                  2
Property
 Type            ItemDraw
 Size            150 35
 Position        0 25
 Flags           NoFocus NoReliefString Center
ForeColor {white}
Colorset 1

Main
Case message of
SingleClic:
Begin
End
End

Widget                  3
Property
 Type            ItemDraw
 Size            150 35
 Position        0 50
 Flags           NoFocus NoReliefString Center
ForeColor {white}
Colorset 1

Main
Case message of
SingleClic:
Begin
End
End

Widget                  4
Property
 Type            ItemDraw
 Size            150 35
 Position        0 75
 Flags           NoFocus NoReliefString Center
ForeColor {white}
Colorset 1

Main
Case message of
SingleClic:
Begin
End
End

Widget                  5
Property
 Type            ItemDraw
 Size            150 35
 Position        0 100
 Flags           NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End

Widget                  6
Property
 Type            ItemDraw
 Size            150 35
 Position        0 125
 Flags           NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End

Widget                  7
Property
 Type            ItemDraw
 Size            150 35
 Position        0 150
 Flags           NoFocus NoReliefString Center
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1
Main
Case message of
SingleClic:
Begin
End
End

Widget                  8
Property
 Type            ItemDraw
 Size            150 35
 Position        4 175
 Flags           NoFocus NoReliefString Left
BackColor {#C2D2EB}
ForeColor {white}
Colorset 1