From c4e0a56eb1bb65069bb9fe7c90f18086ed2afcce Mon Sep 17 00:00:00 2001
From: Eric Dvorsak <eric@dvorsak.fr>
Date: Sun, 9 Aug 2015 22:24:52 +0200
Subject: Forgive me Stallman for I have sinned

---
 README.org        |  1 +
 linux-nonfree.scm | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 100 insertions(+)
 create mode 100644 README.org
 create mode 100644 linux-nonfree.scm

diff --git a/README.org b/README.org
new file mode 100644
index 0000000..52cb6cd
--- /dev/null
+++ b/README.org
@@ -0,0 +1 @@
+This is readme.
diff --git a/linux-nonfree.scm b/linux-nonfree.scm
new file mode 100644
index 0000000..f41c8a4
--- /dev/null
+++ b/linux-nonfree.scm
@@ -0,0 +1,99 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
+;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
+;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
+;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
+;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
+;;;
+;;; 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 <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages linux-nonfree)
+  #:use-module ((guix licenses) #:hide (zlib))
+  #:use-module (gnu packages linux)
+  #:use-module (guix build-system trivial)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix download))
+
+;;; Forgive me Stallman for I have sinned.
+
+(define-public radeon-RS780-firmware-non-free
+  (package
+    (name "radeon-RS780-firmware-non-free")
+    (version "f6c767f398fc34a89d05d970ed04e21b781fc33f")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "git://git.kernel.org/pub/scm/linux/kernel/git/firmware/linux-firmware.git")
+                    (commit version)))
+              (sha256
+               (base32
+                "1lpqigsw93xswcxw9ykxmms2smx86070mg51jqpf7n9w9h6jjs79"))))
+    (build-system trivial-build-system)
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder (begin
+                   (use-modules (guix build utils))
+                   (let ((source (assoc-ref %build-inputs "source"))
+                         (fw-dir (string-append %output "/lib/firmware/radeon/")))
+                     (mkdir-p fw-dir)
+                     (for-each (lambda (file)
+                                 (copy-file file
+                                            (string-append fw-dir "/"
+                                                           (basename file))))
+                               (find-files source "R600_rlc\\.bin|RS780_.*\\.bin$|LICENSE.radeon"))
+                     #t))))
+
+    (home-page "")
+    (synopsis "Non-free firmware for Radeon integrated chips")
+    (description "Non-free firmware for Radeon integrated chips")
+    ;; FIXME: What license?
+    (license (non-copyleft "http://git.kernel.org/?p=linux/kernel/git/firmware/linux-firmware.git;a=blob_plain;f=LICENCE.radeon_firmware;hb=HEAD"))))
+
+
+(define (linux-nonfree-urls version)
+  "Return a list of URLs for Linux-Nonfree VERSION."
+  (list (string-append
+         "https://www.kernel.org/pub/linux/kernel/v4.x/"
+         "linux-" version ".tar.xz")))
+
+(define-public linux-nonfree
+  (let* ((version "4.1.4"))
+    (package
+      (inherit linux-libre)
+      (name "linux-nonfree")
+      (version version)
+      (source (origin
+                (method url-fetch)
+                (uri (linux-nonfree-urls version))
+                (sha256
+                 (base32
+                  "14argl6ywkggdvgiycfx4jl2d7290f631ly59wfggj4vjx27sbqg"))))
+      (synopsis "Mainline Linux kernel, nonfree binary blobs included.")
+      (description "Linux is a kernel.")
+      (license gpl2)
+      (home-page "http://kernel.org/"))))
+
+(define-public perf-nonfree
+  (package
+    (inherit perf)
+    (name "perf-nonfree")
+    (version (package-version linux-nonfree))
+    (source (package-source linux-nonfree))
+    (license (package-license linux-nonfree))))
-- 
cgit v1.2.3