Helper to attach files to org-mode

emacs-org-attach-file.sh

#!/bin/bash

# Author: Mikhail Skorzhinskii <mskorzhinskiy@eml.cc>
#
# Description: Create a new file for org-mode and (may-be) try to attach it to
# the org-mode

choice=`kdialog --radiolist Type: Drawing Drawing on Screenshot Screenshot off Voice Voice off`

file_name=`uuidgen`
fpath=~/inbox/${file_name}

case "${choice}" in
    Drawing)
        fpath=${fpath}.png

        convert -size 1024x768 canvas:white ${fpath}
        krita --fullscreen --canvasonly ${fpath}
        ;;
    Screenshot)
        fpath=${fpath}.png

        echo "spectacle>>"
        spectacle -r -b -n --output ${fpath}
        echo "krita>"
        krita --fullscreen --canvasonly ${fpath}
        ;;
    Voice)
        parecord -r ${fpath}.wav &
        kdialog=`kdialog --title "Creating new file" --progressbar 'Recording:'`
        qdbus ${kdialog} showCancelButton true
        while [ "false" = `qdbus ${kdialog} wasCancelled` ]; do
            sleep 1
            inc=$((`qdbus ${kdialog} Get "" "value"` + 1))
            qdbus $kdialog Set "" "value" $inc;
        done
        qdbus $kdialog close
        kill %1

        ffmpeg -i ${fpath}.wav -acodec libvorbis ${fpath}.ogg
        rm ${fpath}.wav

        fpath=${fpath}.ogg
        ;;
esac

kdialog --title "Creating new file" --yesno "Attach to org-mode?"
if [ $? = 0 ]; then
    emacs-org-attach-file ${fpath}
fi