#:rgb-color))

           #:rgb-color
           #:prepare-dump
           #:main))

(defun dump (&optional out-path)

(defun prepare-dump ()

        *print-case* :downcase)

        *print-case* :downcase))
#+(or fw.dump fw.main)
(defun dump (&optional out-path)
  (prepare-dump)

(defclass asdf-user::fw-tool-system (asdf:system)
  ())
(defmethod asdf:perform :before ((o program-op) (c fw-tool-system))
  (flet ((package-name-for-system ()
           (let* ((primary-name (asdf:primary-system-name c)))
             (format nil "fwoar.~a"
                     (subseq (asdf:component-name c)
                             (1+ (length primary-name)))))))
    (uiop:symbol-call (string-upcase (package-name-for-system))
                      :prepare-dump)))
(defmethod asdf:output-files ((o program-op) (c fw-tool-system))
  (let* ((exe-name (asdf/system:component-build-pathname c))
         (result (merge-pathnames exe-name
                                  (user-homedir-pathname))))
    (format *error-output* "NOTICE ME: output to ~s" result)
    (values (list result)
            t)))

  ;; :defsystem-depends-on (:tool-system)
  :class fw-tool-system
  :build-pathname "zenburn"
  :entry-point "fwoar.zenburn:main"

  :class fw-tool-system
  :build-pathname "cls"
  :entry-point "fwoar.cls:main"

(defsystem :tools/git-pick-patch
  :description "list files as json"
  :author "Ed L <el-l@elangley.org>"
  :license "MIT"
  :build-pathname "git-pick-patch"
  :entry-point "git-pick-patch:main"
  :depends-on (#:alexandria
               #:serapeum
               #:cl-ppcre)
  :output-files (program-op (o c)
                            (let* ((exe-name (asdf/system:component-build-pathname c))
                                   (result (merge-pathnames exe-name
                                                            (user-homedir-pathname))))
                              (format *error-output* "NOTICE ME: output to ~s" result)
                              (values (list result)
                                      t)))
  :serial t
  :components ((:file "git-pick-patch")))

  (:export ))

  (:export :main))

           for filtered = (when patch (filter-file-hunks patch
                                                         (op (cl-ppcre:scan pattern _))))
           until (equal patch '("" nil))
           when filtered do
             (format t "~&~a~&" (rebuild-file-patch filtered))))))

              for filtered = (when patch (filter-file-hunks patch
                                                            (op (cl-ppcre:scan pattern _))))
              until (equal patch '("" nil))
              when filtered do
                (format t "~&~a~&" (rebuild-file-patch filtered))))))

  (:export dump))

  (:export #:dump
           #:prepare-dump
           #:main))

(defun dump ()

(defun prepare-dump ()

        *features* (remove :fw.dump *features*))

        *features* (remove :fw.dump *features*)))
(defun dump ()
  (prepare-dump)

        ];
    };
    mkGitPickPatch = mkTool {
      name = "git-pick-patch";
      lispDeps = ps:
        with ps; [
          alexandria
          serapeum
          cl-ppcre

      git-pick-patch = mkGitPickPatch system;

       --load "$name".lisp \
       --eval "(fwoar.$name:dump)"

       --eval "(asdf:operate :program-op :tools/$name)"

  mv "$name" "$out"/bin

  mv "$HOME/$name" "$out"/bin