;; 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))

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

(define-public sdbus-c++-next
  (package
    (inherit sdbus-c++)
    (name "sdbus-c++")
    (version "2.0.0")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/Kistler-Group/sdbus-cpp")
                    (commit (string-append "v" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "1s6vhzln0rvac2r3v8nq08hsjhyz3y46fsy18i23ppjm30apkiav"))))
    (arguments
     (list
      ;; Avoid the integration test, which requires a system bus.
      #:test-target "sdbus-c++-unit-tests"
      #:configure-flags #~(list "-DSDBUSCPP_BUILD_CODE_GEN=ON"
                                "-DSDBUSCPP_BUILD_TESTS=ON"
                                ;; Do not install tests.
                                "-DSDBUSCPP_TESTS_INSTALL_PATH=/tmp"
                                "-DCMAKE_VERBOSE_MAKEFILE=ON")
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'do-not-install-tests
            (lambda _
              (substitute* "tests/CMakeLists.txt"
                (("/etc/dbus-1/system.d") "/tmp")))))))))

(define-public udis86
  (let ((commit "5336633af70f3917760a6d441ff02d93477b0c86")
        (revision "1"))
    (package
      (name "udis86")
      (version (git-version "1.7.2" revision commit))
      (home-page "http://udis86.sourceforge.net/")
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/canihavesomecoffee/udis86.git")
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "0y5z1169wff578jylpafsww4px4y6gickhcs885a9c660d8xs9qy"))))
      (build-system gnu-build-system)
      (native-inputs (list pkg-config
                           autoconf
                           automake
                           libtool
                           python))
      (arguments
       (list #:configure-flags
             #~(list "--enable-shared"
                     (string-append "--with-python="
                                    #$(file-append python "/bin/python3")))))
      (synopsis "Disassembler Library for x86 and x86-64")
      (description "Udis86 is a disassembler for the x86 and x86-64 class of
instruction set architectures.")
      (license license:bsd-2))))