blob: c2be195e8952420b39f132ba1548806d449dc79e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!@GUILE@ \
--no-auto-compile -e main -s
!#
;; bin/neocities --- neocities cli -*- coding: utf-8 -*-
;;
;; Copyright (C) 2023 Ekaitz Zarraga <ekaitz@elenq.tech>
;;
;; Author: Ekaitz Zarraga <ekaitz@elenq.tech>
;;
;; This file is part of guile-neocities.
;;
;; guile-neocities 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.
;;
;; guile-neocities 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 guile-neocities; if not, contact:
;;
;; Free Software Foundation Voice: +1-617-542-5942
;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652
;; Boston, MA 02111-1307, USA gnu@gnu.org
;;; Commentary:
;;
;;; Code:
(use-modules (neocities cli)
(ice-9 match))
(define (help)
(format #t "
~A
USAGE:
ENVIRONMENT VARIABLES:
Export them:
export NEOCITIES_USER=my_username
...
Or use them in the command line call
NEOCITIES_USER=my_username ... neocities
Authentication:
Your credentials
export NEOCITIES_USER=my_username
export NEOCITIES_PASS=my_password
Or your API key:
export NEOCITIES_KEY=my_key
Target:
export NEOCITIES_HOST # defaults to neocities.org
USAGE:
neocities --help/--version
neocities COMMAND
Commands:
neocities list DIRECTORY
neocities upload LOCAL -to REMOTE LOCAL -to REMOTE ??
neocities delete FILE [...]
neocities info
neocities key
~%" (car (command-line))))
(define (version)
(format #t "
~A
VERSION: @PACKAGE_VERSION@
Copyright (C) 2023 Ekaitz Zarraga <ekaitz@elenq.tech>
Author: Ekaitz Zarraga <ekaitz@elenq.tech>
guile-neocities 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.
guile-neocities 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.
~%" (car (command-line))))
(define (subcommand? arg)
(not (string-prefix? "-" arg)))
(define* (main #:optional (args (command-line)))
"Entry point for the commandline application. ARGS should be a normal
command-line list, e.g. '(\"neocities\" \"upload\" \"...\")."
(match args
((program (or "--version" "-v"))
(begin (version) (exit 0)))
((or (program) (program (or "--help" "-h")))
(begin (help) (exit 1)))
((program (? subcommand? subcommand) . args*)
(neocities-run (string->symbol subcommand) args*))
((program invalid-subcommand . args*)
(begin
(format (current-error-port) "Invalid subcommand: ~a~&" invalid-subcommand )
(help) (exit 1)))))
|