Verified Commit f3c9670a authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Add OIO presentation

parent c97126d1
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -156,7 +156,7 @@ $44FFFFFF re-color author#
	{{
	    $5F0000FF $FF7777FF pres-frame
	    {{
		l" Associal Hateworks" /title
		l" Antisocial Hateworks" /title
		l" Problems with People since Eternal September" /subsection
		vt{{
		    l" Opinions " l" are not facts, but values people believe in" b\\
−251 B (4.64 KiB)
Loading image diff...
−201 B (4.63 KiB)
Loading image diff...
+10 −2
Original line number Diff line number Diff line
@@ -188,8 +188,16 @@ scope{ n2o
: keyqr ( -- )
    \U keyqr|qrkey [@user1 .. @usern]
    \G keyqr: print qr of own key (default) or selected user's qr
    ?get-me init-client announce-me
    ?peekarg IF  2drop qr-nicks  ELSE  qr-me  THEN ;
    ?get-me
    ?peekarg
    IF  case 
	    2dup "-black" str= ?of  2drop black-qr ?nextarg  endof
	    2dup "-white" str= ?of  2drop white-qr ?nextarg  endof
	    true dup endcase
    THEN
    nip nip  IF  qr-nicks  ELSE
	init-client announce-me qr-me
    THEN ;

: keyscan ( -- )
    \U keyscan|scankey|scanqr|qrscan
+1 −1
Original line number Diff line number Diff line
@@ -32,7 +32,7 @@ require minos2/gl-helper.fs
    debug: health(
    debug: msg(
    +db qr( \ turn it on )
    -db msg( \ turn it on )
    +db msg( \ turn it on )
[THEN]

[IFUNDEF] xtype
Loading