From 3560243e787ccd0847a89facd36ed2dc361f07e3 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Wed, 29 Jan 2025 11:44:21 +0000 Subject: [PATCH] GPL headers. --- guile/broken-link-checker.scm | 18 ++++++++++++++- guile/de-blogger.scm | 36 +++++++++++++++++++++++------- guile/fix-nationwide-statement.scm | 28 ++++++++++++++++++----- 3 files changed, 68 insertions(+), 14 deletions(-) diff --git a/guile/broken-link-checker.scm b/guile/broken-link-checker.scm index be2c71a..f644ffe 100755 --- a/guile/broken-link-checker.scm +++ b/guile/broken-link-checker.scm @@ -1,5 +1,21 @@ #!/usr/bin/guile \ --no-auto-compile -e main -s + +Broken Link Checker +Copyright (C) 2025 Ray Miller . + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . !# (use-modules (ice-9 format) @@ -118,7 +134,7 @@ ;; This is a work-around for when running Hugo in development; the ;; site is served on http://127.0.0.1:1313/ but some URLs in the ;; delivered pages are for http://localhost:1313/ and some URLs in the -;; content have been hard-coded as metail.com - we want to rewrite +;; content have hard-coded the live hostname - we want to rewrite ;; both of these to http://127.0.0.1:1313/ to test the development ;; version of the site. ;; diff --git a/guile/de-blogger.scm b/guile/de-blogger.scm index a141ad7..cc42c63 100755 --- a/guile/de-blogger.scm +++ b/guile/de-blogger.scm @@ -1,4 +1,24 @@ -#!/usr/bin/env -S guile -e main -s +#!/usr/bin/guile \ +-e main -s + +De-Blogger script for cleaning up data exported from blogger and downloading +linked images from the Blogger CDN. + +Copyright (C) 2024 Ray Miller . + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + !# (use-modules (srfi srfi-26) @@ -62,13 +82,13 @@ filename))))) (define (replace-images doc) - (for-each (lambda (m) - (let* ((url (match:substring m 1)) - (filename (download-image url)) - (new-url (string-append "/img/" filename))) - (set! doc (string-replace-substring doc url new-url)))) - (list-matches md-img-rx doc)) - doc) + (for-each (lambda (m) + (let* ((url (match:substring m 1)) + (filename (download-image url)) + (new-url (string-append "/img/" filename))) + (set! doc (string-replace-substring doc url new-url)))) + (list-matches md-img-rx doc)) + doc) (define (replace-image-links doc) (for-each (lambda (m) diff --git a/guile/fix-nationwide-statement.scm b/guile/fix-nationwide-statement.scm index 27854b4..bc74ca2 100755 --- a/guile/fix-nationwide-statement.scm +++ b/guile/fix-nationwide-statement.scm @@ -1,9 +1,27 @@ -#!/usr/bin/env -S guile -e main -s -!# +#!/usr/bin/guile \ +-e main -s -;; Script for updating current account and credit card statements -;; downloaded from Nationwide, who use a date and currency format -;; that Gnucash does not support. +Fix Nationwide Statements + +Script for updating current account and credit card statements +downloaded from Nationwide, who use a date and currency format +that Gnucash does not support. + +Copyright (C) 2024 Ray Miller . + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or +(at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . +!# (use-modules (ice-9 getopt-long) ((srfi srfi-1) #:select (drop))