96 lines
4.3 KiB
Scheme
96 lines
4.3 KiB
Scheme
|
;;; GNU Guix --- Functional package management for GNU
|
||
|
|
;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
|
||
|
|
;;;
|
||
|
|
;;; This file is part of GNU Guix.
|
||
|
|
;;;
|
||
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
|
|
;;; under the terms of the GNU General Public License as published by
|
||
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
|
|
;;; your option) any later version.
|
||
|
|
;;;
|
||
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
;;; GNU General Public License for more details.
|
||
|
|
;;;
|
||
|
|
;;; You should have received a copy of the GNU General Public License
|
||
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
(define-module (gnu packages conkeror)
|
||
|
|
#:use-module ((guix licenses) #:prefix license:)
|
||
|
|
#:use-module (guix packages)
|
||
|
|
#:use-module (guix download)
|
||
|
|
#:use-module (guix build-system trivial)
|
||
|
|
#:use-module (gnu packages)
|
||
|
|
#:use-module (gnu packages gnuzilla)
|
||
|
|
#:use-module (gnu packages base)
|
||
|
|
#:use-module (gnu packages bash)
|
||
|
|
#:use-module (gnu packages compression)
|
||
|
|
#:use-module (ice-9 format))
|
||
|
|
|
||
|
|
(define-public conkeror
|
||
|
|
(package
|
||
|
|
(name "conkeror")
|
||
|
|
(version "1.0pre1")
|
||
|
|
(source (origin
|
||
|
|
(method url-fetch)
|
||
|
|
(uri
|
||
|
|
(string-append "http://repo.or.cz/w/conkeror.git/snapshot/"
|
||
|
|
"8a26fff5896a3360549e2adfbf06b1d57e909266"
|
||
|
|
".tar.gz")) ; tag: debian-1.0--pre-1+git140616-1
|
||
|
|
(sha256
|
||
|
|
(base32
|
||
|
|
"1cgjzi7g3g22zcx6bpfnid4i12sb45w6icmxdzjn8d3c0m8qsyp1"))))
|
||
|
|
(build-system trivial-build-system)
|
||
|
|
(inputs `(("icecat" ,icecat)
|
||
|
|
("bash" ,bash)))
|
||
|
|
(native-inputs `(("tar" ,tar)
|
||
|
|
("gzip" ,gzip)))
|
||
|
|
(arguments
|
||
|
|
`(#:modules ((guix build utils))
|
||
|
|
#:builder (begin
|
||
|
|
(use-modules (ice-9 ftw)
|
||
|
|
(guix build utils))
|
||
|
|
(let ((select?
|
||
|
|
(lambda (name)
|
||
|
|
(not (equal? (car (string->list name)) #\.))))
|
||
|
|
(datadir (string-append %output "/share/conkeror"))
|
||
|
|
(launcher "bin/conkeror"))
|
||
|
|
(setenv "PATH" (string-append
|
||
|
|
(assoc-ref %build-inputs "tar") "/bin:"
|
||
|
|
(assoc-ref %build-inputs "gzip") "/bin"))
|
||
|
|
(system* "tar" "xvf" (assoc-ref %build-inputs "source"))
|
||
|
|
(copy-recursively (string-append
|
||
|
|
(getcwd) "/"
|
||
|
|
(car (scandir (getcwd) select?)))
|
||
|
|
datadir)
|
||
|
|
(chdir %output)
|
||
|
|
(mkdir "bin")
|
||
|
|
(call-with-output-file launcher
|
||
|
|
(lambda (p)
|
||
|
|
(format p "#!~a/bin/bash
|
||
|
|
exec ~a/bin/icecat --app ~a \"$@\"~%"
|
||
|
|
(assoc-ref %build-inputs "bash")
|
||
|
|
(assoc-ref %build-inputs "icecat")
|
||
|
|
(string-append datadir
|
||
|
|
"/application.ini"))))
|
||
|
|
(chmod launcher #o555)))))
|
||
|
|
(synopsis "Keyboard focused web browser with Emacs look and feel")
|
||
|
|
(description "Conkeror is a highly-programmable web browser based on
|
||
|
|
Mozilla XULRunner which is the base of all Mozilla products including
|
||
|
|
Firefox. Conkeror has a sophisticated keyboard system for running commands and
|
||
|
|
interacting with web page content, modelled after Emacs and Lynx. It is
|
||
|
|
self-documenting and extensible with JavaScript.
|
||
|
|
|
||
|
|
It comes with builtin support for several Web 2.0 sites like several Google
|
||
|
|
services (Search, Gmail, Maps, Reader, etc.), Del.icio.us, Reddit, Last.fm and
|
||
|
|
YouTube. For easier editing of form fields, it can spawn external editors. For
|
||
|
|
this feature the recommended conkeror-spawn-process-helper package needs to be
|
||
|
|
installed.")
|
||
|
|
(home-page "http://conkeror.org")
|
||
|
|
;; Conkeror is triple licensed.
|
||
|
|
(license (list license:gpl2
|
||
|
|
license:lgpl2.1
|
||
|
|
;; MPL 1.1 -- this license is not GPL compatible
|
||
|
|
))))
|