127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
-
+
|
(when (file-exists? series-file)
(case (system-type 'os)
[(windows) (system (format "type nul >> ~a" series-file))]
[else (system (format "touch ~a" series-file))]))))
;; Determine if the current article has been checked into Fossil repo
(define (checked-in?)
(cond [#R (current-metas)
(cond [(current-metas)
(define articles-path (build-path (current-project-root) articles-folder))
(define checked-in
(with-output-to-string
(lambda () (system (format "/usr/local/bin/fossil ls ~a" articles-path)))))
(string-contains? checked-in (path->string (here-source-path)))]
[else #f]))
|
