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")