◊(Local Yarn Code "Check-in [ed07797d]")

Overview
Comment:Debugging whoopsie
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: ed07797d50ead6f3d1babee0c95510a039d7ef062cdd23d329d169d88408d406
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 debug 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
|







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
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)
         (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]))








|







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]))