Check-in [8d79e35784]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add invitations notification
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8d79e35784b89be407bc4d754bc57c2ce7988933
User & Date: bernd 2019-05-22 23:06:36
Context
2019-05-23
14:44
Bump version number check-in: c5f9a26a1f user: bernd tags: trunk, 0.8.9-20190523
2019-05-22
23:06
Add invitations notification check-in: 8d79e35784 user: bernd tags: trunk
2019-05-21
21:13
Keep status icons floating over top bar check-in: 7e998db7e5 user: bernd tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to gui.fs.

   526    526   
   527    527   also [ifdef] android android [then]
   528    528   
   529    529   tex: vp-title
   530    530   
   531    531   $F110 Constant 'spinner'
   532    532   $F012 Constant 'signal'
          533  +$F234 Constant 'user-plus'
          534  +$F503 Constant 'user-minus'
          535  +$F235 Constant 'user-times'
   533    536   
   534    537   0 Value online-flag
   535    538   
   536    539   : online-symbol ( -- addr u )
   537    540       'signal' 'spinner' online? select ['] xemit $tmp ;
   538    541   : !online-symbol ( -- )
   539    542       online-symbol online-flag >o to text$ o> +sync ;
................................................................................
  1070   1073   		>animate  THEN   endof
  1071   1074   	[ box-actor :: ekeyed ]  EXIT
  1072   1075       endcase ; net2o-actor to ekeyed
  1073   1076   
  1074   1077   : net2o[] ( o -- o )
  1075   1078       >o net2o-actor new !act o o> ;
  1076   1079   
         1080  +0 Value invitations
         1081  +0 Value invitations-list
         1082  +0 Value invitations-notify
         1083  +Variable invitation-stack
         1084  +
         1085  +: invitations-s/h ( flag -- )
         1086  +    invitations swap  IF  /flop  ELSE  /flip  THEN  drop +resize ;
         1087  +
         1088  +: add-user ( key-o -- )
         1089  +    >o perm%default ke-mask !
         1090  +    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;
         1091  +: sub-user ( key-o -- )
         1092  +    >o perm%blocked ke-mask !
         1093  +    o cell- ke-end over - ke-pk $@ key| key# #! o o> .dispose ;
         1094  +
         1095  +: add-invitation ( addr u -- )
         1096  +    over >r read-pk2key$ sample-key .clone >o
         1097  +    o invitation-stack >stack
         1098  +    {{
         1099  +	ke-nick $@ }}text
         1100  +	glue*ll }}glue
         1101  +	'user-plus' ['] xemit $tmp }}text
         1102  +	['] add-user o click[]
         1103  +	'user-minus' ['] xemit $tmp }}text
         1104  +	['] sub-user o click[]
         1105  +    }}h box[] 25%b invitations-list .child+
         1106  +    invitations-notify /flop drop +resize
         1107  +    o> r> free throw ;
         1108  +
         1109  +' add-invitation is do-invite
         1110  +
  1077   1111   {{
  1078   1112       {{
  1079   1113   	glue-left }}glue
  1080   1114   	pw-frame          dup >slides
  1081   1115   	id-frame   /flip  dup >slides
  1082   1116   	chat-frame /flip  dup >slides
  1083   1117   	post-frame /flip  dup >slides
  1084   1118   	glue-right }}glue
  1085   1119       }}h box[]
  1086   1120       {{
  1087   1121   	{{
  1088   1122   	    glue*lll }}glue
  1089         -	    \large online-symbol white# }}text dup to online-flag
         1123  +	    \large
         1124  +	    {{
         1125  +		'user-plus' ' xemit $tmp white# }}text
         1126  +	    }}h ' invitations-s/h 0 toggle[] /flip dup to invitations-notify
         1127  +	    online-symbol white# }}text dup to online-flag
  1090   1128   	    s" ❌" $444444FF new-color, }}button-lit [: -1 data +! ;] level# click[]
  1091   1129   	}}h box[] /vfix
         1130  +	{{
         1131  +	    glue*lll }}glue
         1132  +	    {{
         1133  +		chat-bg-col# pres-frame
         1134  +		{{
         1135  +		    \normal blackish
         1136  +		    !i18n l" Invitations" }}text' /center 25%b
         1137  +		}}v box[] dup to invitations-list
         1138  +	    }}z box[]
         1139  +	}}h box[]
         1140  +	/flip dup to invitations
  1092   1141   	glue*lll }}glue
  1093   1142       }}v box[]
  1094   1143   }}z net2o[]
  1095   1144   Value n2o-frame
  1096   1145   
  1097   1146   \ top widgets
  1098   1147   

Changes to lang/de.

    11     11   Schlüsselsignaturdatum
    12     12   Meine Schlüssel
    13     13   Meine Gruppen
    14     14   Meine Freunde
    15     15   Posting
    16     16      17     17             18  +Einladungen

Changes to lang/en.

    11     11   Key date
    12     12   My key
    13     13   My groups
    14     14   My peers
    15     15   Post
    16     16      17     17             18  +Invitations

Changes to lang/zh.

    11     11   关键签名日期
    12     12   我的钥匙
    13     13   我的集团
    14     14   我的朋友
    15     15   贴子
    16     16      17     17   发送
           18  +请帖