diff options
Diffstat (limited to '.local/bin/dmapps')
| -rwxr-xr-x | .local/bin/dmapps | 34 |
1 files changed, 13 insertions, 21 deletions
diff --git a/.local/bin/dmapps b/.local/bin/dmapps index af0c26d..e5f9dab 100755 --- a/.local/bin/dmapps +++ b/.local/bin/dmapps @@ -13,12 +13,7 @@ use constant PROG_LIST => "" . "Web browser" . "\n" . "Mail client" . "\n" . "--- Accessories ---" . "\n" . -"Arduino" . "\n" . "cool-retro-term" . "\n" . -"Qalculate!" . "\n" . -"Kleopatra" . "\n" . -"Transmission" . "\n" . -"Wireshark" . "\n" . "MKVToolNix" . "\n" . "Stellarium" . "\n" . "Google Earth" . "\n" . @@ -41,13 +36,12 @@ use constant PROG_LIST => "" . "Liferea" . "\n" . "HexChat" . "\n" . "--- Audio ---" . "\n" . +"Ardour" . "\n" . "REAPER" . "\n" . "Audacity" . "\n" . "Pulse Control Panel" . "\n" . "JACK Audio Connection Kit" . "\n" . "--- Multimedia ---" . "\n" . -"Ario" . "\n" . -"Kdenlive" . "\n" . "OBS Studio" . "\n" . "--- Games ---" . "\n" . "Steam" . "\n" . @@ -76,24 +70,19 @@ sub run chomp($action); $pid = fork(); - exit if $pid; + return if $pid; setsid(); - exec("alacritty") if $action =~ "Terminal"; - exec("pcmanfm") if $action =~ "File manager"; + exec("st") if $action =~ "Terminal"; + exec("st", "-e", "nnn") if $action =~ "File manager"; exec("firefox") if $action =~ "Web browser"; - exec("thunderbird") if $action =~ "Mail client"; - exec("arduino-ide") if $action =~ "Arduino"; + exec("st", "-e", "neomutt") if $action =~ "Mail client"; exec("cool-retro-term") if $action =~ "cool-retro-term"; - exec("qalculate-gtk") if $action =~ "Qalculate!"; - exec("kleopatra") if $action =~ "Kleopatra"; - exec("transmission-gtk") if $action =~ "Transmission"; - exec("doas", "wireshark") if $action =~ "Wireshark"; exec("mkvtoolnix-gui") if $action =~ "MKVToolNix"; exec("stellarium") if $action =~ "Stellarium"; exec("google-earth-pro") if $action =~ "Google Earth"; - exec("alacritty", "-e", "nvim") if $action =~ "NeoVim"; + exec("st", "-e", "nvim") if $action =~ "NeoVim"; exec("emacs") if $action =~ "Emacs"; - exec("alacritty", "-e", "emacs-nw") if $action =~ "Emacs-NoX"; + exec("st", "-e", "emacs-nw") if $action =~ "Emacs-NoX"; exec("gimp") if $action =~ "GIMP - GNU Image Manipulation Program"; exec("inkscape") if $action =~ "Inkscape"; exec("librewolf") if $action =~ "LibreWolf"; @@ -104,12 +93,11 @@ sub run exec("signal-desktop") if $action =~ "Signal"; exec("liferea") if $action =~ "Liferea"; exec("hexchat") if $action =~ "HexChat"; + exec("ardour8") if $action =~ "Ardour"; exec("reaper") if $action =~ "REAPER"; exec("audacity") if $action =~ "Audacity"; exec("pavucontrol") if $action =~ "Pulse Control Panel"; exec("qjackctl") if $action =~ "JACK Audio Connection Kit"; - exec("ario") if $action =~ "Ario"; - exec("kdenlive") if $action =~ "Kdenlive"; exec("obs") if $action =~ "OBS Studio"; exec("steam") if $action =~ "Steam"; exec("lutris") if $action =~ "Lutris"; @@ -146,7 +134,11 @@ sub main if (hostname() eq "po-rbo.ln.ysosecure.com") { $prompt .= WORK_LIST; } - $action = `dmenu -i -l 100 -sb '$color' -shb '$color' <<LIST + my $menu = "dmenu -sb '$color' -shb '$color'"; + if (defined $ENV{WAYLAND_DISPLAY}) { + $menu = "wmenu -S '$color'"; + } + $action = `$menu -i -l 100 <<LIST $prompt LIST`; if (not $action) { |