Check-in [0c5170aaaa]
Not logged in

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

Overview
Comment:Try to fix problems with non-identical posts
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:0c5170aaaa89fa9f03af4f8e8bc8fe2a7c6f09bf
User & Date: bernd 2019-03-14 18:39:09
Context
2019-03-14
22:14
Improvement on g+ import, limiter for chat text Leaf check-in: 79711085be user: bernd tags: trunk
18:39
Try to fix problems with non-identical posts check-in: 0c5170aaaa user: bernd tags: trunk
17:29
Fake signatures fixed check-in: 5af1860582 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to json/g+-import.fs.

189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
    THEN ;
: .csv-link { d: fn -- }
    ." ![" fn picdesc# #@ .simple-text ." ](file:" fn picbase# #@ type ." )" cr ;
: .media ( -- )
    comments:media{} ?dup-IF cr >o
	." ![" media:description$ .simple-text ." ]("
	media:url$ 2dup basename nip $100 > IF
	    2drop media:localFilePath$ basename type
	ELSE  .mfile  THEN  ')' emit cr
	o>  THEN ;
: .album ( -- )
    comments:album{} ?dup-IF cr
	." ::album::" cr cr
	.album:media[] $@ over @ .media:url$
	basedir+name pics# #@ d0= IF
	    bounds U+DO
		I @ >o
		." ![" media:description$ .simple-text ." ]("
		media:localFilePath$ nip IF  media:url$ basename type
		ELSE  media:url$ .mfile  THEN ')' emit cr
		o>
	    cell +LOOP
	ELSE
	    2drop
	    last# cell+ $@ 5 umin album# #@ bounds U+DO
		I $@ .csv-link







|










|







189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
    THEN ;
: .csv-link { d: fn -- }
    ." ![" fn picdesc# #@ .simple-text ." ](file:" fn picbase# #@ type ." )" cr ;
: .media ( -- )
    comments:media{} ?dup-IF cr >o
	." ![" media:description$ .simple-text ." ]("
	media:url$ 2dup basename nip $100 > IF
	    ." file:" 2drop media:localFilePath$ basename type
	ELSE  .mfile  THEN  ')' emit cr
	o>  THEN ;
: .album ( -- )
    comments:album{} ?dup-IF cr
	." ::album::" cr cr
	.album:media[] $@ over @ .media:url$
	basedir+name pics# #@ d0= IF
	    bounds U+DO
		I @ >o
		." ![" media:description$ .simple-text ." ]("
		media:localFilePath$ nip IF  ." file:" media:url$ basename type
		ELSE  media:url$ .mfile  THEN ')' emit cr
		o>
	    cell +LOOP
	ELSE
	    2drop
	    last# cell+ $@ 5 umin album# #@ bounds U+DO
		I $@ .csv-link