ray/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

GPL headers.

Browse source
This commit is contained in:
Ray Miller 2025-01-29 11:44:21 +00:00
parent d94fe71f96
commit 3560243e78
3 changed files with 68 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guile/broken-link-checker.scm
View file

@ -1,5 +1,21 @@
#!/usr/bin/guile \ #!/usr/bin/guile \
--no-auto-compile -e main -s --no-auto-compile -e main -s
Broken Link Checker
Copyright (C) 2025 Ray Miller <ray@1729.org.uk>.
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 <http://www.gnu.org/licenses/>.
!# !#
(use-modules (use-modules
(ice-9 format) (ice-9 format)
@ -118,7 +134,7 @@
;; This is a work-around for when running Hugo in development; the ;; 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 ;; 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 ;; 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 ;; both of these to http://127.0.0.1:1313/ to test the development
;; version of the site. ;; version of the site.
;; ;;

36
guile/de-blogger.scm
View file

@ -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 <ray@1729.org.uk>.
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 <http://www.gnu.org/licenses/>.
!# !#
(use-modules (srfi srfi-26) (use-modules (srfi srfi-26)
@ -62,13 +82,13 @@
filename))))) filename)))))
(define (replace-images doc) (define (replace-images doc)
(for-each (lambda (m) (for-each (lambda (m)
(let* ((url (match:substring m 1)) (let* ((url (match:substring m 1))
(filename (download-image url)) (filename (download-image url))
(new-url (string-append "/img/" filename))) (new-url (string-append "/img/" filename)))
(set! doc (string-replace-substring doc url new-url)))) (set! doc (string-replace-substring doc url new-url))))
(list-matches md-img-rx doc)) (list-matches md-img-rx doc))
doc) doc)
(define (replace-image-links doc) (define (replace-image-links doc)
(for-each (lambda (m) (for-each (lambda (m)

28
guile/fix-nationwide-statement.scm
View file

@ -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 Fix Nationwide Statements
;; downloaded from Nationwide, who use a date and currency format
;; that Gnucash does not support. 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 <ray@1729.org.uk>.
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 <http://www.gnu.org/licenses/>.
!#
(use-modules (ice-9 getopt-long) (use-modules (ice-9 getopt-long)
((srfi srfi-1) #:select (drop)) ((srfi srfi-1) #:select (drop))