[PATCH] gnu: Add font-awesome.

[Jose Miguel Sánchez García]

--

José Miguel Sánchez García

From d4eb96046e2bd0538b16880295a5cd05275de7f8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20Miguel=20S=C3=A1nchez=20Garc=C3=ADa?=
 
Date: Sat, 28 Jan 2017 13:42:09 +0100
Subject: [PATCH] gnu: Add font-awesome.

* gnu/packages/fonts.scm (font-awesome): New variable.
---
 gnu/packages/fonts.scm | 38 ++
 1 file changed, 38 insertions(+)

diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index 29ae579ba..a72c2df79 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -15,6 +15,7 @@
 ;;; Copyright © 2016 Marius Bakke 
 ;;; Copyright © 2016 Toni Reina 
 ;;; Copyright © 2017 Tobias Geerinckx-Rice 
+;;; Copyright © 2017 José Miguel Sánchez García 
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -996,3 +997,40 @@ designed to work well in user interface environments.")
 (synopsis "Mozilla's monospace font")
 (description "This is the typeface used by Mozilla in Firefox OS.")
 (license license:silofl1.1)))
+
+(define-public font-awesome
+  (package
+   (name "font-awesome")
+   (version "4.7.0")
+   (source (origin
+(method url-fetch)
+(uri (string-append "http://fontawesome.io/assets/";
+name "-" version ".zip"))
+(sha256
+ (base32
+  "1frhmw41lnnm9rda2zs202pvfi5vzlrsw4xfp4mswl0qgws61mcd"
+   (build-system trivial-build-system)
+   (native-inputs
+`(("unzip" ,unzip)))
+   (arguments
+`(#:modules ((guix build utils))
+  #:builder (begin
+  (use-modules (guix build utils))
+  (let* ((font-dir (string-append %output
+  "/share/fonts/opentype"))
+ (source (assoc-ref %build-inputs "source"))
+ (src-otf-file (string-append "font-awesome-"
+  ,version
+  
"/fonts/FontAwesome.otf"))
+ (dest-otf-file (string-append font-dir 
"/FontAwesome.otf"))
+ (unzip (assoc-ref %build-inputs "unzip")))
+(setenv "PATH" (string-append unzip "/bin"))
+(mkdir-p font-dir)
+(system* "unzip" source "-d" ".")
+(copy-file src-otf-file dest-otf-file)
+   (home-page "http://fontawesome.io";)
+   (synopsis "Font that contains an rich iconset")
+   (description
+"Font Awesome is a full suite of pictographic icons for easy scalable
+vector graphics.")
+   (license license:silofl1.1)))
-- 
2.11.0

[PATCH] gnu: Add light.

[Jose Miguel Sánchez García]

--

José Miguel Sánchez García

From 39adc264a5f2df4ebeaad7879d7005f0831841c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20Miguel=20S=C3=A1nchez=20Garc=C3=ADa?=
 
Date: Sat, 28 Jan 2017 13:07:57 +0100
Subject: [PATCH] gnu: Add light.

* gnu/packages/light.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add light.scm.
---
 gnu/local.mk   |  1 +
 gnu/packages/light.scm | 57 ++
 2 files changed, 58 insertions(+)
 create mode 100644 gnu/packages/light.scm

diff --git a/gnu/local.mk b/gnu/local.mk
index 59fc1a82c..da7064569 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -225,6 +225,7 @@ GNU_SYSTEM_MODULES =\
   %D%/packages/libusb.scm  \
   %D%/packages/libunwind.scm   \
   %D%/packages/libupnp.scm \
+  %D%/packages/light.scm \
   %D%/packages/lighting.scm \
   %D%/packages/links.scm   \
   %D%/packages/linux.scm   \
diff --git a/gnu/packages/light.scm b/gnu/packages/light.scm
new file mode 100644
index 0..4db886588
--- /dev/null
+++ b/gnu/packages/light.scm
@@ -0,0 +1,57 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2017 José Miguel Sánchez García 
+;;;
+;;; 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 (gnu packages light)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages man))
+
+(define-public light
+  (package
+   (name "light")
+   (version "1.0")
+   (source (origin
+(method url-fetch)
+(uri (string-append "https://github.com/haikarainen/"; name
+"/archive/v" version ".tar.gz"))
+(sha256
+ (base32
+  "0r5gn6c0jcxknzybl6059dplxv46dpahchqq4gymrs7z8bp0hilp"))
+(file-name (string-append name "-" version "-checkout"
+   (build-system gnu-build-system)
+   (arguments
+'(#:tests? #f ; no tests
+  #:make-flags (list "CC=gcc"
+ (string-append "PREFIX=" %output))
+  #:phases
+  (modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'patch-makefile
+(lambda _
+  (substitute* "Makefile" (("chown") "#")))
+   (native-inputs
+`(("help2man" ,help2man)))
+   (home-page "https://haikarainen.github.io/light";)
+   (synopsis "GNU/Linux application to control backlights")
+   (description
+"light is a program to control backlight controllers under GNU/Linux.
+It's the successor of lightscript, which was a bash script with the same
+purpose, and tries to maintain the same functionality.")
+   (license license:gpl3)))
-- 
2.11.0

[PATCH: gnu: lua-lpeg: Update to 1.0.1.

[Jose Miguel Sánchez García]

--

José Miguel Sánchez García

From bead1655bc8c93d34196ba9b024c55058689cd59 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jos=C3=A9=20Miguel=20S=C3=A1nchez=20Garc=C3=ADa?=
 
Date: Sun, 15 Jan 2017 00:03:33 +0100
Subject: [PATCH] gnu: lua-lpeg: Update to 1.0.1.

* gnu/packages/lua.scm (lua-lpeg): Update to 1.0.1.
---
 gnu/packages/lua.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/lua.scm b/gnu/packages/lua.scm
index 65c335d37..721eceddf 100644
--- a/gnu/packages/lua.scm
+++ b/gnu/packages/lua.scm
@@ -371,13 +371,13 @@ Notable examples are GTK+, GStreamer and Webkit.")
 (define-public lua-lpeg
   (package
 (name "lua-lpeg")
-(version "1.0.0")
+(version "1.0.1")
 (source (origin
   (method url-fetch)
   (uri (string-append 
"http://www.inf.puc-rio.br/~roberto/lpeg/lpeg-";
   version ".tar.gz"))
   (sha256
-   (base32 
"13mz18s359wlkwm9d9iqlyyrrwjc6iqfpa99ai0icam2b3khl68h"
+   (base32 
"0sq25z3r324a324ky73izgq9mbf66j2xvjp0fxf227rwxalzgnb2"
 (build-system gnu-build-system)
 (arguments
  `(#:phases
-- 
2.11.0