From 8de3a27a39521a36f96ffceb5a440d7f8ffefa03 Mon Sep 17 00:00:00 2001 From: Louie S Date: Sun, 10 Jul 2022 22:37:43 -0700 Subject: Misc. cleanup --- docset_xml_gen.scm | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'docset_xml_gen.scm') diff --git a/docset_xml_gen.scm b/docset_xml_gen.scm index 3de3a53..a292862 100755 --- a/docset_xml_gen.scm +++ b/docset_xml_gen.scm @@ -16,21 +16,21 @@ ; Define help message (define (print-help) (display (string-append "Usage: " title " [OPTION]... DOCSET\n")) - (display "Generate XML file for importing docsets into Dash or Zeal\n") + (display "Generate XML file for importing docsets into Dash or Zeal\n") (display (string-append "Example: " title " -o Ncurses.xml Ncurses.docset\n")) - (display "\n") - (display "Options:\n") - (display " -h, --help Print this help message and exit\n") - (display " -n, --name NAME Set the value of the \"name\" tag.\n") - (display " Automatically determined if not set manually\n") - (display " -o, --out FILE Output to FILE instead of stdout\n") - (display " --other-versions VERSION Add additional versions under the \"other-versions\" tag.\n") - (display " Multiple values may be set using comma-separation\n") - (display " -u, --url URL Set the value of the \"url\" tag.\n") - (display " Multiple values may be set using comma-separation.\n") - (display " Set to the local path if not set manually\n") - (display " -v, --version VERSION Set the value of the \"version\" tag.\n") - (display " Automatically determined if not set manually\n")) + (display "\n") + (display "Options:\n") + (display " -h, --help Print this help message and exit\n") + (display " -n, --name NAME Set the value of the \"name\" tag.\n") + (display " Automatically determined if not set manually\n") + (display " -o, --out FILE Output to FILE instead of stdout\n") + (display " --other-versions VERSION Add additional versions under the \"other-versions\" tag.\n") + (display " Multiple values may be set using comma-separation\n") + (display " -u, --url URL Set the value of the \"url\" tag.\n") + (display " Multiple values may be set using comma-separation.\n") + (display " Set to the local path if not set manually\n") + (display " -v, --version VERSION Set the value of the \"version\" tag.\n") + (display " Automatically determined if not set manually\n")) ; Check for option (define (check-options arg option-list) @@ -91,7 +91,7 @@ ; Attempt to locate plist-path (set! plist-path (string-append docset-path "/Contents/Info.plist")) -(if (or (not (access? plist-path F_OK)) (not (equal? (stat:type (stat plist-path)) (string->symbol "regular")))) +(if (or (not (access? plist-path R_OK)) (not (equal? (stat:type (stat plist-path)) (string->symbol "regular")))) (begin (display (string-append "Error: " docset-path " is not a valid docset (could not find " plist-path ")\n")) (exit))) -- cgit