screenshot2app: new package
This commit is contained in:
parent
b09e68119f
commit
76adb5cd3a
45
mason/packages/screenshot2app.scm
Normal file
45
mason/packages/screenshot2app.scm
Normal file
@ -0,0 +1,45 @@
|
||||
(define-module (mason packages screenshot2app)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (gnu packages gtk)
|
||||
#:use-module (gnu packages image))
|
||||
|
||||
(define-public screenshot2app
|
||||
(package
|
||||
(name "screenshot2app")
|
||||
(version "0.0.1")
|
||||
(home-page "https://wiki.mobian-project.org/doku.php?id=tweaks#taking-screenshots-v3")
|
||||
(source
|
||||
(local-file "scripts/screenshot2app" #:recursive? #t))
|
||||
(build-system copy-build-system)
|
||||
(arguments
|
||||
'(#:install-plan
|
||||
'(("screenshot2app" "bin/")
|
||||
("screenshot2app.desktop" "share/applications/"))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'configure
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(substitute* (list "screenshot2app")
|
||||
(("@EXTRA_PATH@")
|
||||
(string-append (assoc-ref inputs "grim")
|
||||
"/bin:"
|
||||
(assoc-ref inputs "yad")
|
||||
"/bin")))
|
||||
(substitute* (list "screenshot2app.desktop")
|
||||
(("@EXEC@")
|
||||
(string-append (assoc-ref outputs "out")
|
||||
"/bin/screenshot2app")))
|
||||
#t)))))
|
||||
(inputs
|
||||
`(("yad" ,yad)
|
||||
("grim" ,grim)))
|
||||
(synopsis "")
|
||||
(description
|
||||
"")
|
||||
(license license:gpl2+)))
|
||||
|
||||
screenshot2app
|
||||
79
mason/packages/scripts/screenshot2app/screenshot2app
Normal file
79
mason/packages/scripts/screenshot2app/screenshot2app
Normal file
@ -0,0 +1,79 @@
|
||||
#!/bin/bash
|
||||
|
||||
# This script make a screen shot
|
||||
#
|
||||
# Authors: Kyle Rankin & @mo2mo:matrix.org
|
||||
# https://puri.sm/posts/easy-librem-5-app-development-take-a-screenshot/
|
||||
# https://wiki.mobian-project.org/doku.php?id=tweaks#taking-screenshots-v3
|
||||
#
|
||||
# dependencies: grim libnotify-bin yad
|
||||
#
|
||||
# License GPLv2+: GNU GPL version 2 or later <http://gnu.org/licenses/gpl.html>
|
||||
# This is free software: you are free to change and redistribute it.
|
||||
# There is NO WARRANTY, to the extent permitted by law."
|
||||
|
||||
|
||||
# make the info
|
||||
LNG=$(echo $LANG | cut -d_ -f1)
|
||||
case $LNG in
|
||||
de) INFO="Ein Bildschirmfoto nach X Sekunden machen:\nName (auch mit Pfad)" ;;
|
||||
es) INFO="Tomar una captura de pantalla después de X segundos:\nnombre (también con la ruta)" ;;
|
||||
fr) INFO="Prendre une capture d'écran après X secondes:\nnom (également avec le chemin)" ;;
|
||||
it) INFO="Scatta lo screenshot dopo X secondi:\nnome (anche con percorso)" ;;
|
||||
ru) INFO="Снимок экрана через X секунд:\nимя (также с указанием пути)" ;;
|
||||
*) INFO="Take screenshot after X seconds:\nname (also with path)"
|
||||
esac
|
||||
|
||||
export PATH="$PATH:@EXTRA_PATH@"
|
||||
|
||||
# start with yad
|
||||
INPUT=`yad --title Screenshot --text="$INFO" --form --field=filename:SFL --field=seconds:NUM "Screenshot" "5" --focus-field=1`
|
||||
SCREENSHOT=`echo $INPUT | cut -d '|' -f1`
|
||||
SECONDS=`echo $INPUT | cut -d '|' -f2`
|
||||
[ "$SECONDS" -eq 0 ] && exit 1
|
||||
|
||||
# check & make a folder
|
||||
if [ -f "${HOME}/.config/user-dirs.dirs" ]
|
||||
then PICTURE_DIR=$(cat ${HOME}/.config/user-dirs.dirs | grep PICTURES | cut -d/ -f2 | cut -d\" -f1)
|
||||
else PICTURE_DIR="Pictures"
|
||||
fi
|
||||
if [ -d "${HOME}/$PICTURE_DIR" ]
|
||||
then FOLDER="$PICTURE_DIR/Screenshot"
|
||||
else FOLDER="Screenshot"
|
||||
fi
|
||||
[ ! -d "${HOME}/$FOLDER" ] && mkdir "${HOME}/$FOLDER"
|
||||
|
||||
# check the target
|
||||
if [ -d "$(echo ${SCREENSHOT%/*} | grep '/')" ]
|
||||
then INFO=${SCREENSHOT##*/}
|
||||
elif [ ! "$(echo "$SCREENSHOT" | grep "/home/")" ]
|
||||
then SCREENSHOT="${HOME}/$FOLDER/${SCREENSHOT##*/}"
|
||||
INFO="\n~/$FOLDER/${SCREENSHOT##*/}"
|
||||
else exit 2
|
||||
fi
|
||||
|
||||
# check the extensions
|
||||
EXT="${SCREENSHOT##*.}"
|
||||
case "$EXT" in
|
||||
png|ppm) SCREENSHOT="$SCREENSHOT" ;;
|
||||
*) EXT="png"
|
||||
SCREENSHOT="$SCREENSHOT.$EXT" ;;
|
||||
esac
|
||||
|
||||
# make a screenshot
|
||||
sleep $SECONDS
|
||||
TIMESTAMP=$(date +%Y%m%d-%H%M%S)
|
||||
if [ -f "$SCREENSHOT" ]
|
||||
then SCREENSHOT="${SCREENSHOT%.*}_$TIMESTAMP.$EXT"
|
||||
INFO="${INFO%.*}_$TIMESTAMP"
|
||||
fi
|
||||
grim -t $EXT "$SCREENSHOT"
|
||||
case $LNG in
|
||||
de) info="Bildschirmfoto gespeichert unter:" ;;
|
||||
es) info="Captura de pantalla almacenada en:" ;;
|
||||
fr) info="Capture d'écran stockée à:" ;;
|
||||
it) info="Screenshot memorizzato su:" ;;
|
||||
ru) info="Скриншот, сохраненный в:" ;;
|
||||
*) info="Screenshot stored at:"
|
||||
esac
|
||||
notify-send screenshot "$info\n$INFO.$EXT"
|
||||
14
mason/packages/scripts/screenshot2app/screenshot2app.desktop
Normal file
14
mason/packages/scripts/screenshot2app/screenshot2app.desktop
Normal file
@ -0,0 +1,14 @@
|
||||
[Desktop Entry]
|
||||
Name=Screen Shot
|
||||
Name[de]=Bildschirmfoto
|
||||
Name[en_CA]=Screen Shot
|
||||
Name[en_GB]=Screen Shot
|
||||
Name[es]=Captura de pantalla
|
||||
Name[fr]=Capture d'écran
|
||||
Name[it]=Schermata
|
||||
Type=Application
|
||||
Icon=applets-screenshooter
|
||||
Exec=@EXEC@
|
||||
Terminal=false
|
||||
Keywords=screenshooter;Bildschirmfoto;screen;
|
||||
Categories=Utility;
|
||||
Loading…
x
Reference in New Issue
Block a user