#!@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) )