Loading doc/36c3-presentation.fs +2 −2 Original line number Diff line number Diff line Loading @@ -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\\ Loading doc/qr-code-inv.png −251 B (4.64 KiB) Loading image diff... doc/qr-code.png −201 B (4.63 KiB) Loading image diff... n2o.fs +10 −2 Original line number Diff line number Diff line Loading @@ -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 Loading qrscan.fs +1 −1 Original line number Diff line number Diff line Loading @@ -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 Loading
doc/36c3-presentation.fs +2 −2 Original line number Diff line number Diff line Loading @@ -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\\ Loading
n2o.fs +10 −2 Original line number Diff line number Diff line Loading @@ -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 Loading
qrscan.fs +1 −1 Original line number Diff line number Diff line Loading @@ -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