guix.scm 2.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. ;;; mudsync --- Live hackable MUDs in Guile
  2. ;;; Copyright (C) 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  3. ;;; Copyright (C) 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
  4. ;;;
  5. ;;; This program is free software: you can redistribute it and/or modify
  6. ;;; it under the terms of the GNU General Public License as published by
  7. ;;; the Free Software Foundation, either version 3 of the License, or
  8. ;;; (at your option) any later version.
  9. ;;;
  10. ;;; This program is distributed in the hope that it will be useful,
  11. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13. ;;; GNU General Public License for more details.
  14. ;;;
  15. ;;; You should have received a copy of the GNU General Public License
  16. ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  17. ;;; Commentary:
  18. ;;
  19. ;; GNU Guix development package. To build and install, run:
  20. ;;
  21. ;; guix package -f guix.scm
  22. ;;
  23. ;; To build it, but not install it, run:
  24. ;;
  25. ;; guix build -f guix.scm
  26. ;;
  27. ;; To use as the basis for a development environment, run:
  28. ;;
  29. ;; guix environment -l guix.scm
  30. ;;
  31. ;;; Code:
  32. (use-modules (srfi srfi-1)
  33. (srfi srfi-26)
  34. (ice-9 popen)
  35. (ice-9 match)
  36. (ice-9 rdelim)
  37. (guix download)
  38. (guix packages)
  39. (guix licenses)
  40. (guix gexp)
  41. (guix git-download)
  42. (guix build-system gnu)
  43. ((guix build utils) #:select (with-directory-excursion))
  44. (gnu packages)
  45. (gnu packages autotools)
  46. (gnu packages guile)
  47. (gnu packages guile-xyz)
  48. (gnu packages pkg-config)
  49. (gnu packages texinfo))
  50. (define %source-dir (dirname (current-filename)))
  51. (package
  52. (name "guile-mudsync")
  53. (version "git")
  54. (source (local-file %source-dir
  55. #:recursive? #t
  56. #:select? (git-predicate %source-dir)))
  57. (build-system gnu-build-system)
  58. (native-inputs `(("autoconf" ,autoconf)
  59. ("automake" ,automake)
  60. ("pkg-config" ,pkg-config)
  61. ("texinfo" ,texinfo)))
  62. (inputs `(("guile" ,guile-3.0)
  63. ("guile-8sync" ,guile-8sync)
  64. ("guile-irregex" ,guile-irregex)))
  65. (arguments
  66. `(#:phases (modify-phases %standard-phases
  67. (add-before 'configure 'bootstrap
  68. (lambda _
  69. (zero? (system* "./bootstrap.sh"))))
  70. (add-before 'configure 'setenv
  71. (lambda _
  72. (setenv "GUILE_AUTO_COMPILE" "0"))))))
  73. (home-page "https://notabug.org/cwebber/mudsync/")
  74. (synopsis "Live hackable MUD system")
  75. (description
  76. "Mudsync is a live hackable MUD system built on top of GNU 8sync.")
  77. (license gpl3+))