diff options
Diffstat (limited to 'hn')
-rwxr-xr-x | hn (renamed from hn/g) | 6 | ||||
-rw-r--r-- | hn/Makefile | 3 |
2 files changed, 3 insertions, 6 deletions
@@ -67,7 +67,7 @@ (cdr athings:sxml)))))) (define (athings:data-dir) - (let ((dir (build-path (find-system-path 'orig-dir) "data"))) + (let ((dir (build-path (find-system-path 'orig-dir) "data/hn"))) (unless (directory-exists? dir) (make-directory dir)) dir)) @@ -91,10 +91,10 @@ (call-with-output-file f (λ (out) (write-json (cons slug l) out)) #:exists 'truncate)))) -(define (g) +(define (hn) (let* ((f (athings:file)) (h (athings:latest (athings:hash f) (athings)))) (call-with-output-file f (λ (out) (write-json h out)) #:exists 'truncate) (athings:index (slug)))) -(g) +(hn) diff --git a/hn/Makefile b/hn/Makefile deleted file mode 100644 index f054558..0000000 --- a/hn/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -pkgs: - raco pkg install --skip-installed html-parsing sxml -.PHONY: pkgs |