blob: c08548f36d28d47003071371b228b8431a233a62 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
;; 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")))))))))
|
