upstream: new module

1 files changed, 155 insertions, 0 deletions

diff --git a/sigils/packages/upstream.scm b/sigils/packages/upstream.scm
new file mode 100644
index 0000000..62ed6fd
--- /dev/null
+++ b/sigils/packages/upstream.scm
@@ -0,0 +1,155 @@
+;; These are all the packages that are already sent in the Guix upstream tree and waiting approval.
+;; It should take only the next 300 years to merge them all.
+
+(define-module (sigils packages upstream)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix gexp)
+  #:use-module ((guix licenses)
+                #:prefix license:)
+  ;; lnav
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages backup)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages rust)
+  #:use-module (gnu packages perl)
+  ;; ncpamixer
+  #:use-module (guix build-system cmake)
+  #:use-module (gnu packages pulseaudio)
+  ;; mimeo
+  #:use-module (guix build-system python)
+  #:use-module (gnu packages file)
+  #:use-module (gnu packages freedesktop)
+  ;; waypipe
+  #:use-module (guix build-system meson)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages man)
+  #:use-module (gnu packages video))
+
+(define-public waypipe-2
+  (package
+    (name "waypipe")
+    (version "0.9.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.freedesktop.org/mstoeckl/waypipe")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0pj7l3ix0pp0sfqxfa2hxql0f30vz6hh01fq5kzhs831b632i3z0"))))
+    (build-system meson-build-system)
+    (native-inputs
+     (list pkg-config scdoc
+           ;; For tests
+           python))
+    (inputs (list lz4 libva mesa libdrm ffmpeg))
+    (arguments
+     `(#:configure-flags
+       ,#~'("-Dwith_lz4=enabled" "-Dwith_vaapi=enabled"
+            "-Dwith_dmabuf=enabled" "-Dwith_video=enabled")))
+    (home-page "https://gitlab.freedesktop.org/mstoeckl/waypipe")
+    (synopsis "Proxy for Wayland protocol applications")
+    (description
+     "Waypipe is a proxy for Wayland clients, with the aim of
+supporting behavior like @samp{ssh -X}.")
+    (license license:expat)))
+
+(define-public mimeo
+  (package
+    (name "mimeo")
+    (version "2023")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://xyne.dev/projects/mimeo/src/mimeo-"
+                           version ".tar.xz"))
+       (sha256
+        (base32 "1459kvnf96bvxxf5r8lg2lldm5ymfbdpdlriaj3mcivh595nza09"))))
+    (build-system python-build-system)
+    (home-page "https://xyne.dev/projects/mimeo/")
+    (synopsis
+     "Open files by MIME-type or file name using regular expressions.")
+    (description
+     "Mimeo uses MIME-type file associations to determine which
+application should be used to open a file. It can launch files or print
+information such as the command that it would use, the detected MIME-type, etc.")
+    (native-inputs (list file python-pyxdg))
+    (license license:gpl3)))
+
+(define-public ncpamixer
+  (package
+   (name "ncpamixer")
+   (version "1.3.7")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://github.com/fulhax/ncpamixer/")
+           (commit version)))
+     (file-name (git-file-name name version))
+     (sha256
+      (base32 "1ix4cja3yka8ah5s1ygd0ghf53jllphnjxjnkivvx72jii4b778q"))))
+   (build-system cmake-build-system)
+   (inputs (list pulseaudio ncurses))
+   (arguments
+    (list
+     #:configure-flags #~'("-DBUILD_MANPAGES=OFF")
+     #:tests? #f
+     #:phases #~(modify-phases %standard-phases
+                               (add-before 'configure 'chdir-to-src
+                                           (lambda _
+                                             (chdir "src"))))))
+   (home-page "https://github.com/fulhax/ncpamixer")
+   (synopsis "Ncurses PulseAudio Mixer")
+   (description "An ncurses mixer for PulseAudio inspired by pavucontrol.")
+   (license license:expat)))
+
+
+(define-public lnav
+  (package
+   (name "lnav")
+   (version "0.12.3-beta2") ;0.12.2 hardcodes /usr/share/zoneinfo
+   (source
+    (origin
+     (method url-fetch)
+     (uri (string-append
+           "https://github.com/tstack/lnav/archive/refs/tags/v" version
+           ".tar.gz"))
+     (sha256
+      (base32 "0gmzxxxjz71q7j01j99lnszgilcakwdirh2lb5m9x0f6fz7hb76g"))))
+   (build-system gnu-build-system)
+   (native-inputs (list autoconf
+                        automake
+                        pcre2
+                        sqlite
+                        ncurses
+                        readline
+                        zlib
+                        lbzip2
+                        curl
+                        libarchive
+                        wireshark
+                        rust
+                        tzdata
+                        perl-digest-sha))
+   (home-page "https://github.com/tstack/lnav")
+   (synopsis "Log file navigator")
+   (description
+    "The Logfile Navigator is a log file viewer for the terminal.")
+   (arguments
+    '(#:tests? #f)) ;tests fail on the beta
+   (license license:bsd-2)))