Commit 36f963f8 authored by Bernd Paysan's avatar Bernd Paysan

A bit work on notify.fs for Linux

parent efb59063
......@@ -9,7 +9,7 @@ Package: @PACKAGE_NAME@
Version: @PACKAGE_VERSION@
Architecture: all
Depends: gforth (>= @GFDEBVER@), @PACKAGE_NAME@-libcc
Recommends: gpsd, libgps-dev, @PACKAGE_NAME@-gui
Recommends: gpsd, libgps-dev, @PACKAGE_NAME@-gui, libnotify-bin
Description: @PACKAGE_NAME@ protocol stack
net2o reinvents the Internet. Applications include file copy, chat, DHT;
others will follow.
......
......@@ -30,8 +30,18 @@
ELSE notify$ $@ ['] escape-<&> $tmp THEN
ELSE "<i>encrypted message</i>" THEN ;
Variable notify-send
Variable upath
: 0string ( addr u -- cstr )
over 0= IF 2drop s" " THEN
1+ save-mem over + 1- 0 swap c! ;
0 Value content-string
0 Value title-string
10 cells buffer: notify-args
$Variable notify-send
$Variable upath
$Variable net2o-logo
: !upath ( -- )
"PATH" getenv upath $!
......@@ -45,28 +55,15 @@ Variable upath
THEN
upath $off ;
Variable net2o-logo
: !net2o-logo ( -- )
s" ../doc/net2o-logo.png" open-fpath-file 0= IF
rot close-file throw
over c@ '/' <> IF
pad $1000 get-dir net2o-logo $! '/' net2o-logo c$+!
THEN
net2o-logo $+!
net2o-logo $+! 0 net2o-logo c$+!
THEN ;
!upath !net2o-logo
: 0string ( addr u -- cstr )
over 0= IF 2drop s" " THEN
1+ save-mem over + 1- 0 swap c! ;
0 Value content-string
0 Value title-string
10 cells buffer: notify-args
: !notify-args ( -- )
here >r notify-args dp !
"notify-send\0" drop ,
......@@ -76,21 +73,21 @@ Variable net2o-logo
"im.received\0" drop ,
net2o-logo $@len IF
"-i\0" drop ,
net2o-logo $@ 0string ,
net2o-logo $@ drop ,
THEN
here to title-string 0 ,
here to content-string 0 ,
0 , \ must be terminated by null pointer
r> dp ! ;
!notify-args
!upath !net2o-logo !notify-args
:noname defers 'cold
notify-send off upath off net2o-logo off
!upath !net2o-logo !notify-args ; is 'cold
: linux-notification ( -- ) notify-send $@len 0= ?EXIT
title-string 0 ?free content-string 0 ?free
title-string 0 ?free
content-string 0 ?free
['] notify-title $tmp dup 0= IF 2drop EXIT THEN
notify@ dup 0= IF 2drop 2drop EXIT THEN
0string content-string !
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment