Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Pepare for Forth-Tagung |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7cd7c65a2f80d5fa01e8ba42daee339b |
| User & Date: | bernd 2019-04-09 21:56:44.570 |
Context
|
2019-04-10
| ||
| 20:52 | Forth-Tagung 2019 Präsentation check-in: c51858acfa user: bernd tags: trunk | |
|
2019-04-09
| ||
| 21:56 | Pepare for Forth-Tagung check-in: 7cd7c65a2f user: bernd tags: trunk | |
|
2019-04-08
| ||
| 15:30 | Add day/night mode check-in: 84dc15a8dd user: bernd tags: trunk | |
Changes
Changes to gui.fs.
| ︙ | ︙ | |||
286 287 288 289 290 291 292 | pw-text-col# to x-color "" }}pw dup to pw-field 25%b >o config:passmode# @ to pw-mode o o> glue*lll }}glue }}h pw-field ' pw-done edit[] ' entropy-colorize filter[] \normal \sans white# to x-color | | | | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 |
pw-text-col# to x-color
"" }}pw dup to pw-field
25%b >o config:passmode# @ to pw-mode o o>
glue*lll }}glue
}}h
pw-field ' pw-done edit[] ' entropy-colorize filter[]
\normal \sans white# to x-color
"" }}text blackish
dup value show-pw-sign
\regular
: pw-show/hide ( flag -- )
dup IF "" ELSE "" THEN show-pw-sign >o to text$ o>
2 config:passmode# @ 1 min rot select pw-field >o to pw-mode o>
pw-field engage +sync ;
' pw-show/hide config:passmode# @ 1 > toggle[]
\normal
}}h box[]
}}z box[] bx-tab
{{
|
| ︙ | ︙ | |||
732 733 734 735 736 737 738 |
glue*l imports#rgb-bg ki + sf@ slide-frame dup .button1
{{
prj key| ?avatar
\large imports#rgb-fg ki + sf@ to x-color
prj key| ['] .key-id? $tmp }}text 25%b
glue*ll }}glue
\small prj drop keysize + le-64@ [: .ticks space ;] $tmp }}text 25%b
| | | | 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 |
glue*l imports#rgb-bg ki + sf@ slide-frame dup .button1
{{
prj key| ?avatar
\large imports#rgb-fg ki + sf@ to x-color
prj key| ['] .key-id? $tmp }}text 25%b
glue*ll }}glue
\small prj drop keysize + le-64@ [: .ticks space ;] $tmp }}text 25%b
\normal
prj drop keysize + 8 chain-tags# #@
['] chain-string $tmp }}text 25%b blackish
}}h box[]
}}z box[] posting-vp .child+ ;
: display-file { d: prj -- }
prj display-title
prj [ keysize $10 + ]L safe/string
2dup "file:" string-prefix? IF
|
| ︙ | ︙ | |||
1039 1040 1041 1042 1043 1044 1045 |
\ top box
box-actor class
end-class net2o-actor
:noname ( ekey -- )
case
| | | | 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 |
\ top box
box-actor class
end-class net2o-actor
:noname ( ekey -- )
case
k-f5 of color-theme 0<> IF 0.25e o
[: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
>animate THEN endof
k-f6 of color-theme 0= IF 0.25e o
[: fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
>animate THEN endof
[ box-actor :: ekeyed ] EXIT
endcase ; net2o-actor to ekeyed
: net2o[] ( o -- o )
>o net2o-actor new !act o o> ;
|
| ︙ | ︙ |
Changes to json/g+-import.fs.
| ︙ | ︙ | |||
193 194 195 196 197 198 199 |
media:url$ basename nip $100 > IF
." file:" media:localFilePath$ basename type
ELSE
media:localFilePath$ nip IF ." file:" media:url$ basename type
ELSE media:url$ .mfile THEN
THEN ;
: inline-image ( -- )
| | | 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 |
media:url$ basename nip $100 > IF
." file:" media:localFilePath$ basename type
ELSE
media:localFilePath$ nip IF ." file:" media:url$ basename type
ELSE media:url$ .mfile THEN
THEN ;
: inline-image ( -- )
media:contentType$ "image/" string-prefix? IF
." ![" media:description$ .simple-text ." ](" .media-file ')' emit cr
ELSE
media:url$ ." [" 2dup type ." ](" type ')' emit cr
THEN ;
: .media ( -- )
comments:media{} ?dup-IF cr .inline-image THEN ;
: .album ( -- )
|
| ︙ | ︙ |