(define-module (my-packages)
  #:use-module (gnu packages)
  #:use-module (gnu packages build-tools)
  #:use-module (guix build-system copy)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix licenses) 
  #:use-module (guix packages)
  #:use-module (guix gexp)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system asdf)
  #:use-module (guix build-system emacs))

;; A temporary fix based on this patch:
;; 
;;https://lists.gnu.org/archive/html/guix-patches/2021-10/msg00762.html

(define-public starship-prompt-bin
  (package
   (name "starship")
   (version "1.12.0")
   (source (origin
            (method url-fetch)
            (uri (string-append "https://github.com/starship/starship/releases/download/v"
				version
				"/starship-x86_64-unknown-linux-musl.tar.gz"))
            (sha256
             (base32
              "0w2w20lxx8l662xdcvjdb033sglhgfg3dnm5jfjb5z5sixwd37x0"))))
   (build-system asdf-build-system/source)
   (synopsis "binary of starship -- The cross-shell prompt for astronauts.")
   (description "Cross shell prompt")
   (home-page "https://starship.rs/")
   (license gpl2+)))

(define-public exwm-firefox-core
  (package
   (name "exwm-firefox-core")
   (version "1.0")
   (home-page "https://github.com/walseb/exwm-firefox-core")   
   (source (origin
	    (method git-fetch)
	    (uri (git-reference
		  (url home-page)
		  (commit version)))
	    (file-name (git-file-name name version))
	    (sha256
	     (base32
	      "0w2w20lxx8l662xdcvjdb033sglhgfg3dnm5jfjb5z5sixwd37x0"))))
   (build-system emacs-build-system)
   (synopsis "Library for executing firefox function through EXWM")
   (description "sadf")
   (license gpl3+)))

starship-prompt-bin