From b8df012244108b2c6617b4dccf5ff05a1a1e0174 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Fri, 17 Feb 2023 09:34:44 -0300
Subject: etc/guix/home.scm: Add custom curl and fortinevpn packages

---
 etc/guix/home.scm | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index fed6f48..3ff1e47 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -10,6 +10,7 @@
   (gnu home services xdg)
   (gnu packages)
   (gnu packages base)
+  (gnu packages curl)
   (gnu packages dunst)
   (gnu packages freedesktop)
   (gnu packages gnupg)
@@ -22,6 +23,7 @@
   (gnu packages lisp)
   (gnu packages texinfo)
   (gnu packages tmux)
+  (gnu packages tls)
   (gnu packages version-control)
   (gnu packages video)
   (gnu packages xdisorg)
@@ -44,6 +46,18 @@
       `(("libiconv" ,libiconv)
         ,@(package-inputs hunspell)))))
 
+(define-public curl-openssl
+  (package
+    (inherit curl)
+    (arguments
+      (substitute-keyword-arguments (package-arguments curl)
+        ((#:configure-flags flags ''())
+         #~(list (string-append "--with-openssl="
+                                (assoc-ref %build-inputs "openssl"))))))
+    (inputs
+      `(("openssl" ,openssl-3.0)
+        ,@(package-inputs curl)))))
+
 (define (hunspell-dictionary-utf8 dict-name)
   (package
     (name (string-append "hunspell-dict-" dict-name "-utf8"))
@@ -180,8 +194,11 @@
   (string-append xdg-prefix "/" path))
 
 (define work-packages
-  (map (compose list specification->package+output symbol->string)
-       '(awscli@1)))
+  (append
+   (list curl-openssl)
+   (map (compose list specification->package+output symbol->string)
+        '(awscli@1
+          openfortivpn))))
 
 (home-environment
   (packages
@@ -273,7 +290,7 @@
             stunnel
             netcat
             siege
-            curl
+            ;; curl
             curl:doc
             xclip
             cloc
-- 
cgit v1.2.3