apps menu replacement
This commit is contained in:
parent
4020c31930
commit
dda676370a
244
projects/oorexx/apps.rex
Executable file
244
projects/oorexx/apps.rex
Executable file
@ -0,0 +1,244 @@
|
||||
#!/usr/bin/env rexx
|
||||
/* apps.rex - Menu-driven application launcher using Object Rexx with ncurses */
|
||||
signal on halt name ProgramHalt
|
||||
.environment['STOPNOW'] = 0
|
||||
|
||||
stdwin = .window~new /* Initialize the standard screen - first call must have zero arguments */
|
||||
do forever
|
||||
if .environment['STOPNOW'] = 1 then do
|
||||
stdwin~endwin /* Clean up before exiting */
|
||||
address system 'clear'
|
||||
Say "Exiting Apps Menu."
|
||||
exit 0
|
||||
end
|
||||
call menu stdwin
|
||||
end
|
||||
|
||||
exit
|
||||
/**************/
|
||||
|
||||
::routine tmemo
|
||||
dt = .DateTime~new
|
||||
yyyy = dt~year
|
||||
mm = right('0'||dt~month, 2)
|
||||
dd = right('0'||dt~day, 2)
|
||||
hh = right('0'||dt~hours, 2)
|
||||
min = right('0'||dt~minutes, 2)
|
||||
ss = right('0'||dt~seconds, 2)
|
||||
timestamp = 'memo-'||yyyy||'.'||mm||'.'||dd||'-'||hh||'.'||min||'.'||ss
|
||||
|
||||
/* Use environment variable for HOME directly */
|
||||
home = SysGetpwnam("gmgauthier", "d")
|
||||
filename = home || '/Documents/memos/' || timestamp || '.md'
|
||||
address system 'touch' filename
|
||||
address system 'tilde' filename
|
||||
return
|
||||
|
||||
/* Output panel similar to dialog --msgbox */
|
||||
::routine output_panel
|
||||
use arg win, title, message
|
||||
win~raw
|
||||
win~noecho
|
||||
|
||||
message_lines = .array~new
|
||||
do while message \== ''
|
||||
parse var message line '0a'x message
|
||||
message_lines~append(line)
|
||||
end
|
||||
if message_lines~items = 0 then message_lines~append(message)
|
||||
|
||||
max_width = 0
|
||||
do i = 1 to message_lines~items
|
||||
if message_lines[i]~length > max_width then max_width = message_lines[i]~length
|
||||
end
|
||||
|
||||
box_height = message_lines~items + 4
|
||||
box_width = max_width + 4
|
||||
|
||||
/* Center the box on screen */
|
||||
max_y = win~lines
|
||||
max_x = win~cols
|
||||
start_y = (max_y - box_height) % 2
|
||||
start_x = (max_x - box_width) % 2
|
||||
|
||||
/* Create a subwindow - subsequent .window~new calls need height, width, y, x */
|
||||
subwin = .window~new(box_height, box_width, start_y, start_x)
|
||||
subwin~box
|
||||
|
||||
/* Display title */
|
||||
subwin~attron(win~A_BOLD)
|
||||
subwin~mvaddstr(0, (box_width - title~length) % 2, title)
|
||||
subwin~attroff(win~A_BOLD)
|
||||
|
||||
/* Display message */
|
||||
do i = 1 to message_lines~items
|
||||
subwin~mvaddstr(i+1, 2, message_lines[i])
|
||||
end
|
||||
|
||||
subwin~mvaddstr(box_height - 2, (box_width - 15) % 2, "Press any key")
|
||||
subwin~refresh
|
||||
key = win~getch
|
||||
win~refresh
|
||||
return
|
||||
|
||||
/* Function to find position of an item in an array */
|
||||
::routine findInArray
|
||||
use arg array, item
|
||||
do i = 1 to array~items
|
||||
if array[i] = item then return i
|
||||
end
|
||||
return 0 /* Not found */
|
||||
|
||||
/* Menu function using ncurses */
|
||||
::routine menu
|
||||
use arg winm
|
||||
|
||||
/* Get the HOME environment variable directly */
|
||||
home = SysGetpwnam("gmgauthier", "d")
|
||||
|
||||
winm~clear /* Clear the screen */
|
||||
winm~refresh /* Update the screen */
|
||||
winm~cbreak
|
||||
winm~noecho
|
||||
winm~keypad(1) /* Enable function keys and arrow keys */
|
||||
winm~start_color
|
||||
winm~init_pair(1, winm~COLOR_WHITE, winm~COLOR_BLUE)
|
||||
winm~init_pair(2, winm~COLOR_BLACK, winm~COLOR_WHITE)
|
||||
|
||||
/* Get screen dimensions */
|
||||
max_y = winm~lines
|
||||
max_x = winm~cols
|
||||
|
||||
/* Create menu window - using proper 4 arguments for subwindow */
|
||||
menu_height = 19
|
||||
menu_width = 40
|
||||
start_y = (max_y - menu_height) % 2
|
||||
start_x = (max_x - menu_width) % 2
|
||||
|
||||
menuwin = .window~new(menu_height, menu_width, start_y, start_x)
|
||||
menuwin~bkgd(winm~color_pair(1)) /* Set the entire background */
|
||||
menuwin~box(0,0) /* Standard box characters */
|
||||
|
||||
/* Create title */
|
||||
menuwin~attron(winm~A_BOLD)
|
||||
title = "TUI Command Center"
|
||||
menuwin~mvaddstr(2, (menu_width - title~length) % 2, title)
|
||||
menuwin~attroff(winm~A_BOLD)
|
||||
|
||||
/* Menu items */
|
||||
menu_items = .array~of(" w. WordPerfect 8", -
|
||||
" x. Lotus 1-2-3", -
|
||||
" e. Mutt Email", -
|
||||
" c. Calcurse Calendar", -
|
||||
" a. Abook Contacts", -
|
||||
" n. Tilde Notepad", -
|
||||
" t. Tudu Tasks", -
|
||||
" l. Terminal Calculator", -
|
||||
" f. MC File Manager", -
|
||||
" i. Weechat IRC Client", -
|
||||
" p. Castero Podcasts", -
|
||||
" m. VLC Music Player")
|
||||
|
||||
menu_keys = .array~of("w", "x", "e", "c", "a", "n", "t", "l", "f", "i", "p", "m")
|
||||
|
||||
/* Display menu items */
|
||||
selected = 1
|
||||
call DrawMenu menuwin, menu_items, selected, winm
|
||||
menuwin~mvaddstr(menu_height - 2, 3, "Q to exit")
|
||||
menuwin~refresh
|
||||
|
||||
/* Menu interaction loop */
|
||||
key = ""
|
||||
do forever
|
||||
menuwin~refresh
|
||||
key = winm~getch
|
||||
|
||||
select
|
||||
when key = winm~KEY_UP then do
|
||||
if selected > 1 then selected = selected - 1
|
||||
call DrawMenu menuwin, menu_items, selected, winm
|
||||
end
|
||||
when key = winm~KEY_DOWN then do
|
||||
if selected < menu_items~items then selected = selected + 1
|
||||
call DrawMenu menuwin, menu_items, selected, winm
|
||||
end
|
||||
when key = D2C(10) | key = D2C(13) then do /* Enter key - numeric codes only */
|
||||
menuwin~refresh
|
||||
call ProcessSelection menu_keys[selected], home
|
||||
return
|
||||
end
|
||||
when key = D2C(81) | key = D2C(113) | key = "q" | key = C2D("q") then do
|
||||
menuwin~endwin
|
||||
.environment['STOPNOW'] = 1
|
||||
RETURN
|
||||
end
|
||||
otherwise do
|
||||
if datatype(key) = 'CHAR' then do
|
||||
key = lower(key)
|
||||
pos = findInArray(menu_keys, key)
|
||||
if pos > 0 then do
|
||||
menuwin~mvaddstr(menu_height - 1, 20, "Letter selection: "||key)
|
||||
menuwin~refresh
|
||||
call SysWait 0.5
|
||||
winm~endwin
|
||||
call ProcessSelection key, home
|
||||
return
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
RETURN
|
||||
|
||||
/* wait a specified number of seconds */
|
||||
::routine SysWait
|
||||
use arg seconds
|
||||
address system 'sleep' seconds
|
||||
return
|
||||
|
||||
/* process menu selections */
|
||||
::routine ProcessSelection
|
||||
use arg key_char, home
|
||||
select
|
||||
when key_char = 'w' then address system 'wp'
|
||||
when key_char = 'x' then address system '123'
|
||||
when key_char = 'e' then address system 'neomutt -F' home'/.config/mutt/muttrc'
|
||||
when key_char = 'c' then address system 'calcurse -c' home'/.local/share/calcurse/calendar -C' home'/.config/calcurse'
|
||||
when key_char = 'a' then address system 'abook --datafile' home'/.local/share/abook/addressbook'
|
||||
when key_char = 'n' then call tmemo
|
||||
when key_char = 't' then address system 'tudu -f' home'/.local/share/tudu/tasks.xml -c' home'/.config/tudu/config'
|
||||
when key_char = 'l' then address system 'tcalc'
|
||||
when key_char = 'f' then address system 'mc'
|
||||
when key_char = 'i' then address system 'weechat'
|
||||
when key_char = 'p' then address system 'castero'
|
||||
when key_char = 'm' then address system 'vlc -Z -L -I ncurses --no-video --recursive expand' home'/Music'
|
||||
otherwise nop
|
||||
end
|
||||
return
|
||||
|
||||
/* draw menu with selected item highlighted */
|
||||
::routine DrawMenu
|
||||
use arg win, items, selected, mainwin
|
||||
|
||||
do i = 1 to items~items
|
||||
if i = selected then do
|
||||
win~attron(mainwin~COLOR_PAIR(2))
|
||||
win~attron(mainwin~A_BOLD)
|
||||
win~mvaddstr(i+3, 2, items[i])
|
||||
win~attroff(mainwin~COLOR_PAIR(2))
|
||||
win~attroff(mainwin~A_BOLD)
|
||||
end
|
||||
else do
|
||||
win~mvaddstr(i+3, 2, items[i])
|
||||
end
|
||||
end
|
||||
return
|
||||
|
||||
/* Handle program termination */
|
||||
::ROUTINE ProgramHalt
|
||||
signal off halt
|
||||
exit 0
|
||||
|
||||
|
||||
::requires "ncurses.cls"
|
||||
::requires "rxunixsys" LIBRARY
|
||||
Loading…
Reference in New Issue
Block a user