init push

Finished configuring the init/shell commands Updated readme Fixed issue with missing /boot/efi directory Added new config module for setting/retrieving vm configs Updated machine setup Fixed issue with missing files added config to docs section added x86_64 support fixed issue with x86_64 update and updated README Added some content to README Added markdown export of org file Updated readme to reflect the need for guile-next Removed guile from install example exported changes to md Updated README fixed issue with sed compatibility (bsd/gnu) regenerated readme markdown Removed readme markdown file for org alternative Updated project license updated autocompile to include for now updated script updated script updated script updated msg script updated license updated to test testing testing testing testing testing testing testing testing testing testing testing
2023-11-20 09:05:07 -07:00 · 2023-11-20 09:05:07 -07:00 · 55dc43c035
commit 55dc43c035
22 changed files with 1023 additions and 0 deletions
--- a/guix.scm
+++ b/guix.scm
@ -0,0 +1,74 @@
+(use-modules
+ (gnu packages)
+ (gnu packages autotools)
+ (gnu packages guile)
+ (gnu packages guile-xyz)
+ (gnu packages pkg-config)
+ (gnu packages texinfo)
+ (guix build-system gnu)
+ (guix download)
+ (guix gexp)
+ ((guix licenses) #:prefix license:)
+ (guix packages)
+ (srfi srfi-1))
+
+(package
+ (name "msg")
+ (version "0.1")
+ (source
+  (local-file
+   (dirname (current-filename))
+   #:recursive?
+   #t
+   #:select?
+   (lambda (file stat)
+     (not (any (lambda (my-string) (string-contains file my-string))
+               (list ".git" ".dir-locals.el" "guix.scm"))))))
+ (build-system gnu-build-system)
+ (arguments
+  (list #:modules
+        `(((guix build guile-build-system)
+           #:select
+           (target-guile-effective-version))
+          ,@%gnu-build-system-modules)
+        #:phases
+        (with-imported-modules
+         `((guix build guile-build-system) ,@%gnu-build-system-modules)
+         (gexp (modify-phases
+                %standard-phases
+                (add-after
+                 'install
+                 'hall-wrap-binaries
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let* ((version (target-guile-effective-version))
+                          (site-ccache
+                           (string-append "/lib/guile/" version "/site-ccache"))
+                          (site (string-append "/share/guile/site/" version))
+                          (dep-path
+                           (lambda (env path)
+                             (list env
+                                   ":"
+                                   'prefix
+                                   (cons (string-append (ungexp output) path)
+                                         (map (lambda (input)
+                                                (string-append
+                                                 (assoc-ref inputs input)
+                                                 path))
+                                              (list))))))
+                          (bin (string-append (ungexp output) "/bin/")))
+                     (for-each
+                      (lambda (file)
+                        (wrap-program
+                         (string-append bin file)
+                         (dep-path "GUILE_LOAD_PATH" site)
+                         (dep-path "GUILE_LOAD_COMPILED_PATH" site-ccache)
+                         (dep-path "GUILE_EXTENSIONS_PATH" "/lib")))
+                      (list "msg"))))))))))
+ (native-inputs (list autoconf automake pkg-config texinfo))
+ (inputs (list guile-3.0))
+ (propagated-inputs (list))
+ (synopsis "")
+ (description "")
+ (home-page "")
+ (license license:agpl3+))
+