brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bump version to 1.7 - new release for utf8 fixes.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-04 16:58:00 +02:00
parent b803901367
commit 2b747230f6
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/texts.scm
View file

@ -39,7 +39,7 @@
(chicken format)) (chicken format))
;; Short banner ;; Short banner
(define banner-line "HackerBase 1.6.99 (c) 2023 Brmlab, z.s.") (define banner-line "HackerBase 1.7 (c) 2023 Brmlab, z.s.")
;; Banner source with numbers for ANSI CSI SGR ;; Banner source with numbers for ANSI CSI SGR
(define banner-source " (define banner-source "

10
src/util-time.scm
View file

@ -25,8 +25,12 @@
(declare (unit util-time)) (declare (unit util-time))
;;; # Utilities
(module (module
util-time util-time
;;; Test
( (
current-util-milliseconds current-util-milliseconds
seconds->iso-date-string seconds->iso-date-string
@ -38,7 +42,7 @@
(chicken time posix) (chicken time posix)
(chicken format)) (chicken format))
;; Compatibility wrapper ;;; Compatibility wrapper
(define (current-util-milliseconds) (define (current-util-milliseconds)
(cond-expand (cond-expand
(chicken-5.0 (chicken-5.0
@ -50,7 +54,7 @@
(else (else
(current-process-milliseconds)))) (current-process-milliseconds))))
;; Converts seconds since epoch to ISO date string ;;; Converts seconds since epoch to ISO date string
(define (seconds->iso-date-string . args) (define (seconds->iso-date-string . args)
(let ((d (apply seconds->local-time args))) (let ((d (apply seconds->local-time args)))
(format "~A-~A-~A" (format "~A-~A-~A"
@ -65,7 +69,7 @@
(+ 100 (vector-ref d 3))) (+ 100 (vector-ref d 3)))
1)))) 1))))
;; Returns today as YYYY-MM-DD string ;;; Returns today as YYYY-MM-DD string
(define (today/iso) (define (today/iso)
(seconds->iso-date-string)) (seconds->iso-date-string))