diff --git a/mason/packages/scripts/toggle-keyboard/toggle-keyboard b/mason/packages/scripts/toggle-keyboard/toggle-keyboard new file mode 100755 index 0000000..acc2c25 --- /dev/null +++ b/mason/packages/scripts/toggle-keyboard/toggle-keyboard @@ -0,0 +1,8 @@ +!/bin/sh +KEYBOARD_ENABLED=$(gsettings get org.gnome.desktop.a11y.applications screen-keyboard-enabled) +if [ "$KEYBOARD_ENABLED" = "true" ]; then + KEYBOARD_ENABLED="false" +else + KEYBOARD_ENABLED="true" +fi +gsettings set org.gnome.desktop.a11y.applications screen-keyboard-enabled $KEYBOARD_ENABLED diff --git a/mason/packages/scripts/toggle-keyboard/toggle-keyboard.desktop b/mason/packages/scripts/toggle-keyboard/toggle-keyboard.desktop new file mode 100644 index 0000000..667ef52 --- /dev/null +++ b/mason/packages/scripts/toggle-keyboard/toggle-keyboard.desktop @@ -0,0 +1,5 @@ +[Desktop Entry] +Name=Toggle Keyboard +Type=Application +Exec=@EXEC@ +Categories=Utility; diff --git a/mason/packages/toggle-keyboard.scm b/mason/packages/toggle-keyboard.scm new file mode 100644 index 0000000..3019b27 --- /dev/null +++ b/mason/packages/toggle-keyboard.scm @@ -0,0 +1,34 @@ +(define-module (mason packages toggle-keyboard) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix build-system copy) + #:use-module (guix utils) + #:use-module (guix gexp)) + +(define-public toggle-keyboard + (package + (name "toggle-keyboard") + (version "0.0.1") + (home-page "https://forge.monarch-pass.net/malacoda/mason") + (source + (local-file "scripts/toggle-keyboard" #:recursive? #t)) + (build-system copy-build-system) + (arguments + '(#:install-plan + '(("toggle-keyboard" "bin/") + ("toggle-keyboard.desktop" "share/applications/")) + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'configure + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* (list "toggle-keyboard.desktop") + (("@EXEC@") + (string-append (assoc-ref outputs "out") + "/bin/toggle-keyboard"))) + #t))))) + (synopsis "Toggle keyboard") + (description + "Toggle keyboard") + (license license:gpl3+))) + +toggle-keyboard