sts annotate sts @ rev 1
Add sts and sts-session
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Sat Apr 26 22:06:19 2014 +0200 (2014-04-26) |
| parents | |
| children | 185d34744e11 |
| rev | line source |
|---|---|
| pankso@1 | 1 #!/bin/sh |
| pankso@1 | 2 # |
| pankso@1 | 3 # This tool is used by SliTaz Tiny/Touch Screens desktop. |
| pankso@1 | 4 # |
| pankso@1 | 5 # Copyright (C) 2014 SliTaz ARM - BSD License |
| pankso@1 | 6 # Author: Christophe Lincoln <pankso@slitaz.org> |
| pankso@1 | 7 # |
| pankso@1 | 8 |
| pankso@1 | 9 data="/usr/share/slitaz/sts" |
| pankso@1 | 10 obconf="${XDG_CONFIG_HOME}/openbox" |
| pankso@1 | 11 |
| pankso@1 | 12 case "$1" in |
| pankso@1 | 13 info) |
| pankso@1 | 14 if [ "$STS_DESKTOP_WM" ]; then |
| pankso@1 | 15 echo "STS_DESKTOP_WM : $STS_DESKTOP_WM" |
| pankso@1 | 16 else |
| pankso@1 | 17 echo "The sts desktop is not running" |
| pankso@1 | 18 fi ;; |
| pankso@1 | 19 setup) |
| pankso@1 | 20 # Setup a user session. Openbox configs are setup by sts-session |
| pankso@1 | 21 # but on a system update only $data files are updated so users may |
| pankso@1 | 22 # want to get latest configs with --forced from cmdline or via a |
| pankso@1 | 23 # GUI box. |
| pankso@1 | 24 |
| pankso@1 | 25 # sed -i "//sts-session/" ${XDG_CONFIG_HOME}/slitaz/applications.conf |
| pankso@1 | 26 user=$(id -un) |
| pankso@1 | 27 echo "TODO: sorry $user" ;; |
| pankso@1 | 28 kill) |
| pankso@1 | 29 # Close button on panel so we can have undecorated windows |
| pankso@1 | 30 xid=$(xprop -root 32x '\t$0' _NET_ACTIVE_WINDOW | cut -f 2) |
| pankso@1 | 31 pid=$(xprop -id ${xid} _NET_WM_PID | awk '{print $3}') |
| pankso@1 | 32 kill ${pid} ;; |
| pankso@1 | 33 *|help) |
| pankso@1 | 34 echo "$(basename $0) [info|kill]" ;; |
| pankso@1 | 35 esac |
| pankso@1 | 36 |
| pankso@1 | 37 exit 0 |