#!/bin/sh
: ; exec klone $0 "$@"
; The above line allows not to embed the exact path of the klone executable

;;Skeleton of a typical klone script

(setq args (getopts "USAGE: %0 [options] 
filters the input to remove ^H chars in man pages
usage: nroff -Tascii -man manfile | strip-mans 
With a file arg, calls nroff on it (supposed to be man source)
"
))

(defun main (&aux s out
  )
  (if args (progn
      (system (list "nroff" "-Tascii" "-man" (0 args)) :output 'out)
      (setq s (String out))
    )
    (progn
      (setq s (String *standard-input*))
  ))
  (replace-string s ".\x08" "" :all t :quote t)
  (write-string s)
)

(main)

;;; EMACS MODES
;;; Local Variables: ***
;;; mode:lisp ***
;;; End: ***

