Makefile: move scheme code in build/

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>

1 files changed, 1 insertions, 39 deletions

diff --git a/Makefile b/Makefile
index bdd87d5..706de07 100644
--- a/Makefile
+++ b/Makefile
@@ -40,45 +40,7 @@ SENTINEL =
 	update-makefile \
 	$(SENTINEL)
 
-# Input: wordpress/articles/2015_07_replicant-source-code-hosting-and-rmll-2015.html
-# Output: https://blog.replicant.us/2015/07/replicant-source-code-hosting-and-rmll-2015/
-define get-wordpress-article-url
-
-(use-modules (ice-9 regex))
-
-;; Input: wordpress/articles/2015_07_replicant-source-code-hosting-and-rmll-2015.html
-;; Output: 2015_07_replicant-source-code-hosting-and-rmll-2015.html
-(define (local-filename name)
-  (list-ref (string-split name #\/) 2))
-
-;; Output: 2015
-(define year
-  (car (string-split (local-filename "$@") #\_)))
-
-;; Output: 07
-(define month
-  (cadr (string-split (local-filename "$@") #\_)))
-
-;; Output: replicant-source-code-hosting-and-rmll-2015.html
-(define html-page
-  (regexp-substitute
-   #f
-   (string-match
-    "[0-9]{4}_[0-9]{2}_"
-    "$@")
-   'post))
-
-;; Output: replicant-source-code-hosting-and-rmll-2015
-(define page-path
-  (regexp-substitute
-   #f
-   (string-match
-    ".html"
-    html-page)
-   'pre))
-
-(string-append "https://blog.replicant.us/" year "/" month "/" page-path "/")
-endef
+include build/get-wordpress-article-url.scm
 
 WORDPRESS_PAGES = \
 	wordpress/pages/replicant_blog_page_8.html \