-*- mode: lisp-data -*-

scheme-mode

(package...
 "(define-public " (s name) n>
 "(package" n>
 "(name \"" (s name) "\")" n>
 "(version \"" p "\")" n>
 "(source origin..." p ")" n>
 "(build-system \""
 (p (completing-read "build-system:"
                     '("android-ndk-build-system"
                       "ant-build-system"
                       "asdf-build-system"
                       "cargo-build-system"
                       "chicken-build-system"
                       "clojure-build-system"
                       "cmake-build-system"
                       "copy-build-system"
                       "dub-build-system"
                       "dune-build-system"
                       "emacs-build-system"
                       "font-build-system"
                       "glib-or-gtk-build-system"
                       "gnu-build-system"
                       "go-build-system"
                       "guile-build-system"
                       "haskell-build-system"
                       "julia-build-system"
                       "linux-module-build-system"
                       "maven-build-system"
                       "meson-build-system"
                       "minetest-build-system"
                       "minify-build-system"
                       "node-build-system"
                       "ocaml-build-system"
                       "perl-build-system"
                       "python-build-system"
                       "qt-build-system"
                       "r-build-system"
                       "rakudo-build-system"
                       "rebar-build-system"
                       "renpy-build-system"
                       "ruby-build-system"
                       "scons-build-system"
                       "texlive-build-system"
                       "trivial-build-system"
                       "waf-build-system")
                     nil t)) "\")" n>
 "(home-page \"" p "\")" n>
 "(synopsis \"" p "\")" n>
 "(description \"" p "\")" n>
 "(license " p ")))" n)

(origin...
 "(origin" n>
 "(method \""
 (p (completing-read "method:"
                     '("url-fetch"
                       "url-fetch/tarbomb"
                       "url-fetch/zipbomb"
                       "cvs-fetch"
                       "git-fetch"
                       "hg-fetch"
                       "svn-fetch"
                       "bzr-fetch")
                     nil t) method) "\")" n>
 "(uri " (cl-case (intern method)
           ('git-fetch "git-reference...")
           ('svn-fetch "svn-reference...")
           ('hg-fetch  "hg-reference...")
           ('cvs-fetch "cvs-reference...")
           ('bzr-fetch "bzr-reference...")
           (t          "(string-append \"https://"))
 p
 (if (equal (substring method 0 9)  "url-fetch") "\")")
 ")" n>
 (cl-case (intern method)
   ('git-fetch "(file-name (git-file-name name version))\n")
   ('hg-fetch "(file-name (hg-file-name name version))\n")
   ('svn-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
   ('cvs-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
   ('bzr-fetch "(file-name (string-append name \"-\" version \"-checkout\"))\n")
   (t          "")) >
 "(sha256" n> "(base32 \"" p "\")))")

(git-reference...
 "(git-reference" n>
 "(url \"" p "\")" n>
 "(commit \"" p "\"))")

(svn-reference...
 "(svn-reference" n>
 "(url \"" p "\")" n>
 "(revision \"" p "\"))")

(cvs-reference...
 "(cvs-reference" n>
 "(root-directory \"" p "\")" n>
 "(module \"" p "\")" n>
 "(revision \"" p "\"))")

(hg-reference...
 "(hg-reference" n>
 "(url \"" p "\")" n>
 "(changeset \"" p "\"))")

(bzr-reference...
 "(bzr-reference" n>
 "(url \"" p "\")" n>
 "(revision \"" p "\"))")