Overview
| Comment: | Debugging whoopsie |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ed07797d50ead6f3d1babee0c95510a0 |
| User & Date: | joel on 2020-03-14 22:13:01 |
| Other Links: | manifest | tags |
Context
|
2020-03-14
| ||
| 22:46 | Add a bunch of articles check-in: 2fefe8bc user: joel tags: trunk, content | |
| 22:13 | Debugging whoopsie check-in: ed07797d user: joel tags: trunk | |
| 21:32 | Add version control links to notes [678cc6aeca1d9d31] check-in: 56b50a38 user: joel tags: trunk | |
Changes
Modified dust.rkt from [43068c7c] to [eb603279].
|
| | | 1 2 3 4 5 6 7 8 |
#lang racket/base
; SPDX-License-Identifier: BlueOak-1.0.0
; This file is licensed under the Blue Oak Model License 1.0.0.
(require pollen/core
pollen/pagetree
pollen/setup
|
| ︙ | ︙ | |||
127 128 129 130 131 132 133 |
(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?)
| | | 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 [(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]))
|
| ︙ | ︙ |