From d5c989cf7967a669d6adf76f638a9c29ace36deb Mon Sep 17 00:00:00 2001 From: Joe Date: Mon, 19 Jun 2023 15:15:53 +0200 Subject: up --- .local/bin/dmapps | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 54 insertions(+), 3 deletions(-) diff --git a/.local/bin/dmapps b/.local/bin/dmapps index 527cb5b..c8ab33c 100755 --- a/.local/bin/dmapps +++ b/.local/bin/dmapps @@ -3,7 +3,6 @@ use strict; use warnings; use Data::Dump qw(dump); -use Env qw(TERMINAL); use POSIX qw(setsid); use Sys::Hostname qw(hostname); @@ -23,6 +22,14 @@ use constant PROG_LIST => "" . "NeoVim" . "\n" . "Emacs" . "\n" . "Emacs-NoX" . "\n" . +"--- Graphics ---" . "\n" . +"GIMP" . "\n" . +"Inkscape" . "\n" . +"--- Internet ---" . "\n" . +"LibreWolf" . "\n" . +"Firefox" . "\n" . +"Iridium" . "\n" . +"Chromium" . "\n" . "" ; use constant WORK_LIST => "" . "--- Work ---" . "\n" . @@ -114,7 +121,7 @@ sub run $pid = fork(); exit if $pid; setsid(); - exec($TERMINAL, "-e", "nvim"); + exec("alacritty", "-e", "nvim"); } # Emacs elsif ($action eq "Emacs") { @@ -128,7 +135,51 @@ sub run $pid = fork(); exit if $pid; setsid(); - exec($TERMINAL, "-e", "emacs-nw"); + exec("alacritty", "-e", "emacs-nw"); + } + # --- Graphics --- + # GIMP + elsif ($action eq "GIMP") { + $pid = fork(); + exit if $pid; + setsid(); + exec("gimp"); + } + # Inkscape + elsif ($action eq "Inkscape") { + $pid = fork(); + exit if $pid; + setsid(); + exec("inkscape"); + } + # --- Internet --- + # LibreWolf + elsif ($action eq "LibreWolf") { + $pid = fork(); + exit if $pid; + setsid(); + exec("librewolf"); + } + # Firefox + elsif ($action eq "firefox") { + $pid = fork(); + exit if $pid; + setsid(); + exec("firefox"); + } + # Iridium + elsif ($action eq "Iridium") { + $pid = fork(); + exit if $pid; + setsid(); + exec("iridium", "--force-dark-mode"); + } + # Chromium + elsif ($action eq "Chromium") { + $pid = fork(); + exit if $pid; + setsid(); + exec("Chromium"); } return; } -- cgit v1.2.3