>From 82a844c8c37b9a969e332ff19a87aa857881b039 Mon Sep 17 00:00:00 2001
From: swedebugia <address@hidden>
Date: Thu, 8 Nov 2018 22:57:49 +0100
Subject: [PATCH] WIP: 'Add guix install'.

---
 Makefile.am              |  2 ++
 guix/scripts/install.scm | 41 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 guix/scripts/install.scm

diff --git a/Makefile.am b/Makefile.am
index c63b65ba5..2dfbef006 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -12,6 +12,7 @@
 # Copyright © 2018 Nils Gillmann <address@hidden>
 # Copyright © 2018 Julien Lepiller <address@hidden>
 # Copyright © 2018 Oleg Pykhalov <address@hidden>
+# Copyright © 2018 swedebugia <address@hidden>
 #
 # This file is part of GNU Guix.
 #
@@ -196,6 +197,7 @@ MODULES =					\
   guix/scripts/build.scm			\
   guix/scripts/archive.scm			\
   guix/scripts/import.scm			\
+  guix/scripts/install.scm			\
   guix/scripts/package.scm			\
   guix/scripts/gc.scm				\
   guix/scripts/hash.scm				\
diff --git a/guix/scripts/install.scm b/guix/scripts/install.scm
new file mode 100644
index 000000000..ebfa819a7
--- /dev/null
+++ b/guix/scripts/install.scm
@@ -0,0 +1,41 @@
+
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2018 swedebugia <address@hidden>
+
+;;;
+;;; 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/>.
+
+;;; Commentary:
+;;;
+;;; Alias for "guix package -i"
+;;; Needs to be in its own file because of (command-files) in guix/ui.scm
+;;;
+
+(define-module (guix scripts install)
+  #:use-module ((guix ui) #:hide (display-profile-content))
+  #:use-module (guix scripts)
+  #:use-module (guix scripts package)
+  (guix-install))
+
+;;;
+;;; Entry point.
+;;;
+
+(define (guix-install . args)
+;; How do we pass everything over to (guix scripts package)?
+  (display args)
+  (newline)
+  (display "swedebugia was here"))
-- 
2.18.0