From 692226848c1ab17472a07bdda9c839395ad9e6c5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 7 Sep 2024 17:58:05 +0300 Subject: Remove deprecated modules --- hecate/packages/binaries.scm | 52 ------------- hecate/packages/browsers.scm | 123 ----------------------------- hecate/packages/sqlite.scm | 125 ------------------------------ hecate/packages/version-control.scm | 149 ------------------------------------ 4 files changed, 449 deletions(-) delete mode 100644 hecate/packages/binaries.scm delete mode 100644 hecate/packages/browsers.scm delete mode 100644 hecate/packages/sqlite.scm delete mode 100644 hecate/packages/version-control.scm diff --git a/hecate/packages/binaries.scm b/hecate/packages/binaries.scm deleted file mode 100644 index e21a522..0000000 --- a/hecate/packages/binaries.scm +++ /dev/null @@ -1,52 +0,0 @@ -(define-module (hecate packages binaries) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix gexp) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system copy) - #:use-module (gnu packages base) - #:use-module (gnu packages bootstrap) - #:use-module (gnu packages compression) - #:use-module (gnu packages elf) - #:use-module (gnu packages gcc) - #:use-module (gnu packages glib)) - -(define-public hugo-bin - (package - (name "hugo-bin") - (version "0.128.2") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/gohugoio/hugo" "/releases/download/v" - version "/hugo_extended_" version "_linux-amd64.tar.gz")) - (sha256 - (base32 - "1i8jqhw9rra3xjkxzzyj6liqrg52wdi5cdzf3dzijv6pap0m6cm8")))) - (build-system copy-build-system) - (arguments - (list #:install-plan #~'(("hugo" "bin/")) - #:phases - #~(modify-phases %standard-phases - (delete 'strip) - (add-after 'install 'patch-elf - (lambda _ - (let ((hugo (string-append #$output "/bin/hugo"))) - (invoke "patchelf" "--set-interpreter" - (string-append #$(this-package-input "glibc") - #$(glibc-dynamic-linker)) - hugo) - (invoke "patchelf" "--set-rpath" - (string-append (ungexp (this-package-input "gcc") - "lib") - "/lib") - hugo))))))) - (supported-systems '("x86_64-linux")) - (native-inputs (list patchelf)) - (inputs (list `(,gcc "lib") glibc)) - (home-page "https://gohugo.io/") - (synopsis "Static site generator") - (description - "Hugo is a static site generator written in Go, optimized for speed and -designed for flexibility.") - (license license:asl2.0))) diff --git a/hecate/packages/browsers.scm b/hecate/packages/browsers.scm deleted file mode 100644 index 8baa98f..0000000 --- a/hecate/packages/browsers.scm +++ /dev/null @@ -1,123 +0,0 @@ -(define-module (hecate packages browsers) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix build-system qt) - #:use-module (guix gexp) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (gnu packages qt) - #:use-module (gnu packages gl) - #:use-module (gnu packages gcc) - #:use-module (gnu packages xdisorg) - #:use-module (gnu packages tls)) - -(define serenity-source - (origin - (method git-fetch) - (uri - (git-reference - (url "https://github.com/SerenityOS/serenity") - (commit "fd6bb41519d01390e7a8b1ed6554a58b38d6cb88"))) - (file-name (git-file-name "serenity" "0")) - (sha256 (base32 "17rhgdqagj0by4h3pds9k71az5ffhzrx8f7d1zn0qr9qa7vkj6dd")) - (modules '((guix build utils))) - (snippet - '(begin - ; (delete-file "Userland/Libraries/LibUnicode/Normalize.cpp") - ; (substitute* "Userland/Libraries/LibUnicode/CMakeLists.txt" - ; (("\\bNormalize\\.cpp\\b") "")) - (substitute* "Meta/CMake/utils.cmake" - (("Downloading file \\$\\{file} from \\$\\{url}") "Downloading file ${path} from ${url}")) - (substitute* "Meta/CMake/common_compile_options.cmake" - (("\\badd_compile_options\\(-Werror\\)") "")))))) - -(define cldr-version "42.0.0") -(define cldr-json - (origin - (method url-fetch) - (uri (string-append "https://github.com/unicode-org/cldr-json/releases/download/" cldr-version "/cldr-" cldr-version "-json-modern.zip")) - (sha256 (base32 "1hmdqca0gdx3waafbz2dypika6gd5p7wb6p90ff0bfgvwx9p1n07")))) - -(define ucd-version "15.0.0") -(define ucd-emoji-version "15.0") -(define ucd - (origin - (method url-fetch) - (uri (string-append "https://unicode.org/Public/" ucd-version "/ucd/UCD.zip")) - (sha256 (base32 "133inqn33hcfvylmps63yjr6rrqrfq6x7a5hr5fd51z6yc0f9gaz")))) -(define ucd-emoji-test - (origin - (method url-fetch) - (uri (string-append "https://unicode.org/Public/emoji/" ucd-emoji-version "/emoji-test.txt")) - (sha256 (base32 "1nskm3qqb568dlsz54r0ympqbzyf9zhn40lxw5mhk3iqr0xg4ic4")))) - -(define tzdb-version "2022f") -(define tzdb - (origin - (method url-fetch) - (uri (string-append "https://data.iana.org/time-zones/releases/tzdata" tzdb-version ".tar.gz")) - (sha256 (base32 "007hgak36scah2fsgf7gkzw2fw5b3jp8mziip5kja8axcwgxg44r")))) - -(define ladybird - (package - (name "ladybird") - (version "0") - (synopsis "The Ladybird Web Browser is a browser using the SerenityOS LibWeb engine with a Qt GUI.") - (description synopsis) - (home-page "https://github.com/SerenityOS/ladybird") - (license license:bsd-2) - (source - (origin - (method git-fetch) - (uri - (git-reference - (url "https://github.com/SerenityOS/ladybird") - (commit "7e670a08180c51d474b982f871074c1b60cf49f7"))) - (file-name (git-file-name name version)) - (sha256 (base32 "1z0jmnif91fmby175584vv6cwl2aj0ks0c1aajigwskp024fx62m")))) - (native-inputs - (list - `("gcc" ,gcc-12) - `("libxkbcommon" ,libxkbcommon) - `("mesa" ,mesa) - `("openssl" ,openssl) - `("qtbase" ,qtbase) - `("qttools" ,qttools) - `("serenity-source" ,serenity-source) - `("cldr-json" ,cldr-json) - `("ucd" ,ucd) - `("ucd-emoji-test" ,ucd-emoji-test) - `("tzdb" ,tzdb))) - (build-system qt-build-system) - (arguments - `(#:configure-flags - (list - (string-append "-DSERENITY_SOURCE_DIR=" (getcwd) "/source/serenity")) - #:out-of-source? #f - #:phases - (modify-phases %standard-phases - (add-before 'patch-source-shebangs 'copy-serenity-source - (lambda* (#:key inputs #:allow-other-keys) - (copy-recursively (assoc-ref inputs "serenity-source") "serenity"))) - (add-before 'configure 'copy-data - (lambda* (#:key inputs #:allow-other-keys) - (mkdir-p "CLDR") (mkdir-p "UCD") (mkdir-p "TZDB") - (let ((port (open-file "CLDR/version.txt" "w"))) - (display ,cldr-version port) - (close port)) - (let ((port (open-file "UCD/version.txt" "w"))) - (display ,ucd-version port) - (close port)) - (let ((port (open-file "TZDB/version.txt" "w"))) - (display ,tzdb-version port) - (close port)) - (copy-file (assoc-ref inputs "cldr-json") "CLDR/cldr.zip") - (copy-file (assoc-ref inputs "ucd") "UCD/UCD.zip") - (copy-file (assoc-ref inputs "ucd-emoji-test") "UCD/emoji-test.txt") - (copy-file (assoc-ref inputs "tzdb") "TZDB/tzdb.tar.gz"))) - (add-before 'build 'make-libweb-generated-directories - (lambda _ - (mkdir-p "_deps/lagom-build/Userland/Libraries/LibWeb/Bindings") - (mkdir-p "_deps/lagom-build/WebContent")))) - ; no tests - #:tests? #f)))) diff --git a/hecate/packages/sqlite.scm b/hecate/packages/sqlite.scm deleted file mode 100644 index bfb91f0..0000000 --- a/hecate/packages/sqlite.scm +++ /dev/null @@ -1,125 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013, 2015, 2018, 2020 Ludovic Courtès -;;; Copyright © 2014, 2015, 2016, 2018 Mark H Weaver -;;; Copyright © 2014 Sree Harsha Totakura -;;; Copyright © 2015, 2016 Sou Bunnbu -;;; Copyright © 2016 Efraim Flashner -;;; Copyright © 2016 Ben Woodcroft -;;; Copyright © 2016 David Craven -;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Marius Bakke -;;; Copyright © 2017 Ricardo Wurmus -;;; Copyright © 2017 Jelle Licht -;;; Copyright © 2018 Tobias Geerinckx-Rice -;;; Copyright © 2018 Alex Vong -;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen -;;; Copyright © 2022 Matthew James Kraai -;;; Copyright © 2024 Zhu Zihao -;;; -;;; This file is part of GNU Guix. -;;; -;;; GNU Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; GNU Guix 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 GNU Guix. If not, see . - -(define-module (hecate packages sqlite) - #:use-module (gnu packages) - #:use-module (gnu packages hurd) - #:use-module (gnu packages readline) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system gnu) - #:use-module (guix utils) - #:use-module (guix deprecation) - #:use-module (ice-9 match) - #:use-module (srfi srfi-26)) - -;;; Commentary: -;;; -;;; This module has been separated from (gnu packages databases) to reduce the -;;; number of module references for core packages. - -(define (sqlite-uri version year) - (let ((numeric-version - (match (string-split version #\.) - ((first-digit other-digits ...) - (string-append first-digit - (string-pad-right - (string-concatenate - (map (cut string-pad <> 2 #\0) - other-digits)) - 6 #\0)))))) - (string-append "https://sqlite.org/" (number->string year) - "/sqlite-autoconf-" numeric-version ".tar.gz"))) - -(define-public sqlite - (package - (name "sqlite") - (version "3.46.0") - (source (origin - (method url-fetch) - (uri (sqlite-uri version 2024)) - (patches (search-patches "sqlite-hurd.patch")) - (sha256 - (base32 - "0zbs853s8ly693qdg0l7vs4shwn3plmvdczr2s478wsj6dxnm3kg")))) - (build-system gnu-build-system) - (inputs (list readline)) - (outputs '("out" "static")) - (arguments - `(#:configure-flags - ;; Add -DSQLITE_SECURE_DELETE, -DSQLITE_ENABLE_FTS3, - ;; -DSQLITE_ENABLE_UNLOCK_NOTIFY and -DSQLITE_ENABLE_DBSTAT_VTAB - ;; to CFLAGS. GNU Icecat will refuse to use the system SQLite - ;; unless these options are enabled. - (list (string-append "CFLAGS=-O2 -g -DSQLITE_SECURE_DELETE " - "-DSQLITE_ENABLE_FTS3 " - "-DSQLITE_ENABLE_UNLOCK_NOTIFY " - "-DSQLITE_ENABLE_DBSTAT_VTAB " - ;; Column metadata is required by GNU Jami and Qt, et.al. - "-DSQLITE_ENABLE_COLUMN_METADATA")) - #:phases (modify-phases %standard-phases - (add-after 'install 'move-static-library - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (static (assoc-ref outputs "static")) - (source (string-append out "/lib/libsqlite3.a"))) - (mkdir-p (string-append static "/lib")) - (link source (string-append static "/lib/libsqlite3.a")) - (delete-file source) - - ;; Remove reference to the static library from the .la file - ;; so that Libtool looks for it in the usual places. - (substitute* (string-append out "/lib/libsqlite3.la") - (("^old_library=.*") - "old_library=''\n")) - #t)))))) - (home-page "https://www.sqlite.org/") - (synopsis "The SQLite database management system") - (description - "SQLite is a software library that implements a self-contained, serverless, -zero-configuration, transactional SQL database engine. SQLite is the most -widely deployed SQL database engine in the world. The source code for SQLite -is in the public domain.") - (license license:public-domain))) - -;; Newer version required for e.g. fossil. -(define-public sqlite-next - (package - (inherit sqlite) - (version "3.46.0") - (source (origin - (method url-fetch) - (uri (sqlite-uri version 2024)) - (sha256 - (base32 - "0zbs853s8ly693qdg0l7vs4shwn3plmvdczr2s478wsj6dxnm3kg")))))) diff --git a/hecate/packages/version-control.scm b/hecate/packages/version-control.scm deleted file mode 100644 index b2602bc..0000000 --- a/hecate/packages/version-control.scm +++ /dev/null @@ -1,149 +0,0 @@ -(define-module (hecate packages version-control) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix utils) - #:use-module (guix packages) - #:use-module (guix deprecation) - #:use-module (guix gexp) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix hg-download) - #:use-module (guix build-system cargo) - #:use-module (guix build-system cmake) - #:use-module (guix build-system copy) - #:use-module (guix build-system gnu) - #:use-module (guix build-system go) - #:use-module (guix build-system perl) - #:use-module (guix build-system pyproject) - #:use-module (guix build-system python) - #:use-module (guix build-system qt) - #:use-module (guix build-system trivial) - #:use-module (gnu packages apr) - #:use-module (gnu packages autotools) - #:use-module (gnu packages documentation) - #:use-module (gnu packages base) - #:use-module (gnu packages bash) - #:use-module (gnu packages bison) - #:use-module (gnu packages boost) - #:use-module (gnu packages check) - #:use-module (gnu packages cook) - #:use-module (gnu packages crates-io) - #:use-module (gnu packages crates-vcs) - #:use-module (gnu packages curl) - #:use-module (gnu packages databases) - #:use-module (gnu packages docbook) - #:use-module (gnu packages file) - #:use-module (gnu packages flex) - #:use-module (gnu packages freedesktop) - #:use-module (gnu packages gettext) - #:use-module (gnu packages gl) - #:use-module (gnu packages glib) - #:use-module (gnu packages gnome) - #:use-module (gnu packages gnupg) - #:use-module (gnu packages golang) - #:use-module (gnu packages golang-build) - #:use-module (gnu packages golang-check) - #:use-module (gnu packages golang-crypto) - #:use-module (gnu packages golang-web) - #:use-module (gnu packages golang-xyz) - #:use-module (gnu packages groff) - #:use-module (gnu packages guile) - #:use-module (gnu packages guile-xyz) - #:use-module (gnu packages image) - #:use-module (gnu packages imagemagick) - #:use-module (gnu packages linux) - #:use-module (gnu packages mail) - #:use-module (gnu packages man) - #:use-module (gnu packages maths) - #:use-module (gnu packages ncurses) - #:use-module (gnu packages ssh) - #:use-module (gnu packages web) - #:use-module (gnu packages patchutils) - #:use-module (gnu packages pcre) - #:use-module (gnu packages perl) - #:use-module (gnu packages perl-check) - #:use-module (gnu packages php) - #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) - #:use-module (gnu packages python-build) - #:use-module (gnu packages python-check) - #:use-module (gnu packages python-crypto) - #:use-module (gnu packages python-web) - #:use-module (gnu packages python-xyz) - #:use-module (gnu packages readline) - #:use-module (gnu packages ruby) - #:use-module (hecate packages sqlite) - #:use-module (gnu packages texinfo) - #:use-module (gnu packages text-editors) - #:use-module (gnu packages admin) - #:use-module (gnu packages xml) - #:use-module (gnu packages emacs) - #:use-module (gnu packages compression) - #:use-module (gnu packages sdl) - #:use-module (gnu packages swig) - #:use-module (gnu packages sync) - #:use-module (gnu packages tcl) - #:use-module (gnu packages textutils) - #:use-module (gnu packages time) - #:use-module (gnu packages tls) - #:use-module (gnu packages) - #:use-module (ice-9 match) - #:use-module (srfi srfi-1)) - -(define-public fossil - (package - (name "fossil") - (version "2.23") - (source - (origin - (method url-fetch) - (uri (string-append - "https://www.fossil-scm.org/home/tarball/" - "47362306a7dd7c6fc3cab77cebe5d25469b0a9448479d9718eb5c49c8337b29" - "/fossil-src-" version ".tar.gz")) - ;; XXX: Currently the above hash must be manually updated. - (sha256 - (base32 "1r1kabvmlhc0qgyq8g9zhq8i0123x9dba9b71j4xc71k14kfqjm9")) - (modules '((guix build utils))) - (snippet - '(delete-file-recursively "compat")))) - (build-system gnu-build-system) - (native-inputs - (list tcl ;for configuration only - which ;for tests only - ed)) ;ditto - (inputs - (list openssl zlib sqlite)) - (arguments - `(#:configure-flags (list "--with-openssl=auto" - "--disable-internal-sqlite") - #:test-target "test" - #:phases (modify-phases %standard-phases - (add-after 'patch-source-shebangs 'patch-sh - (lambda _ - (substitute* '("auto.def") - (("/bin/sh") (which "sh"))))) - (replace 'configure - (lambda* (#:key outputs (configure-flags '()) - #:allow-other-keys) - ;; The 'configure' script is not an autoconf script and - ;; chokes on unrecognized options. - (apply invoke - "./configure" - (string-append "--prefix=" - (assoc-ref outputs "out")) - configure-flags))) - (add-before 'check 'test-setup - (lambda _ - (setenv "USER" "guix") - (setenv "TZ" "UTC")))))) - (home-page "https://fossil-scm.org") - (synopsis "Software configuration management system") - (description - "Fossil is a distributed source control management system which supports -access and administration over HTTP CGI or via a built-in HTTP server. It has -a built-in wiki, built-in file browsing, built-in tickets system, etc.") - (properties - '((release-monitoring-url - . "https://fossil-scm.org/home/uv/latest-release.md"))) - (license (list license:public-domain ;src/miniz.c, src/shell.c - license:bsd-2)))) -- cgit v1.2.3