35 lines
1.4 KiB
Scheme
35 lines
1.4 KiB
Scheme
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
;; defs.scm
|
||
|
|
;; Copyright (C) 2025 Cor Legemaat <cor@cor.za.net>
|
||
|
|
;;
|
||
|
|
;; This file is part of ebuild-autogen: you can redistribute it and/or modify it
|
||
|
|
;; under the terms of the GNU Affero General Public License as published by the
|
||
|
|
;; Free Software Foundation, version 3 of the License.
|
||
|
|
;;
|
||
|
|
;; ebuild-autogen is distributed in the hope that it will be useful, but WITHOUT
|
||
|
|
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||
|
|
;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|
||
|
|
;; more details.
|
||
|
|
;;
|
||
|
|
;; You should have received a copy of the GNU General Public License along with
|
||
|
|
;; ebuild-autogen. If not, see <https://www.gnu.org/licenses/>.
|
||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
(define-module (ebuild defs)
|
||
|
|
#:use-module (ebuild version))
|
||
|
|
|
||
|
|
(define-public curl-useragent
|
||
|
|
(string-append "ebuild-autogen/"
|
||
|
|
(number->string version-major)
|
||
|
|
"."
|
||
|
|
(number->string version-minor)))
|
||
|
|
|
||
|
|
;; The verbosity level definitions.
|
||
|
|
(define-public verbosity-emergency 0)
|
||
|
|
(define-public verbosity-alert 1)
|
||
|
|
(define-public verbosity-critical 2)
|
||
|
|
(define-public verbosity-error 3)
|
||
|
|
(define-public verbosity-warn 4)
|
||
|
|
(define-public verbosity-notice 5)
|
||
|
|
(define-public verbosity-info 6)
|
||
|
|
(define-public verbosity-debug 7)
|