guix.scm 2.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. ;;; mudsync --- Live hackable MUDs in Guile
  2. ;;; Copyright (C) 2016 Jan Nieuwenhuizen <janneke@gnu.org>
  3. ;;; Copyright (C) 2017 Christopher Allan 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 pkg-config)
  48. (gnu packages texinfo))
  49. (define %source-dir (dirname (current-filename)))
  50. (package
  51. (name "guile-mudsync")
  52. (version "git")
  53. (source (local-file %source-dir
  54. #:recursive? #t
  55. #:select? (git-predicate %source-dir)))
  56. (build-system gnu-build-system)
  57. (native-inputs `(("autoconf" ,autoconf)
  58. ("automake" ,automake)
  59. ("pkg-config" ,pkg-config)
  60. ("texinfo" ,texinfo)))
  61. (inputs `(("guile" ,guile-2.2)
  62. ("guile-8sync" ,guile-8sync)
  63. ("guile-irregex" ,guile2.2-irregex)))
  64. (arguments
  65. `(#:phases (modify-phases %standard-phases
  66. (add-before 'configure 'bootstrap
  67. (lambda _
  68. (zero? (system* "./bootstrap.sh"))))
  69. (add-before 'configure 'setenv
  70. (lambda _
  71. (setenv "GUILE_AUTO_COMPILE" "0"))))))
  72. (home-page "https://notabug.org/cwebber/mudsync/")
  73. (synopsis "Live hackable MUD system")
  74. (description
  75. "Mudsync is a live hackable MUD system built on top of GNU 8sync.")
  76. (license gpl3+))