summaryrefslogtreecommitdiff
path: root/lang/elisp/internals/time.scm
blob: 10ac02ddc7fdad2c8a1e50a8fad89aa6a3547fbd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(define-module (lang elisp internals time)
  #:use-module (ice-9 optargs)
  #:export (format-time-string))

(define* (format-time-string format-string #:optional time universal)
  (strftime format-string
	    ((if universal gmtime localtime)
	     (if time
		 (+ (ash (car time) 16)
		    (let ((time-cdr (cdr time)))
		      (if (pair? time-cdr)
			  (car time-cdr)
			  time-cdr)))
		 (current-time)))))