Just a bunch of random things. No opinion about module names, etc :) On Thu 05 Sep 2013 12:42, Thien-Thi Nguyen <[email protected]> writes:
> (define mentioned? > (let ((cl (command-line))) > (lambda (opt) > (member opt cl)))) You could do this as (cute member <> (command-line)), having imported srfi-26. > (cond ((mentioned? "--help") > (use-modules (ice-9 documentation)) > (fso "~A~%" (file-commentary (car (command-line)))) > (exit #t))) Here I think "when" is much more readable. Also, you can use "(current-file-name)" for a more reliable way to get the current file name. > (cond ((mentioned? "--version") > (fso "xdgdirs ~A~%~A~%" VERSION COPYRIGHT) > (fso "~A ~A~%~A~%~A~%" > "License GPLv3+: GNU GPL version 3 or later" > "<http://gnu.org/licenses/gpl.html>" > "This is free software: you are free to change and redistribute > it." > "There is NO WARRANTY, to the extent permitted by law.") > (exit #t))) You can use (ice-9 command-line)'s version-etc. Regards, Andy -- http://wingolog.org/
