Code: Select all
(set 'tmp-file (open "/tmp/file" "write"))
(write tmp-file (join (map markup (parse pretext "\n" 0)) "\n"))
(close tmp-file)
(setf posttext (join (exec "fmt -68 /tmp/file") "\n"))
Code: Select all
(set 'tmp-file (open "/tmp/file" "write"))
(write tmp-file (join (map markup (parse pretext "\n" 0)) "\n"))
(close tmp-file)
(setf posttext (join (exec "fmt -68 /tmp/file") "\n"))
Code: Select all
(exec "fmt -68 > posttext" (join (map markup (parse pretext "\n" 0)) "\n"))