Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fixes with g+ importer |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
088e7f93c4aee73715c80666a53f060b |
| User & Date: | bernd 2019-04-02 22:08:48.822 |
Context
|
2019-04-03
| ||
| 22:22 | Show emojis/+ones check-in: c34b95db43 user: bernd tags: trunk | |
|
2019-04-02
| ||
| 22:08 | Fixes with g+ importer check-in: 088e7f93c4 user: bernd tags: trunk | |
|
2019-03-30
| ||
| 10:32 | Small changes check-in: 6f0b12fb72 user: bernd tags: trunk | |
Changes
Changes to gui.fs.
| ︙ | ︙ | |||
721 722 723 724 725 726 727 |
?msg-log last# msg-log@ 2dup { log u }
bounds ?DO
I $@ msg:display \ this will only set the URLs
cell +LOOP
glue*lll }}glue project-vp dup .act 0= IF vp[] THEN .child+
log free
dvcs-log:urls[] ['] display-file $[]map
| | | 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 |
?msg-log last# msg-log@ 2dup { log u }
bounds ?DO
I $@ msg:display \ this will only set the URLs
cell +LOOP
glue*lll }}glue project-vp dup .act 0= IF vp[] THEN .child+
log free
dvcs-log:urls[] ['] display-file $[]map
dvcs:dispose-dvcs-log o> ;
: .project-log ( -- )
dvcs:new-dvcs >o config>dvcs
project:project$ $@ @/ 2drop 2dup load-msg
display-project
dvcs:dispose-dvcs o> ;
: open-project { d: prj -- }
." open " prj .project cr
|
| ︙ | ︙ |
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 208 209 210 211 |
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/*" str= 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 ( -- )
comments:album{} ?dup-IF cr
." ::album::" cr cr
.album:media[] $@ over @ .media:url$
basedir+name pics# #@ d0= IF
|
| ︙ | ︙ | |||
227 228 229 230 231 232 233 |
comments:resharedPost{} ?dup-IF cr >o
." > " comments:author{} ?dup-IF ..author ." : " THEN
'[' emit comments:content$ ['] html>text $tmp $40 umin .simple-text
." ](" .post ') emit cr cr
.html .link .media .album o>
THEN ;
: .choice ( n o:choices -- )
| | > | 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 |
comments:resharedPost{} ?dup-IF cr >o
." > " comments:author{} ?dup-IF ..author ." : " THEN
'[' emit comments:content$ ['] html>text $tmp $40 umin .simple-text
." ](" .post ') emit cr cr
.html .link .media .album o>
THEN ;
: .choice ( n o:choices -- )
'1' + dup emit ." . ::votes#" emit ." :: " choices:description$ type
'\' emit cr ." ![" choices:description$ type ." ]("
choices:imageLocalFilePath$ dup IF basename type
ELSE 2drop choices:imageUrl$ .mfile THEN ." ) " ;
: .polls ( o:comments -- )
comments:poll{} ?dup-IF cr >o
0 { n }
poll:choices[] $@ bounds U+DO
n I @ ..choice cr 1 +to n
|
| ︙ | ︙ | |||
305 306 307 308 309 310 311 312 313 314 315 316 317 318 |
2drop media:localFilePath$ basename
THEN dvcs .local-media EXIT
THEN 2drop
media:url$ basedir+name pics# #@ d0= IF
media:contentType$ "image/*" str= IF
." media unavailable: " media:url$ type cr THEN
EXIT THEN
last# cell+ $@ dvcs .csv-media ;
: add-album { dvcs -- }
comments:album{} ?dup-IF
.album:media[] $@
over @ .media:url$
basedir+name pics# #@ d0= IF
| > > > | 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 |
2drop media:localFilePath$ basename
THEN dvcs .local-media EXIT
THEN 2drop
media:url$ basedir+name pics# #@ d0= IF
media:contentType$ "image/*" str= IF
." media unavailable: " media:url$ type cr THEN
EXIT THEN
media:contentType$ "video/*" str= IF
media:url$ ." [" 2dup type ." ](" type ." )" cr
EXIT THEN
last# cell+ $@ dvcs .csv-media ;
: add-album { dvcs -- }
comments:album{} ?dup-IF
.album:media[] $@
over @ .media:url$
basedir+name pics# #@ d0= IF
|
| ︙ | ︙ |