- `(#:tests? #t
- #:asd-file "next.asd"
- #:asd-system-name "next/password-manager"))
- (inputs
- `(("bordeaux-threads" ,sbcl-bordeaux-threads)
- ("cl-annot" ,sbcl-cl-annot)
- ("cl-ppcre" ,sbcl-cl-ppcre)
- ("str" ,sbcl-cl-str)
- ("trivial-clipboard" ,sbcl-trivial-clipboard)))
- (native-inputs
- `(("trivial-features" ,sbcl-trivial-features)
- ("prove-asdf" ,sbcl-prove-asdf)))
- (synopsis "Infinitely extensible web-browser (password manager)")))
-
-(define-public next
- (let ((version (package-version next-gtk-webkit)))
- (package
- (inherit next-gtk-webkit)
- (name "next")
- (build-system asdf-build-system/sbcl)
- (outputs '("out" "lib"))
- (arguments
- `(#:tests? #f ; no tests
- #:asd-system-name "next"
- #:phases (modify-phases %standard-phases
- (add-after 'unpack 'patch-platform-port-path
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "source/ports/gtk-webkit.lisp"
- (("\"next-gtk-webkit\"")
- (string-append "\"" (assoc-ref inputs "next-gtk-webkit")
- "/bin/next-gtk-webkit\"")))
- #t))
- (add-after 'patch-platform-port-path 'patch-version
- ;; When the version is not just dot-separated numerals
- ;; (e.g. a git-commit version), Guix modifies the .asd with
- ;; an illegal version number, and then Next fails to query
- ;; it. So we hard-code it here.
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((version (format #f "~a" ,version)))
- (substitute* "source/global.lisp"
- (("version\\)\\)\\)")
- (string-append "version)))
-(setf +version+ \"" version "\")"))))
- #t))
- (add-before 'cleanup 'move-bundle
- (lambda* (#:key outputs #:allow-other-keys)
- (define lib (assoc-ref outputs "lib"))
- (define actual-fasl (string-append
- lib
- "/lib/sbcl/next.fasl"))
- (define expected-fasl (string-append
- lib
- "/lib/sbcl/next--system.fasl"))
- (copy-file actual-fasl expected-fasl)
- #t))
- (add-after 'create-symlinks 'build-program
- (lambda* (#:key outputs #:allow-other-keys)
- (build-program
- (string-append (assoc-ref outputs "out") "/bin/next")
- outputs
- #:entry-program '((next:entry-point) 0))))
- (add-before 'build 'install-assets
- ;; Since the ASDF build system generates a new .asd with a
- ;; possibly suffixed and thus illegal version number, assets
- ;; should not be installed after the 'build phase or else
- ;; the illegal version will result in NIL in the .desktop
- ;; file.
- (lambda* (#:key outputs #:allow-other-keys)
- (with-output-to-file "version"
- (lambda _
- (format #t "~a" ,(package-version next-gtk-webkit))))
- (invoke "make" "install-assets"
- (string-append "PREFIX="
- (assoc-ref outputs "out"))))))))
- (inputs
- `(("alexandria" ,sbcl-alexandria)
- ("bordeaux-threads" ,sbcl-bordeaux-threads)
- ("cl-annot" ,sbcl-cl-annot)
- ("cl-ansi-text" ,sbcl-cl-ansi-text)
- ("cl-css" ,sbcl-cl-css)
- ("cl-hooks" ,sbcl-cl-hooks)
- ("cl-json" ,sbcl-cl-json)
- ("cl-markup" ,sbcl-cl-markup)
- ("cl-ppcre" ,sbcl-cl-ppcre)
- ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
- ("cl-prevalence" ,sbcl-cl-prevalence)
- ("closer-mop" ,sbcl-closer-mop)
- ("dbus" ,cl-dbus)
- ("dexador" ,sbcl-dexador)
- ("ironclad" ,sbcl-ironclad)
- ("local-time" ,sbcl-local-time)
- ("log4cl" ,sbcl-log4cl)
- ("lparallel" ,sbcl-lparallel)
- ("mk-string-metrics" ,sbcl-mk-string-metrics)
- ("parenscript" ,sbcl-parenscript)
- ("quri" ,sbcl-quri)
- ("sqlite" ,sbcl-cl-sqlite)
- ("str" ,sbcl-cl-str)
- ("swank" ,cl-slime-swank)
- ("trivia" ,sbcl-trivia)
- ("trivial-clipboard" ,sbcl-trivial-clipboard)
- ("unix-opts" ,sbcl-unix-opts)
- ;; Local deps
- ("next-gtk-webkit" ,next-gtk-webkit)
- ("next-download-manager" ,sbcl-next-download-manager)
- ("next-ring" ,sbcl-next-ring)
- ("next-history-tree" ,sbcl-next-history-tree)
- ("next-password-manager" ,sbcl-next-password-manager)))
- (native-inputs
- `(("trivial-features" ,sbcl-trivial-features)
- ("prove-asdf" ,sbcl-prove-asdf)))
- (synopsis "Infinitely extensible web-browser (with Lisp development files)"))))
-
-(define-public sbcl-next
- (deprecated-package "sbcl-next" next))
+ `(#:import-path "tildegit.org/sloum/bombadillo"
+ #:install-source? #f
+ #:phases (modify-phases %standard-phases
+ (add-after 'install 'install-data
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((builddir "src/tildegit.org/sloum/bombadillo")
+ (out (assoc-ref outputs "out"))
+ (pkg (strip-store-file-name out))
+ (sharedir (string-append out "/share"))
+ (appdir (string-append sharedir "/applications"))
+ (docdir (string-append sharedir "/doc/" pkg))
+ (mandir (string-append sharedir "/man/man1"))
+ (pixdir (string-append sharedir "/pixmaps")))
+ (with-directory-excursion builddir
+ (install-file "bombadillo.desktop" appdir)
+ (install-file "LICENSE" docdir)
+ (install-file "bombadillo.1" mandir)
+ (install-file "bombadillo-icon.png" pixdir)
+ #t)))))))
+ (home-page "https://bombadillo.colorfield.space")
+ (synopsis "Terminal browser for the gopher, gemini, and finger protocols")
+ (description "Bombadillo is a non-web browser for the terminal with
+vim-like key bindings, a document pager, configurable settings, and robust
+command selection. The following protocols are supported as first-class
+citizens: gopher, gemini, finger, and local. There is also support for telnet,
+http, and https via third-party applications.")
+ (license license:gpl3+)))