diff options
| -rw-r--r-- | sigils/packages/security.scm | 44 |
1 files changed, 30 insertions, 14 deletions
diff --git a/sigils/packages/security.scm b/sigils/packages/security.scm index e40ef9a..6f0e863 100644 --- a/sigils/packages/security.scm +++ b/sigils/packages/security.scm @@ -14,8 +14,6 @@ #:use-module (gnu packages golang-crypto) #:use-module (gnu packages golang-check) #:use-module (gnu packages prometheus) - ;; tor - #:use-module (gnu packages tor-browsers) ;; libomemo-c #:use-module (guix build-system cmake) #:use-module (guix git-download) @@ -23,7 +21,36 @@ #:use-module (gnu packages tls) #:use-module (gnu packages pkg-config) ;; seclists - #:use-module (guix build-system copy)) + #:use-module (guix build-system copy) + ;; torbrowser-remote-desktop-file + #:use-module (guix build-system trivial) + #:use-module (gnu packages tor-browsers)) + +(define-public torbrowser-remote-desktop-file + (package + (name "torbrowser-remote-desktop-file") + (version "0.0") + (source #f) + (build-system trivial-build-system) + (inputs (list torbrowser)) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (install-file + (string-append (assoc-ref %build-inputs "torbrowser") + "/share/applications/torbrowser.desktop") + (string-append %output "/share/applications/")) + (substitute* (string-append %output + "/share/applications/torbrowser.desktop") + (("%u\n$") "--allow-remote %u\n") + (("^Name=Tor Browser\n$") "Name=Tor Browser (Remote)\n"))))) + (home-page #f) + (synopsis "Desktop file allowing opening links with xdg-open for Tor Browser.") + (description #f) + (license license:wtfpl2))) + (define-public seclists (package @@ -76,17 +103,6 @@ and asynchronous messaging. The fork adds support for OMEMO as defined in XEP-0384 versions 0.3.0 and later.") (license license:gpl3+))) -;; (define-public torbrowser-patched -;; (package -;; (inherit torbrowser) -;; (name "torbrowser-patched") -;; (arguments -;; (substitute-keyword-arguments (package-arguments torbrowser) -;; (phases phases) -;; #~(modify-phases #$phases -;; (add-after 'build ')))))) - - ;; (define-public opensnitch ;; (package ;; (name "opensnitch") |