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 |
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 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> throw ;
: .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
|
| |
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 200 201 202 203 204 205 206 207 ... 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 ... 305 306 307 308 309 310 311 312 313 314 315 316 317 318 |
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:description$ .simple-text ." ](" .media-file ')' emit cr ;
: .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
................................................................................
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 ." ]("
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
................................................................................
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
|
> | > > > | > > > > |
193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 ... 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 ... 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 |
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
................................................................................
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
................................................................................
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
|