From 99368091dfa733e0e7823072e79c7d4f03c2b700 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Thu, 28 Sep 2023 20:23:41 +0200 Subject: Use hall for project management --- scripts/neocities.in | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 scripts/neocities.in (limited to 'scripts/neocities.in') diff --git a/scripts/neocities.in b/scripts/neocities.in new file mode 100644 index 0000000..f431e13 --- /dev/null +++ b/scripts/neocities.in @@ -0,0 +1,62 @@ +#!@GUILE@ \ +--no-auto-compile -e main -s +!# + +;; bin/neocities --- neocities cli -*- coding: utf-8 -*- +;; +;; Copyright (C) 2023 Ekaitz Zarraga +;; +;; Author: Ekaitz Zarraga +;; +;; 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) +) -- cgit v1.2.3