29 Jul
2009
29 Jul
'09
9:36 a.m.
Ok, well I had done
| a |
a := OrderedCollection new.
IPhoneWikiServerUI kernel root enumerator
with;
all;
do:
[ :each | each class = PRPage ifTrue: [a add:
each]].
stream := StandardFileStream forceNewFileNamed: 'exportedWikiData.txt'.
[a do: [:e |
stream nextPutAll: '**********##########';cr.
stream nextPutAll: e name;cr.
stream nextPutAll: '##########**********';cr.
stream nextPutAll: e contents;cr.]]
ensure: [stream close].
I'm not sure if the "e contents" does the same thing as the
"PRWikiWriter write: each document to: "
On 29-Jul-09, at 12:15 AM, Lukas Renggli wrote:
--
=
=
=
========================================================================
John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter:
squeaker68882
Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com
=
=
=
========================================================================
I was going to
tackle making a component or method on the import/
export
component to exportt
all the pages in Pier in Wiki format. I"m wondering if anyone has
done this
before?
There isn't anything out of the box, but it is rather simple to do.
Try something along the following lines:
aKernel root enumerator all
do: [ :each | PRWikiWriter write: each document to: aStream ]
Lukas
--
Lukas Renggli
http://www.lukas-renggli.ch