diff options
| author | Louie S <louie@example.com> | 2022-07-10 22:37:43 -0700 |
|---|---|---|
| committer | Louie S <louie@example.com> | 2022-07-10 22:37:43 -0700 |
| commit | 8de3a27a39521a36f96ffceb5a440d7f8ffefa03 (patch) | |
| tree | 55a0c752df8db7571b4b127a55d3d0b94a0819e0 | |
| parent | f4c51e836c9bfaec97b954bee72ab96c8e127d2e (diff) | |
Misc. cleanup
| -rwxr-xr-x | docset_xml_gen.scm | 30 |
1 files changed, 15 insertions, 15 deletions
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))) |