blob: f431e137e7bc0a9a09db0aad4907c3869ab872b1 (
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
|
#!@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 api))
; Commands
;
; AUTH
; export NEOCITIES_USER
; export NEOCITIES_PASS
; or
; export NEOCITIES_KEY
; or
; --prompt
;
; TARGET
; --host HOSTNAME
;
; COMMANDS
; list -d DIRECTORY
; upload LOCAL -to REMOTE LOCAL -to REMOTE ??
; delete file ...
; info
; key
(define* (main #:optional (args (command-line)))
"Entry point for the commandline application. ARGS should be a normal
command-line list, e.g. '(\"neocities\" \"upload\" \"...\")."
(display "It runs")
(newline)
)
|
