From f7e489178120813a4aff0eff0140661bf402cbae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 17 Aug 2020 10:17:33 +0200
Subject: Work on paths?

---
 configure | 52 ----------------------------------------------------
 1 file changed, 52 deletions(-)
 delete mode 100755 configure

(limited to 'configure')

diff --git a/configure b/configure
deleted file mode 100755
index a5ef456e..00000000
--- a/configure
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/guile \
---no-auto-compile -s
-!#
-
-(define // file-name-separator-string)
-
-(define here (cond ((current-filename) => dirname)
-                   (else (getcwd))))
-(define module-dir (string-append here // "module"))
-(add-to-load-path module-dir)
-
-(use-modules (util))
-
-;; --with-zoneinfo
-(define zoneinfo #t)
-
-;; when zoneinfo
-(use-modules (ice-9 rdelim))
-
-(define *develop* #t)
-
-(define PREFIX //)
-(define CACHE_DIR (string-append PREFIX // "var/cache/calp"))
-(define LIBEXEC (if *develop* here (string-append PREFIX // "usr/lib/calp")))
-
-(define pipe
-  (-> LIBEXEC
-      (string-append // "tzget")
-      ((@ (ice-9 popen) open-input-pipe))))
-(define path (read-line pipe))
-(define names (string-split (read-line pipe) #\space))
-
-(use-modules (util io)
-             (datetime))
-(with-atomic-output-to-file
- (string-append module-dir // "autoconfig.scm")
- (lambda ()
-   (display ";;; Commentary:") (newline)
-   (display ";;; File genererated by ./configure on ")
-   (display (datetime->string
-             (current-datetime) "~Y-~m-~d ~H:~M:~S~Z"))
-   (newline)
-   (display ";;; DONT make any manual changes") (newline)
-   (display ";;; Code:") (newline)
-   (for-each (@ (ice-9 pretty-print) pretty-print)
-             `((define-module (autoconfig)
-                 use-module: (util config))
-               ,@(when zoneinfo
-                   `((set-config! 'tz-file ,path)
-                     (set-config! 'tz-list (quote ,names))))))))
-
-;; vim:ft=scheme:
-- 
cgit v1.2.3