Move scheme modules inside modules/.

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

1 files changed, 0 insertions, 75 deletions

diff --git a/website/builders/replicant-blog-search.scm b/website/builders/replicant-blog-search.scm
deleted file mode 100644
index 9a92e01..0000000
--- a/website/builders/replicant-blog-search.scm
+++ /dev/null
@@ -1,75 +0,0 @@
-;;; Copyright © 2015 David Thompson <davet@gnu.org>
-;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
-;;; Copyright © 2023-2024 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
-;;;
-;;; This file is based on haunt/builder/blog.scm,
-;;; haunt/reader/commonmark.scm and tests/post.scm and from Haunt
-;;; 2.6.0.
-;;;
-;;; This file 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.
-;;;
-;;; Haunt 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 Haunt.  If not, see <http://www.gnu.org/licenses/>.
-
-(define-module (website builders replicant-blog-search)
-  #:use-module (commonmark)
-  #:use-module (haunt artifact)
-  #:use-module (haunt builder assets)
-  #:use-module (haunt html)
-  #:use-module (haunt page)
-  #:use-module (haunt post)
-  #:use-module (haunt site)
-  #:use-module (haunt utils)
-  #:use-module (ice-9 match)
-  #:use-module (ice-9 rdelim)
-  #:use-module (srfi srfi-9)
-  #:use-module (srfi srfi-19)
-  #:use-module (website builders replicant-blog)
-  #:export (replicant-blog-search-page))
-
-(fluid-set! %default-port-encoding "UTF-8")
-
-(define (guix-package name)
-  `(a
-    (@ (href ,(string-append "https://packages.guix.gnu.org/packages/" name)))
-    ,name))
-
-(define replicant-blog-search-page-content
-  `((h1 (@ (id "title")) "Search")
-
-    (p "This blog has no built-in search functionality. Instead users are
-supposed to download the full blog source code and search inside
-it. This way they are fully in control of the search and in most cases
-it should not leak the search to a third party.")
-
-    (p "Here is an example that works under a terminal in GNU/Linux with git installed:")
-    (p (@ (class "command")) "git clone https://git.replicant.us/contrib/GNUtoo/infrastructure/haunt-blog")
-    (p "And then you can search in it. For instance if you want to search for
-FOSDEM in the blog articles, you can use the following commands:")
-    (p (@ (class "command")) "cd haunt-blog")
-    (p (@ (class "command")) "git grep -i fosdem -- posts")
-
-    (p (string-append
-	"It is also possible to download the source code with graphical "
-	"software such as "
-       ,(guix-package "gitg")
-       " and then search inside the files with file managers such as "
-       ,(guix-package "nautilus")
-       ". "
-       "If you want to search inside the files, be sure to select the "
-       "\"Full text\" search as by default these file managers usually only "
-       "search the file names only."))))
-
-(define (replicant-blog-search-page site posts)
-  (make-page
-   "search.html"
-   (replicant-layout site "Blog: Search" replicant-blog-search-page-content)
-   sxml->html))