amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

home: services: bash: Add ‘aliases’ field.

Browse source 
* doc/guix.texi (Shells Home Services): Document it.
* gnu/home/services/shells.scm (bash-serialize-aliases): New procedure.
(home-bash-configuration, home-bash-extension): Add ‘aliases’ field.
(home-bash-extensions): Adjust accordingly.
* guix/scripts/home/import.scm (generate-bash-configuration+modules): Populate
the ‘alias’ field.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Xinglu Chen 2021-11-07 12:36:19 +01:00 • committed by Ludovic Courtès
parent 5eb5c0789f
commit 4b96998292
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 98 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
guix/scripts/home/import.scm
View file

@ -27,6 +27,9 @@
#:use-module (gnu packages)
#:use-module (ice-9 match)
#:use-module (ice-9 pretty-print)
#:use-module (ice-9 rdelim)
#:use-module (ice-9 regex)
#:use-module (ice-9 popen)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:export (import-manifest
@ -56,11 +59,32 @@ FILE-NAME with \"-\", and return the basename of it."
(define (destination-append path)
(string-append destination-directory "/" path))
(define (bash-alias->pair line)
(if (string-prefix? "alias" line)
(let ((matched (string-match "alias (.+)=\"?'?([^\"']+)\"?'?" line)))
`(,(match:substring matched 1) . ,(match:substring matched 2)))
'()))
(define (parse-aliases input)
(let loop ((line (read-line input))
(result '()))
(if (eof-object? line)
(reverse result)
(loop (read-line input)
(cons (bash-alias->pair line) result)))))
(let ((rc (destination-append ".bashrc"))
(profile (destination-append ".bash_profile"))
(logout (destination-append ".bash_logout")))
`((service home-bash-service-type
(home-bash-configuration
,@(if (file-exists? rc)
`((aliases
',(let* ((port (open-pipe* OPEN_READ "bash" "-i" "-c" "alias"))
(alist (parse-aliases port)))
(close-port port)
(filter (negate null?) alist))))
'())
,@(if (file-exists? rc)
`((bashrc
(list (local-file ,rc