(define-module (org euandre packages)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages texinfo)
  #:use-module ((guix licenses) #:prefix licenses:)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public git-permalink-0-1-0
  (package
    (name "git-permalink")
    (version "0.1.0")
    (source
      (origin
        (method url-fetch)
        (uri "https://euandre.org/git/git-permalink/snapshot/git-permalink-v0.1.0.tar.xz")
        (sha256
          (base32 "07waci3y0xdlbr8gl1lzdbsiz0csnrshcm6f18cdzn7y97irhb15"))))
    (build-system gnu-build-system)
    (native-inputs
      (list))
    (inputs
      (list))
    (arguments
      (list
       #:make-flags '(list (string-append "PREFIX=" %output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis "Git extension to generate web permalinks of files in a repository")
    (description
      "It knows about many of the existing code forges, but allows for URL
template overrides to be used on custom domains or deployments via git
config.")
    (home-page "https://euandre.org/s/git-permalink/")
    (license licenses:agpl3+)))

(define-public git-permalink-0-2-0
  (package
    (name "git-permalink")
    (version "0.2.0")
    (source
      (origin
        (method url-fetch)
        (uri "https://euandre.org/git/git-permalink/snapshot/git-permalink-v0.2.0.tar.xz")
        (sha256
          (base32 "10qiigp29jamb23mdrf1yp0gqmihlsg931ibpiqpf4pn28l5d9ly"))))
    (build-system gnu-build-system)
    (native-inputs
      (list))
    (inputs
      (list))
    (arguments
      (list
       #:make-flags '(list (string-append "PREFIX=" %output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis "Git extension to generate web permalinks of files in a repository")
    (description
      "It knows about many of the existing code forges, but allows for URL
template overrides to be used on custom domains or deployments via git
config.")
    (home-page "https://euandre.org/s/git-permalink/")
    (license licenses:agpl3+)))

(define-public remembering-0-1-2
  (package
    (name "remembering")
    (version "0.1.2")
    (source
      (origin
        (method url-fetch)
        (uri "https://euandre.org/git/remembering/snapshot/remembering-v0.1.2.tar.xz")
        (sha256
          (base32 "1syzn41w4f754ihblwxcv3wn653lh92cgg6g06db1qrx3m2zvw5v"))))
    (build-system gnu-build-system)
    (native-inputs
      (list))
    (inputs
      (list))
    (arguments
      (list
       #:make-flags '(list (string-append "PREFIX=" %output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis "Add memory to dmenu, fzf and similar tools")
    (description
      "It can wrap such tools to accumulate preferences over time, and
re-arrange the input according to common picks.")
    (home-page "https://euandre.org/s/remembering/")
    (license licenses:agpl3+)))

(define-public td
  (package
    (name "td")
    (version "4a8a7a2662c94b2581f587e9a4b81feba4f5e7d8")
    (source
      (origin
        (method url-fetch)
        (uri "https://euandre.org/git/td/snapshot/td-4a8a7a2662c94b2581f587e9a4b81feba4f5e7d8.tar.xz")
        (sha256
          (base32 "01g1vnlz1kch8j9zzaxyixih04azdvrfabfzg7xqny32h2p62md2"))))
    (build-system gnu-build-system)
    (native-inputs
      (list))
    (inputs
      (list))
    (arguments
      (list
       #:make-flags '(list (string-append "PREFIX=" %output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis "Minimalistic bug tracker CLI")
    (description
      "Create and maintain a TODOs.md files as a bug database.

It is a tool for distributed, offline issue tracking, reified as a simple text
file in the repository.")
    (home-page "https://euandre.org/s/td/")
    (license licenses:agpl3+)))

(define-public guile-heredoc
  (package
    (name "guile-heredoc")
    (version "065435cdce609604e33b879b9be3e81ab89f3e7b")
    (source
      (origin
        (method url-fetch)
        (uri "https://euandre.org/git/guile-heredoc/snapshot/guile-heredoc-065435cdce609604e33b879b9be3e81ab89f3e7b.tar.xz")
        (sha256
          (base32 "1y1110bg4ki0dvn8hggxy34wg7ig4r3377nc84isnj3dydqm2vjd"))))
    (build-system gnu-build-system)
    (native-inputs
      (list
       texinfo))
    (inputs
      (list
       guile-3.0))
    (arguments
      (list
       #:make-flags '(list (string-append "PREFIX=" %output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis "Guile heredoc syntax")
    (description
      "Guile heredoc syntax long.")
    (home-page "https://euandre.org/s/guile-heredoc/")
    (license licenses:agpl3+)))

(list
 git-permalink-0-1-0
 git-permalink-0-2-0
 remembering-0-1-2
 td
 guile-heredoc)