(define (fangle-initialize)
(define-group enumerate-tag nf-chunk)
(define-group automatic-section-tag list-of-chunks)
(menu-extend automatic-menu
("List of Fangle chunks" (make-aux* "the-index*" "nf-chunk" "Code Index"))
)
(menu-extend texmacs-extra-menu
(=> "Fangle"
("List of Fangle chunks" (make-aux* "the-index*" "nf-chunk" "Code Index"))
("Extract All" (fangle-extract-all))
)
)
)
(define (fangle-extract-all)
(let* ((name (string-append (url->system (current-buffer)) ".txt"))
(tmp-name (string-append name "~")) )
(export-buffer-main (current-buffer) tmp-name "verbatim" (list :overwrite))
(system-2 "fangle-refresh" name tmp-name)
)
)
(plugin-configure fangle
(:require #t)
(:initialize (fangle-initialize)))
#! /bin/bash
diff "$1" "$2" &>/dev/null && { rm "$2"; exit; }
fangle -R "" < "$2" | sed -e 's/^[<][<]//;s/[>][>]$//;/^\.\//!d' -e 's/^\.\//\.\//' | \
while read file
do fangle -R"$file" < "$2" > "$file"
done &&
mv "$2" "$1"
I had to use a new script fangle-refresh because the scheme command system takes only a single long string, and for separate arguments only system-1 or system-2 exist for 1 and 2 arguments.
When I remember how I'll add a shortcut key to invoke fangle-extract-all.
I was surprised at how few scsh primitive's were available in texmacs.
Sam