me/guix
Archived
1
0
Fork 0
Code Activity

system: Export default nanorc.

Browse source 
* gnu/system/shadow.scm (%default-nanorc): Extract from
default-skeletons, export.
(default-skeletons): Use %default-nanorc.

Change-Id: I0d07b13ed4894b1152a08b96d9ef8527dde073ce
This commit is contained in:
Efraim Flashner 2023-12-31 10:29:41 +02:00
parent eef3babfdb
commit 33136e0426
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/system/shadow.scm
View file

@ -68,6 +68,7 @@
%default-zprofile %default-zprofile
%default-xdefaults %default-xdefaults
%default-gdbinit %default-gdbinit
%default-nanorc
default-skeletons default-skeletons
skeleton-directory skeleton-directory
%base-groups %base-groups
@ -211,6 +212,11 @@ end
# pretty-printers of libstdc++. # pretty-printers of libstdc++.
set auto-load safe-path /gnu/store/*/lib\n")) set auto-load safe-path /gnu/store/*/lib\n"))
(define %default-nanorc
(plain-file "nanorc"
"# Include all the syntax highlighting modules.
include /run/current-system/profile/share/nano/*.nanorc\n"))
(define (default-skeletons) (define (default-skeletons)
"Return the default skeleton files for /etc/skel. These files are copied by "Return the default skeleton files for /etc/skel. These files are copied by
'useradd' in the home directory of newly created user accounts." 'useradd' in the home directory of newly created user accounts."
@ -226,9 +232,7 @@ set auto-load safe-path /gnu/store/*/lib\n"))
;; after ~/.zshrc. To avoid interfering with any customizations a user ;; after ~/.zshrc. To avoid interfering with any customizations a user
;; may have made in their ~/.zshrc, put this in .zprofile, not .zlogin. ;; may have made in their ~/.zshrc, put this in .zprofile, not .zlogin.
(".zprofile" ,zprofile) (".zprofile" ,zprofile)
(".nanorc" ,(plain-file "nanorc" "\ (".nanorc" ,%default-nanorc)
# Include all the syntax highlighting modules.
include /run/current-system/profile/share/nano/*.nanorc\n"))
(".Xdefaults" ,xdefaults) (".Xdefaults" ,xdefaults)
(".guile" ,(plain-file "dot-guile" (".guile" ,(plain-file "dot-guile"
"(cond ((false-if-exception (resolve-interface '(ice-9 readline))) "(cond ((false-if-exception (resolve-interface '(ice-9 readline)))