Add morji and update tcl

Julien LepillerTue Jun 13 16:45:09+0200 2017

d2ea1b9

Add morji and update tcl

more/packages/games.scm

2020 
  #:use-module (guix packages)
2121 
  #:use-module (guix download)
2222 
  #:use-module (guix build-system cmake)
23+
  #:use-module (guix build-system gnu)
2324 
  #:use-module ((guix licenses) #:prefix license:)
2425 
  #:use-module (gnu packages)
2526 
  #:use-module (gnu packages audio)
2627 
  #:use-module (gnu packages boost)
2728 
  #:use-module (gnu packages check)
2829 
  #:use-module (gnu packages compression)
30+
  #:use-module (gnu packages databases)
2931 
  #:use-module (gnu packages documentation)
3032 
  #:use-module (gnu packages fontutils)
3133 
  #:use-module (gnu packages fribidi)

…

3436 
  #:use-module (gnu packages gtk)
3537 
  #:use-module (gnu packages image)
3638 
  #:use-module (gnu packages lua)
39+
  #:use-module (gnu packages ncurses)
3740 
  #:use-module (gnu packages pcre)
3841 
  #:use-module (gnu packages pkg-config)
3942 
  #:use-module (gnu packages python)
4043 
  #:use-module (gnu packages sdl)
4144 
  #:use-module (gnu packages tbb)
45+
  #:use-module (more packages tcl)
4246 
  #:use-module (gnu packages xiph)
4347 
  #:use-module (gnu packages xml)
4448 
  #:use-module (gnu packages xorg)

…

136140 
cross-platform, and targeted at game and application developers.  Additionally,
137141 
it offers a WYSIWYG editor for creating layouts and imagesets.")
138142 
    (license license:expat)))
143+
144+
(define-public morji
145+
  (package
146+
    (name "morji")
147+
    (version "0.1")
148+
    (source (origin
149+
              (method url-fetch)
150+
              (uri (string-append
151+
                     "https://bardinflor.perso.aquilenet.fr/morji/morji-"
152+
                     version ".tar.gz"))
153+
              (sha256
154+
               (base32
155+
                "18givlgh10cg0a3gs3747ihhfm4hyj056cr3x7vqhcnrx6vgy06i"))))
156+
    (build-system gnu-build-system)
157+
    (arguments
158+
     `(#:phases
159+
       (modify-phases %standard-phases
160+
         (delete 'configure)
161+
         (delete 'build)
162+
         (replace 'install
163+
           (lambda* (#:key outputs #:allow-other-keys)
164+
             (zero? (system* "make" "install"
165+
                             (string-append "PREFIX=" (assoc-ref outputs "out"))))))
166+
         (replace 'check
167+
           (lambda _
168+
             (zero? (system* "tclsh" "test_expect.tcl")))))))
169+
    (propagated-inputs
170+
     `(("ncurses" ,ncurses) ; TODO: this should probably be a propagated-input of tcllib.
171+
       ("sqlite" ,sqlite)
172+
       ("tcl" ,tcl-fix)
173+
       ("tcllib" ,tcllib-fix)))
174+
    (native-inputs
175+
     `(("expect" ,expect-fix)))
176+
    (home-page "https://bardinflor.perso.aquilenet.fr/morji/intro-en")
177+
    (synopsis "Simple flashcard program for the terminal")
178+
    (description "Morji is a simple flashcard program for the terminal.  It
179+
uses a modified version of the SM2 algorithm taking inspiration from mnemosyne
180+
and anki.")
181+
    (license license:isc)))
more/packages/tcl.scm unknown status 1
1+
;;; GNU Guix --- Functional package management for GNU
2+
;;; Copyright ?? 2013, 2014, 2015 Ludovic Court??s <ludo@gnu.org>
3+
;;; Copyright ?? 2014, 2015 Mark H Weaver <mhw@netris.org>
4+
;;; Copyright ?? 2014 Eric Bavier <bavier@member.fsf.org>
5+
;;; Copyright ?? 2016 Efraim Flashner <efraim@flashner.co.il>
6+
;;; Copyright ?? 2016 Jan Nieuwenhuizen <janneke@gnu.org>
7+
;;; Copyright ?? 2017 Kei Kebreau <kei@openmailbox.org>
8+
;;;
9+
;;; This file is part of GNU Guix.
10+
;;;
11+
;;; GNU Guix is free software; you can redistribute it and/or modify it
12+
;;; under the terms of the GNU General Public License as published by
13+
;;; the Free Software Foundation; either version 3 of the License, or (at
14+
;;; your option) any later version.
15+
;;;
16+
;;; GNU Guix is distributed in the hope that it will be useful, but
17+
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
18+
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19+
;;; GNU General Public License for more details.
20+
;;;
21+
;;; You should have received a copy of the GNU General Public License
22+
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
23+
24+
(define-module (more packages tcl)
25+
  #:use-module (guix packages)
26+
  #:use-module (guix download)
27+
  #:use-module (guix build-system gnu)
28+
  #:use-module (guix build-system perl)
29+
  #:use-module (gnu packages)
30+
  #:use-module (gnu packages image)
31+
  #:use-module (gnu packages fontutils)
32+
  #:use-module (gnu packages perl)
33+
  #:use-module (gnu packages pkg-config)
34+
  #:use-module (gnu packages tcl)
35+
  #:use-module (gnu packages xml)
36+
  #:use-module (gnu packages xorg)
37+
  #:use-module (guix licenses))
38+
39+
(define-public tcl-fix
40+
  (package
41+
    (inherit tcl)
42+
    (name "tcl-fix")
43+
    (native-search-paths
44+
      (list (search-path-specification
45+
              (variable "TCLLIBPATH")
46+
              (separator " ")
47+
              (files '("lib")))))))
48+
49+
(define-public tcllib-fix
50+
  (package
51+
    (inherit tcllib)
52+
    (name "tcllib-fix")
53+
    (native-search-paths
54+
      (list (search-path-specification
55+
              (variable "TCLLIBPATH")
56+
              (separator " ")
57+
              (files '("lib" ,(string-append "lib/tcllib" (package-version tcllib)))))))))
58+
59+
(define-public expect-fix
60+
  (package
61+
    (inherit expect)
62+
    (name "expect-fix")
63+
    (inputs
64+
      `(("tcl" ,tcl-fix)))))