summaryrefslogtreecommitdiff
path: root/px/packages/wiki.scm
blob: 8c7d0f40948ff083c72e0dbc39b97c033449d9b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
;;; throttled PantherX
;;; Hamzeh Nasajpour (h.nasajpour@pantherx.org)
;;;

(define-module (px packages wiki)
  #:use-module ((guix licenses)
                #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix utils)
  #:use-module (guix build-system cmake)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages qt)
  #:use-module (px packages library))

(define-public px-desktop-wiki
  (package
    (name "px-desktop-wiki")
    (version "0.1.5")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://source.pantherx.org/" name "_" version
                           ".tgz"))
       (sha256
        (base32 "1xzr6b8f2478s81kngp8hd7qvvhx6nv6xja396sfhp78y04q5yw1"))))
    (build-system cmake-build-system)
    (arguments
     `(#:tests? #f
       #:phases (modify-phases %standard-phases
                  (add-after 'install 'wrap
                    ;; The program fails to find the QtWebEngineProcess program,
                    ;; so we set QTWEBENGINEPROCESS_PATH to help it.
                    (lambda* (#:key inputs outputs #:allow-other-keys)
                      (let ((bin (string-append (assoc-ref outputs "out")
                                                "/bin"))
                            (qtwebengineprocess (string-append (assoc-ref
                                                                inputs
                                                                "qtwebengine")
                                                 "/lib/qt5/libexec/QtWebEngineProcess")))
                        (for-each (lambda (program)
                                    (wrap-program program
                                      `("QTWEBENGINEPROCESS_PATH" =
                                        (,qtwebengineprocess))))
                                  (find-files bin ".*"))) #t)))))
    (propagated-inputs `(("px-wiki" ,px-wiki)))
    (native-inputs `(("pkg-config" ,pkg-config)
                     ("qt" ,qtbase-5)
                     ("qtdeclarative" ,qtdeclarative-5)
                     ("qtwebengine" ,qtwebengine-5)
                     ("qtwebchannel-5" ,qtwebchannel-5)
                     ("px-gui-library" ,px-gui-library)))
    (home-page "https://wiki.pantherx.org/")
    (synopsis "PantherX Wiki Desktop Application")
    (description "PantherX Wiki Desktop Application")
    (license license:expat)))

(define-public px-wiki
  (package
    (name "px-wiki")
    (version "0.0.15")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://source.pantherx.org/wiki.pantherx.org_v"
                           version ".tgz"))
       (sha256
        (base32 "05j1fk64yph8z2irw7vfr225xvgp8zhax3vm9awpfi3hy2hsd07x"))))
    (build-system trivial-build-system)
    (arguments
     `(#:modules ((guix build utils))
       #:builder (begin
                   (use-modules (guix build utils)
                                (srfi srfi-26))
                   (let* ((source (assoc-ref %build-inputs "source"))
                          (tar (assoc-ref %build-inputs "tar"))
                          (gzip (assoc-ref %build-inputs "gzip"))
                          (wiki-dir (string-append %output "/share/px-wiki")))
                     (mkdir-p wiki-dir)
                     (setenv "PATH"
                             (string-append gzip "/bin"))
                     (invoke (string-append tar "/bin/tar") "xvf" source "-C"
                             wiki-dir)))))
    (native-inputs `(("tar" ,tar)
                     ("gzip" ,gzip)))
    (inputs `(("bash" ,bash)))
    (home-page "https://www.wiki.pantherx.org/")
    (synopsis "PantherX Wiki")
    (description "PantherX Wiki - Offline html files.")
    (license license:expat)))