Commit | Line | Data |
---|---|---|
c21a2562 | 1 | ;;; GNU Guix --- Functional package management for GNU |
21f05134 | 2 | ;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org> |
7610c3ca | 3 | ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> |
c21a2562 KY |
4 | ;;; |
5 | ;;; This file is part of GNU Guix. | |
6 | ;;; | |
7 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
8 | ;;; under the terms of the GNU General Public License as published by | |
9 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
10 | ;;; your option) any later version. | |
11 | ;;; | |
12 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
13 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;;; GNU General Public License for more details. | |
16 | ;;; | |
17 | ;;; You should have received a copy of the GNU General Public License | |
18 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
19 | ||
0c3953ea | 20 | (define-module (gnu packages web-browsers) |
c21a2562 KY |
21 | #:use-module ((guix licenses) #:prefix license:) |
22 | #:use-module (guix packages) | |
23 | #:use-module (gnu packages) | |
24 | #:use-module (gnu packages compression) | |
7610c3ca | 25 | #:use-module (gnu packages documentation) |
c21a2562 KY |
26 | #:use-module (gnu packages fltk) |
27 | #:use-module (gnu packages fontutils) | |
28 | #:use-module (gnu packages perl) | |
29 | #:use-module (gnu packages pkg-config) | |
7610c3ca KK |
30 | #:use-module (gnu packages python) |
31 | #:use-module (gnu packages qt) | |
c21a2562 KY |
32 | #:use-module (gnu packages image) |
33 | #:use-module (gnu packages tls) | |
34 | #:use-module (gnu packages xorg) | |
35 | #:use-module (guix download) | |
7610c3ca KK |
36 | #:use-module (guix build-system gnu) |
37 | #:use-module (guix build-system python)) | |
c21a2562 KY |
38 | |
39 | (define-public dillo | |
40 | (package | |
41 | (name "dillo") | |
42 | (version "3.0.5") | |
43 | (source (origin | |
44 | (method url-fetch) | |
45 | (uri (string-append "http://www.dillo.org/download/" | |
46 | name "-" version ".tar.bz2")) | |
47 | (sha256 | |
48 | (base32 | |
49 | "12ql8n1lypv3k5zqgwjxlw1md90ixz3ag6j1gghfnhjq3inf26yv")))) | |
50 | (build-system gnu-build-system) | |
51 | (arguments `(#:configure-flags '("--enable-ssl" "--enable-ipv6"))) | |
52 | (native-inputs `(("pkg-config" ,pkg-config))) | |
53 | (inputs `(("fltk" ,fltk) | |
54 | ("fontconfig" ,fontconfig) | |
55 | ("libjpeg" ,libjpeg) | |
56 | ("libpng" ,libpng) | |
57 | ("libxcursor" ,libxcursor) | |
58 | ("libxft" ,libxft) | |
59 | ("libxi" ,libxi) | |
60 | ("libxinerama" ,libxinerama) | |
61 | ("openssl" ,openssl) | |
62 | ("perl" ,perl) | |
63 | ("zlib" ,zlib))) | |
64 | (synopsis "Very small and fast graphical web browser") | |
65 | (description "Dillo is a minimalistic web browser particularly intended for | |
66 | older or slower computers and embedded systems.") | |
67 | (home-page "http://www.dillo.org") | |
68 | (license license:gpl3+))) | |
7610c3ca KK |
69 | |
70 | (define-public qutebrowser | |
71 | (package | |
72 | (name "qutebrowser") | |
73 | (version "0.10.1") | |
74 | (source | |
75 | (origin | |
76 | (method url-fetch) | |
77 | (uri (string-append "https://github.com/The-Compiler/" | |
78 | "qutebrowser/releases/download/v" version "/" | |
79 | "qutebrowser-" version ".tar.gz")) | |
80 | (sha256 | |
81 | (base32 | |
82 | "05qryn56w2pbqhir4pl99idx7apx2xqw9f8wmbrhj59b1xgr3x2p")))) | |
83 | (build-system python-build-system) | |
84 | (native-inputs | |
85 | `(("asciidoc" ,asciidoc))) | |
86 | (inputs | |
87 | `(("python-colorama" ,python-colorama) | |
88 | ("python-cssutils" ,python-cssutils) | |
89 | ("python-jinja2" ,python-jinja2) | |
90 | ("python-markupsafe" ,python-markupsafe) | |
91 | ("python-pygments" ,python-pygments) | |
92 | ("python-pypeg2" ,python-pypeg2) | |
93 | ("python-pyyaml" ,python-pyyaml) | |
94 | ("python-pyqt" ,python-pyqt) | |
95 | ("qtwebkit" ,qtwebkit))) | |
96 | (arguments | |
97 | `(#:tests? #f ;no tests | |
98 | #:phases | |
99 | (modify-phases %standard-phases | |
100 | (add-after 'install 'install-more | |
101 | (lambda* (#:key outputs #:allow-other-keys) | |
102 | (let* ((out (assoc-ref outputs "out")) | |
103 | (app (string-append out "/share/applications")) | |
104 | (hicolor (string-append out "/share/icons/hicolor"))) | |
105 | (system* "a2x" "-f" "manpage" "doc/qutebrowser.1.asciidoc") | |
106 | (install-file "doc/qutebrowser.1" | |
107 | (string-append out "/share/man/man1")) | |
108 | ||
109 | (for-each | |
110 | (lambda (i) | |
111 | (let ((src (format #f "icons/qutebrowser-~dx~d.png" i i)) | |
112 | (dest (format #f "~a/~dx~d/apps/qutebrowser.png" | |
113 | hicolor i i))) | |
114 | (mkdir-p (dirname dest)) | |
115 | (copy-file src dest))) | |
116 | '(16 24 32 48 64 128 256 512)) | |
117 | (install-file "icons/qutebrowser.svg" | |
118 | (string-append hicolor "/scalable/apps")) | |
119 | ||
120 | (substitute* "qutebrowser.desktop" | |
121 | (("Exec=qutebrowser") | |
122 | (string-append "Exec=" out "/bin/qutebrowser"))) | |
123 | (install-file "qutebrowser.desktop" app) | |
124 | #t)))))) | |
125 | (home-page "https://qutebrowser.org/") | |
126 | (synopsis "Minimal, keyboard-focused, vim-like web browser") | |
127 | (description "qutebrowser is a keyboard-focused browser with a minimal | |
128 | GUI. It is based on PyQt5 and QtWebKit.") | |
129 | (license license:gpl3+))) |