(define-module (rodion packages fonts)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system font)
  #:use-module (gnu packages fonts))

(define-public font-awesome-6
  (package
   (name "font-awesome-6")
   (version "6.4.2")
   (source (origin
            (method git-fetch)
            (uri (git-reference
                  (url "https://github.com/FortAwesome/Font-Awesome")
                  (commit version)))
            (file-name (git-file-name name version))
            (sha256
             (base32
              "180y8fhjyfqagm9nhk4b35nqwszdz540jp68brb1jny2gs34iszy"))))
   (build-system font-build-system)
   (arguments
    '(#:phases
      (modify-phases %standard-phases
        (replace 'install
          (lambda* (#:key outputs #:allow-other-keys)
            (let* ((out (assoc-ref outputs "out"))
                   (otf-source (string-append (getcwd) "/otfs"))
		   (ttf-source (string-append (getcwd) "/webfonts" ))
                   (fonts (string-append out "/share/fonts")))
              (for-each (lambda (file)
                          (install-file file (string-append fonts "/truetype")))
                        (find-files ttf-source "\\.(ttf|ttc)$"))
              (for-each (lambda (file)
                          (install-file file (string-append fonts "/opentype")))
                        (find-files otf-source "\\.(otf|otc)$"))
              #t))))))
   (home-page "https://fontawesome.com/")
   (synopsis "Font that contains a rich iconset")
   (description
    "Font Awesome is a full suite of pictographic icons for easy scalable
vector graphics.")
   (license (list license:silofl1.1 license:expat))))