68 lines
2.6 KiB
Plaintext
68 lines
2.6 KiB
Plaintext
|
! -*-factor-*-
|
||
|
|
|
||
|
|
USING: kernel process x.geometry x.widgets.keymenu wm.menu factory-rc ;
|
||
|
|
|
||
|
|
IN: factory.menus
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
! Helper words
|
||
|
|
|
||
|
|
: shrink-wrap ( menu -- ) dup calc-size swap resize ;
|
||
|
|
|
||
|
|
: set-menu-items ( items menu -- ) tuck set-keymenu-items shrink-wrap ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
{ { "Emacs" [ "emacs &" system drop ] }
|
||
|
|
{ "KMail" [ "kmail &" system drop ] }
|
||
|
|
{ "Akregator" [ "akregator &" system drop ] }
|
||
|
|
{ "Amarok" [ "amarok &" system drop ] }
|
||
|
|
{ "K3b" [ "k3b &" system drop ] }
|
||
|
|
{ "xchat" [ "xchat &" system drop ] }
|
||
|
|
{ "synaptic" [ "synaptic &" system drop ] }
|
||
|
|
} apps-menu> set-menu-items
|
||
|
|
|
||
|
|
{ { "Start Emacs" [ "emacs &" system drop ] }
|
||
|
|
{ "Small" [ "emacsclient -e '(make-small-frame-command)' &" system drop ] }
|
||
|
|
{ "Large" [ "emacsclient -e '(make-frame-command)' &" system drop ] }
|
||
|
|
{ "Full" [ "emacsclient -e '(make-full-frame-command)' &" system drop ] }
|
||
|
|
{ "Gnus" [ "emacsclient -e '(gnus-other-frame)' &" system drop ] }
|
||
|
|
} emacs-menu> set-menu-items
|
||
|
|
|
||
|
|
{ { "Kmail" [ "kmail &" system drop ] }
|
||
|
|
{ "compose" [ "kmail --composer &" system drop ] }
|
||
|
|
{ "slava" [ "kmail slava@factorcode.org &" system drop ] }
|
||
|
|
{ "erg" [ "kmail doug.coleman@gmail.com &" system drop ] }
|
||
|
|
{ "doublec" [ "kmail chris.double@double.co.nz &" system drop ] }
|
||
|
|
{ "yuuki" [ "kmail matthew.willis@mac.com &" system drop ] }
|
||
|
|
} mail-menu> set-menu-items
|
||
|
|
|
||
|
|
{ { "Factor" [ "cd /scratch/repos/Factor ; ./f &" system drop ] }
|
||
|
|
{ "Factor (tty)"
|
||
|
|
[ "cd /scratch/repos/Factor ; xterm -e ./f -shell=tty &" system drop ] }
|
||
|
|
{ "Terminal : repos/Factor"
|
||
|
|
[ "cd /scratch/repos/Factor ; xterm &" system drop ] }
|
||
|
|
{ "darcs whatsnew"
|
||
|
|
[ "cd /scratch/repos/Factor ; xterm -e 'darcs whatsnew | less' &"
|
||
|
|
system drop ] }
|
||
|
|
{ "darcs pull"
|
||
|
|
[ "cd /scratch/repos/Factor ; xterm -e 'darcs pull http://factorcode.org/repos' &" system drop ] }
|
||
|
|
{ "darcs push"
|
||
|
|
[ "cd /scratch/repos/Factor ; xterm -e 'darcs push dharmatech@onigirihouse.com:web/repos' &" system drop ] }
|
||
|
|
} factor-menu> set-menu-items
|
||
|
|
|
||
|
|
{ { "xterm" [ "xterm &" system drop ] }
|
||
|
|
{ "Firefox" [ "firefox &" system drop ] }
|
||
|
|
{ "xclock" [ "xclock &" system drop ] }
|
||
|
|
{ "Apps >" [ apps-menu> popup ] }
|
||
|
|
{ "Factor >" [ factor-menu> popup ] }
|
||
|
|
{ "Unmapped frames >" [ unmapped-frames-menu> popup ] }
|
||
|
|
{ "Emacs >" [ emacs-menu> popup ] }
|
||
|
|
{ "Mail >" [ mail-menu> popup ] }
|
||
|
|
{ "onigirihouse" [ "xterm -e 'ssh dharmatech@onigirihouse.com' &" system drop ] }
|
||
|
|
{ "Edit menus" [ edit-factory-menus ] }
|
||
|
|
{ "Reload menus" [ load-factory-menus ] }
|
||
|
|
} root-menu> set-menu-items
|
||
|
|
|