path: root/src/org/euandre/packages.scm

(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+)))

(define-public (pkg name version checksum)
  (package
    (name name)
    (version version)
    (source
      (origin
        (method url-fetch)
        (uri
          (string-append
           "https://euandre.org/git/" name "/snapshot/" name "-" version ".tar.xz"))
        (sha256
          (base32 checksum))))
    (build-system gnu-build-system)
    (arguments
      (list
       #:make-flags #~(list (string-append "PREFIX=" #$output))
       #:phases
       #~(modify-phases %standard-phases
           (delete 'configure))))
    (synopsis    "")
    (description "")
    (home-page (string-append "https://euandre.org/s/" name "/"))
    (license licenses:agpl3+)))

(define-public eut
  (pkg
    "eut"
    "df248206c442f6fbf96ae15b467a05b234fd66f6"
    "0j4anhwhzlcsnfc9imgakz13yn1n6y38v67zq3bpvcazbw3fh5fj"))

(define-public cage
  (pkg
   "cage"
   "c0482531fc16a55715b759b695d27d555d927ab8"
   "0laan68dj3s1n2d2alcwpvhnjjc2483kyx5xl384rcwrn3s0kcyl"))

(define-public nicely
  (pkg
   "nicely"
   "6699e732f00d2a8d8c377527dc588824ba3cbece"
   "1j6s7z29m126mxgacqbk0g4lmk8ap526z716d70kbwadh91n1a5v"))

(define-public q
  (pkg
   "q"
   "5e8e65015a77ed7606c6cfbd2d1cedc79e42a6a5"
   "1dramr7p5ncbnna0v3ncaa77rm1c8vzxw5si4n6d3rr0ji2v48ac"))

(list
 git-permalink-0-1-0
 git-permalink-0-2-0
 remembering-0-1-2
 td
 eut
 cage
 nicely
 q
 guile-heredoc)