(define-module (snamellit packages openconnect)
  #:use-module (ice-9 string-fun)
  #:use-module (gnu packages base)
  #:use-module (gnu packages curl)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages gcc)

  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages version-control)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages gcc)
  #:use-module              (gnu packages tls)
    #:use-module (gnu packages vpn)
  #:use-module            (gnu packages webkit)

  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix build-system copy)
  #:use-module (nonguix build-system binary))


(define libstdc++
  ;; Libstdc++ matching the default GCC.
  (make-libstdc++ gcc))

(define-public globalprotect-openconnect
  (package
   (name "globalprotect-openconnect")
   (version "2.4.5")
   (source
    (origin
     (method url-fetch)
     (uri (string-append
           "https://github.com/yuezk/GlobalProtect-openconnect/releases/download/v"
           version
           "/globalprotect-openconnect-"
           version
           "-1-x86_64.pkg.tar.zst"))
     (sha256
      (base32
       ;; "1q1hf7rh32sk1zj5zmjkhgn2rckxzp0s4rsmmy1pjncmq81yfbbw" ; 2.3.11
       "1ygl818mzc39v5afsx3yszqxmvzr3m37n2mkbdyzsfcjr13k24s6"
       ))))
   (build-system binary-build-system)
   (arguments
    `(#:patchelf-plan
      '(("bin/gpauth" ("openssl" "webkitgtk" "gtk" "glib" "cairo" "soup" "pixbuf" "gcc-lib"))
	("bin/gpclient" ("openssl" "openconnect" "gcc-lib"))
	("bin/gpgui" ("openssl" "webkitgtk" "gtk" "glib" "cairo" "soup" "pixbuf" "gcc-lib"))
	("bin/gpgui-helper" ("openssl" "webkitgtk" "gtk" "glib" "cairo" "soup" "pixbuf" "gcc-lib"))
	("bin/gpservice" ("openssl" "xz" "gcc-lib" "openconnect" "appindicator"))

	)))
   (inputs
    `(("openssl" ,openssl)
      ("webkitgtk" ,webkitgtk-for-gtk3)
      ("glib" ,glib)
      ("gtk" ,gtk+)
      ("cairo" ,cairo)
      ("xz" ,xz)
      ("gcc-lib" ,gcc "lib")
      ("openconnect" ,openconnect)
      ("soup" ,libsoup)
      ("pixbuf" ,gdk-pixbuf)
      ("appindicator" ,libappindicator)))
   (home-page "https://guix.gnu.org/manual/devel/en/html_node/The-Perfect-Setup.html")
   (synopsis "Connect to openconnect with MFA")
   (description "A GUI for GlobalProtect VPN, based on OpenConnect, supports the SSO authentication method. Inspired by gp-saml-gui.")
   (license license:gpl3)))


globalprotect-openconnect