guile-pastebin

guile-pastebin/modules/pastebin/main.scm

main.scm

;;; SPDX-FileCopyrightText: 2021 Li Ian-Xue (b4283) <b4283@pm.me>
;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
;;;
;;; SPDX-License-Identifier: GPL-3.0-only

(define-module (pastebin main))

(use-modules (pastebin httpserver)
             (web server))

(export run-pastebin)

(define (run-pastebin args)
  (let ((data-dir (cadr args)))
    (if (not (file-exists? data-dir))
        (mkdir data-dir))
    (run-server (make-pastebin-handler data-dir) 'http '(#:addr 0))))


1	;;; SPDX-FileCopyrightText: 2021 Li Ian-Xue (b4283) <b4283@pm.me>
2	;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
3	;;;
4	;;; SPDX-License-Identifier: GPL-3.0-only
5
6	(define-module (pastebin main))
7
8	(use-modules (pastebin httpserver)
9	(web server))
10
11	(export run-pastebin)
12
13	(define (run-pastebin args)
14	(let ((data-dir (cadr args)))
15	(if (not (file-exists? data-dir))
16	(mkdir data-dir))
17	(run-server (make-pastebin-handler data-dir) 'http '(#:addr 0))))
18