From 528a73c1f85a77ffc0a3800792abdb62770b6b3c Mon Sep 17 00:00:00 2001
From: Sven Axelsson <sven@axelsson.name>
Date: Sun, 29 Dec 2013 12:26:42 +0100
Subject: [PATCH] Modernized date formatting code

---
 format.ly     | 5 +----
 formatbook.ly | 5 +----
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/format.ly b/format.ly
index f6d75a6..2a9e265 100644
--- a/format.ly
+++ b/format.ly
@@ -4,10 +4,7 @@
 
 \version "2.16.0"
 
-% Bring in the time/date package. Set format to month day, year
-
-#(use-modules (srfi srfi-19))
-today = #(date->string (current-date) "~B ~e, ~Y")
+today = #(strftime "%B %e, %Y" (localtime (current-time)))
 
 \paper {
     raggedbottom = ##t
diff --git a/formatbook.ly b/formatbook.ly
index 7908a78..d34c16e 100644
--- a/formatbook.ly
+++ b/formatbook.ly
@@ -4,10 +4,7 @@
 
 \version "2.16.0"
 
-% Bring in the time/date package. Set format to month day, year
-
-#(use-modules (srfi srfi-19))
-today = #(date->string (current-date) "~B ~e, ~Y")
+today = #(strftime "%B %e, %Y" (localtime (current-time)))
 
 \paper {
     raggedbottom = ##t