Merge pull request 'Rewrite Theme Switcher in Nim' (#3) from nim-rewrite into main

Reviewed-on: #3

PKGBUILD

@@ -1,36 +1,50 @@
 # Maintainer: TROM <contact@tromsite.com>
 pkgname=tromjaro-theme-switcher
-pkgver=1.2.0
-pkgrel=1
+pkgver=1.4
+pkgrel=3
 pkgdesc="TROMjaro Theme switcher application"
-arch=(any)
-url=""
+arch=('x86_64')
+url="https://git.trom.tf/TROMjaro/theme-switcher-package"
 license=(unknown)
-depends=('yad'
-         'zafiro-icon-theme'
-         'skeuos-gtk')
+depends=('tromjaro-fixes'
+         'xfconf'
+         'gtk4'
+         'colloid-gtk-theme-git'
+         'zafiro-icon-theme')
+makedepends=('choosenim')
 provides=('tromjaro-theme-switcher')
 backup=()
 options=(!strip)
-source=("theme-switcher"
+source=("themeSwitcher.nim"
         "tromjaro-theme-switcher.desktop"
         "tromjaro-theme-switcher.svg"
-        "https://www.drive.tromsite.com/s/zFtCp3SkZ4NpKix/download")
+        "icons.zip::https://www.drive.tromsite.com/s/zFtCp3SkZ4NpKix/download")
 sha256sums=('SKIP'
 'SKIP'
 'SKIP'
 'SKIP')
+prepare() {
+    echo 'Install Nim if not already installed:'
+    choosenim stable
+    echo 'Update Nim to the latest stable release:'
+    choosenim update stable
+    echo 'Install owlkettle from the latest git commit:'
+    "$HOME"/.nimble/bin/nimble install owlkettle@#head
+}
+build(){
+    echo 'Compile themeSwitcher.nim for release build:'
+    "$HOME"/.nimble/bin/nim c -d:release --out:${srcdir}/themeSwitcher ${srcdir}/themeSwitcher.nim
+}
 package() {
     # copy icons
     install -d ${pkgdir}/usr/share/tromjaro-theme-switcher/icons
-    install -Dm644 ${srcdir}/icons/*                            ${pkgdir}/usr/share/tromjaro-theme-switcher/icons
+    install -Dm644 ${srcdir}/icons/*    ${pkgdir}/usr/share/tromjaro-theme-switcher/icons
 
     # copy executables
-    install -Dm644  ${srcdir}/tromjaro-theme-switcher.desktop            ${pkgdir}/usr/share/applications/tromjaro-theme-switcher.desktop
-	install -Dm755  ${srcdir}/theme-switcher                    ${pkgdir}/usr/bin/tromjaro-theme-switcher
-   
+    install -Dm644  ${srcdir}/tromjaro-theme-switcher.desktop    ${pkgdir}/usr/share/applications/tromjaro-theme-switcher.desktop
+    install -Dm755  ${srcdir}/themeSwitcher    ${pkgdir}/usr/bin/tromjaro-theme-switcher
+
    # copy the icon
     install -d ${pkgdir}/usr/share/icons/hicolor/scalable/apps
-    install -Dm644 ${srcdir}/tromjaro-theme-switcher.svg                            ${pkgdir}/usr/share/icons/hicolor/scalable/apps
-
+    install -Dm644 ${srcdir}/tromjaro-theme-switcher.svg    ${pkgdir}/usr/share/icons/hicolor/scalable/apps
 }

theme-switcher

@@ -1,60 +0,0 @@
-#!/bin/bash
-icons=/usr/share/tromjaro-theme-switcher/icons
-
-set_icon_theme() {
-    # Change icon theme in XFCE
-    xfconf-query -c xsettings -p /Net/IconThemeName -n -t string -s "$1"
-}
-
-set_theme() {
-    if [ "${1##*-}" = 'Light' ]; then
-        yad --image "dialog-question" --title '' --buttons-layout=center --text-align=center --button='DARK':1 --button='LIGHT':0 --text "Select the panels theme\n\nNote: dark panels may result in light icons over a light theme"
-        case $? in
-            1)
-                # Enable dark panels
-                xfconf-query -c xfce4-panel -p /panels/dark-mode -n -t bool -s true
-                # Use the dark icon theme
-                set_icon_theme zafiro-dark
-                ;;
-            0)
-                # Disable dark panels
-                xfconf-query -c xfce4-panel -p /panels/dark-mode -n -t bool -s false
-                # Use the light icon theme
-                set_icon_theme zafiro
-                ;;
-            *) exit ;;
-        esac
-    else
-        # Use the dark icon theme
-        set_icon_theme zafiro-dark
-    fi
-    # Change the main theme to the chosen one
-    xfconf-query -c xsettings -p /Net/ThemeName -n -t string -s "Skeuos-$1"
-    xfconf-query -c xfwm4 -p /general/theme -n -t string -s "Skeuos-$1-XFWM"
-    gsettings set org.gnome.desktop.interface gtk-theme "Skeuos-$1"
-    notify-send "Skeuos-$1 theme was enabled"
-}
-
-export -f set_icon_theme set_theme
-
-yad --no-buttons --center --keep-icon-size --use-interp --title 'TROMjaro Theme Switcher' --text-align=center --text "A Theme Switcher for TROMjaro's default theme-set (Skeuos) and icon-set (Zafiro)." --form --columns 5 \
---field=!"$icons/Blue-Dark.png"!'Blue-Dark':FBTN "set_theme 'Blue-Dark'" \
---field=!"$icons/Violet-Dark.png"!'Violet-Dark':FBTN "set_theme 'Violet-Dark'" \
---field=!"$icons/Blue-Light.png"!'Blue-Light':FBTN "set_theme 'Blue-Light'" \
---field=!"$icons/Violet-Light.png"!'Violet-Light':FBTN "set_theme 'Violet-Light'" \
---field=!"$icons/Teal-Dark.png"!'Teal-Dark':FBTN "set_theme 'Teal-Dark'" \
---field=!"$icons/Orange-Dark.png"!'Orange-Dark':FBTN "set_theme 'Orange-Dark'" \
---field=!"$icons/Teal-Light.png"!'Teal-Light':FBTN "set_theme 'Teal-Light'" \
---field=!"$icons/Orange-Light.png"!'Orange-Light':FBTN "set_theme 'Orange-Light'" \
---field=!"$icons/Green-Dark.png"!'Green-Dark (default)':FBTN "set_theme 'Green-Dark'" \
---field=!"$icons/Brown-Dark.png"!'Brown-Dark':FBTN "set_theme 'Brown-Dark'" \
---field=!"$icons/Green-Light.png"!'Green-Light':FBTN "set_theme 'Green-Light'" \
---field=!"$icons/Brown-Light.png"!'Brown-Light':FBTN "set_theme 'Brown-Light'" \
---field=!"$icons/Magenta-Dark.png"!'Magenta-Dark':FBTN "set_theme 'Magenta-Dark'" \
---field=!"$icons/Yellow-Dark.png"!'Yellow-Dark':FBTN "set_theme 'Yellow-Dark'" \
---field=!"$icons/Magenta-Light.png"!'Magenta-Light':FBTN "set_theme 'Magenta-Light'" \
---field=!"$icons/Yellow-Light.png"!'Yellow-Light':FBTN "set_theme 'Yellow-Light'" \
---field=!"$icons/Red-Dark.png"!'Red-Dark':FBTN "set_theme 'Red-Dark'" \
---field=!"$icons/Grey-Dark.png"!'Grey-Dark':FBTN "set_theme 'Grey-Dark'" \
---field=!"$icons/Red-Light.png"!'Red-Light':FBTN "set_theme 'Red-Light'" \
---field=!"$icons/Grey-Light.png"!'Grey-Light':FBTN "set_theme 'Grey-Light'"

themeSwitcher.nim

@@ -0,0 +1,125 @@
+from std/osproc import execProcess, ProcessOption, startProcess, waitForExit, close
+from std/os import symlinkExists, getConfigDir, putEnv, `/`
+from std/strutils import split, endsWith, strip
+from std/algorithm import fill
+from std/strformat import fmt
+import owlkettle
+
+const
+  # Set the directory path where icons are stored
+  iconsDir = "/usr/share/tromjaro-theme-switcher/icons"
+  # GTK CSS for overriding the default icon size of buttons
+  gtkCSS = "button { -gtk-icon-size: 22mm; }"
+  themeColors = ["Grey", "Pink", "Green", "Orange", "Purple", "Yellow", "Teal"]
+  themeStyles = ["Light", "Nord", "Dark", "Dark-Nord"]
+
+proc runCommand(command: string, args: openArray[string]): bool =
+  ## This will run a command with the given args and return true upon success
+  let process = startProcess(command, args=args, options={poParentStreams})
+  result = process.waitForExit() == 0
+  process.close()
+
+proc setIconTheme(iconName: string) =
+  # Change icon theme in XFCE
+  discard runCommand("/usr/bin/xfconf-query",
+    args=["--channel=xsettings", "--property=/Net/IconThemeName", "--create", "--type=string", "--set", iconName])
+
+proc enableDarkPanels(): bool =
+  # Return if dark panels is already enabled
+  if execProcess("/usr/bin/xfconf-query",
+    args=["--channel=xfce4-panel", "--property=/panels/dark-mode"], options={}) == "true\n":
+    return
+  # Try to enable it and return true upon success
+  result = runCommand("/usr/bin/xfconf-query",
+    args=["--channel=xfce4-panel", "--property=/panels/dark-mode", "--create", "--type=bool", "--set=true"])
+
+proc setTheme(themeName: string) =
+
+  var panelNotification: string
+
+  # Set the icon theme and panel color according to the chosen theme
+  if themeName.endsWith("-Dark") or themeName.endsWith("-Dark-Nord"):
+    setIconTheme("zafiro-dark")
+  else:
+    setIconTheme("zafiro")
+    if enableDarkPanels():
+      panelNotification = " with dark panels"
+
+  # Change the main theme to the chosen one
+  discard runCommand("/usr/bin/xfconf-query",
+    args=["--channel=xsettings", "--property=/Net/ThemeName", "--create", "--type=string", "--set", themeName])
+
+  # Send notification about the theme change
+  sendNotification("com.tromjaro.ThemeSwitcher", "Theme Switcher", fmt"{themeName} theme{panelNotification} is enabled",
+    icon=fmt"{iconsDir}/{themeName}.svg")
+
+
+# Prevent loading GTK theme from ~/.config/gtk-4.0 directory when it is a symlink
+if symlinkExists(getConfigDir() / "gtk-4.0"):
+  putEnv("XDG_CONFIG_HOME", "/dev/null")
+
+var
+  lastClickedButton: array[2, int]
+
+# Display the GTK-4 GUI using owlkettle
+viewable App:
+  # 2D array storing the style for each button
+  buttonStyles: array[themeStyles.len(),array[themeColors.len(), StyleClass]]
+  hooks:
+    build:
+      # Make all buttons flat by default
+      for index in 0..state.buttonStyles.high():
+        fill(state.buttonStyles[index], ButtonFlat)
+
+      let currentTheme: string = execProcess("/usr/bin/xfconf-query",
+        args=["--channel=xsettings", "--property=/Net/ThemeName"],
+        options={}).strip(leading=false, trailing=true, chars={'\n'})
+
+      let currentThemeSplit: seq[string] = currentTheme.split('-', 2)
+
+      if currentThemeSplit.len() < 3 or currentThemeSplit[0] != "Colloid":
+        return
+
+      let currentThemeColorIndex = find(themeColors, currentThemeSplit[1])
+      let currentThemeStyleIndex = find(themeStyles, currentThemeSplit[2])
+
+      if -1 in [currentThemeColorIndex, currentThemeStyleIndex]:
+        return
+
+      # Highlight current theme button
+      state.buttonStyles[currentThemeStyleIndex][currentThemeColorIndex] = ButtonSuggested
+      lastClickedButton = [currentThemeStyleIndex, currentThemeColorIndex]
+
+method view(app: AppState): Widget =
+  result = gui:
+    Window:
+      title = "TROMjaro Theme Switcher"
+      # Shrink window to the smallest size
+      defaultSize = (0, 0)
+      # Vertical box
+      Box(orient = OrientY, margin = 7, spacing = 5):
+        Label:
+          text= "A Theme Switcher for TROMjaro's default theme-set (Colloid) and icon-set (Zafiro)."
+        for y, themeStyle in themeStyles:
+          # Horizontal box
+          Box(orient = OrientX, spacing = 5):
+            for x, themeColor in themeColors:
+              Button {.vAlign: AlignCenter, hAlign: AlignCenter.}:
+                icon = fmt"Colloid-{themeColor}-{themeStyle}"
+                # Teal-Dark-Nord theme will have "(default)" added to its tooltip
+                tooltip = if (themeColor, themeStyle) == ("Teal", "Dark-Nord"):
+                  fmt"{themeColor}-{themeStyle} (default)"
+                else:
+                  fmt"{themeColor}-{themeStyle}"
+                style = app.buttonStyles[y][x]
+                proc clicked() =
+                  var thisButton = [y, x]
+                  setTheme(fmt"Colloid-{themeColor}-{themeStyle}")
+                  # Highlight this button
+                  app.buttonStyles[y][x] = ButtonSuggested
+                  if lastClickedButton != thisButton:
+                    # Remove highlight from lastClickedButton
+                    app.buttonStyles[lastClickedButton[0]][lastClickedButton[1]] = ButtonFlat
+                    lastClickedButton = thisButton
+
+brew("com.tromjaro.ThemeSwitcher", gui(App()), icons=[iconsDir], stylesheets=[newStylesheet(gtkCSS)])