anchor.diff:  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   ;;; Supporting functions
   ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  -
  -(define (usage script)
  -  (letn ((base-template "%s %-10s %s")
  -         (opt-template (append "\t -" base-template)))
  -    (println)
  -    (println version-string)
  -    (println)
  -    (println
  -      (format "Usage: %s [options|value]" script))
  -    (println)
  -    (println "Options:")
  -    (dolist
  -      (o getopts:short)
  -      (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
  -    (dolist
  -      (o getopts:long)
  -      (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
  -    (println)
  -    (print "The 'value' parameter will be used to set the brightness level. ")
  -    (println "Any value between 1 and 100 is valid.")
  -    (exit)))
   
   (define (light-value? value)
     (and (integer? value)
  
positive.code: #!/usr/bin/env newlisp
  
  (setq prog-name "backlight")
  (setq desc "an xbacklight wrapper")
  
negative.code:   (usage script))
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;; Set up and parse options
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  (define (usage script)
    (letn ((base-template "%s %-10s %s")
           (opt-template (append "\t -" base-template)))
      (println)
      (println version-string)
      (println)
      (println
        (format "Usage: %s [options|value]" script))
      (println)
      (println "Options:")
      (dolist
        (o getopts:short)
        (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
      (dolist
        (o getopts:long)
        (println (format opt-template (o 0) (or (o 1 1) "") (o 1 2))))
      (println)
      (println "Value:")
      (println "\tThe 'value' parameter will be used to set the brightness level.")
      (println "\tAny value between 1 and 100 is valid.")
      (exit)))
  
  (shortopt "v" (getopts:die version-string) nil "Print version string")
  (shortopt "h" (usage (argparse:get-script)) nil "Print this help message")
  (longopt "help" (usage (argparse:get-script)) nil "Print this help message")
  
  (new Tree 'parsed)
  (parsed (argparse))
  
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  ;;; Entry point
  ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  
  