Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 08:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Parse link since it is not always the same as func

Browse source
This commit is contained in:
Justin Ethier 2016-09-28 18:50:25 -04:00
parent 240d96bddd
commit c45ec93b27
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
scripts/convert-doc-index.scm
View file

@ -23,7 +23,8 @@
;; goal is: ;; goal is:
;; [`load`](api/scheme/load.md#load) ;; [`load`](api/scheme/load.md#load)
;(define line "docs/api/scheme/base.md:- [`denominator`](#denominator)") ;(define line "docs/api/scheme/base.md:- [`denominator`](#denominator)")
(define line "docs/api/scheme/process-context.md:- [`get-environment-variables`](#get-environment-variables)") ;(define line "docs/api/scheme/process-context.md:- [`get-environment-variables`](#get-environment-variables)")
;(define line "docs/api/scheme/char.md:- [`string-ci>=?`](#string-ci-3)")
(define (convert-line line) (define (convert-line line)
(let* ((lis (string->list line)) (let* ((lis (string->list line))
@ -32,9 +33,13 @@
(file (substring line s-file e-file)) (file (substring line s-file e-file))
(s-fnc (+ 1 (index-of lis #\`))) (s-fnc (+ 1 (index-of lis #\`)))
(e-fnc (+ s-fnc (index-of (string->list (substring line (+ 0 s-fnc) (string-length line))) #\`))) (e-fnc (+ s-fnc (index-of (string->list (substring line (+ 0 s-fnc) (string-length line))) #\`)))
(fnc (substring line s-fnc e-fnc))) (fnc (substring line s-fnc e-fnc))
(s-link (index-of lis #\#))
(e-link (string-length line))
(link (substring line s-link e-link))
)
(string-append (string-append
"- [`" fnc "`](" file "#" fnc ")"))) "- [`" fnc "`](" file "" link ")")))
;(display (convert-line line)) ;(display (convert-line line))
(define (loop) (define (loop)