gnu: Add sc-im. - guix - Wojtek's customized Guix

diff options

author	Jorge Gomez <jgart@dismail.de>	2021-11-18 20:22:18 -0500
committer	Leo Famulari <leo@famulari.name>	2021-11-22 16:16:25 -0500
commit	c4bc557c3a2e59b0d127f1a8a963e1a19daf6cdb (patch)
tree	c690e5d3cb5b90782ca139c79f147769f29d91df /gnu/packages/enchant.scm
parent	bb3fbb4d9d5c1e789958bc0f37026eccf64e8e93 (diff)
download	guix-c4bc557c3a2e59b0d127f1a8a963e1a19daf6cdb.tar.gz guix-c4bc557c3a2e59b0d127f1a8a963e1a19daf6cdb.zip

gnu: Add sc-im.

* gnu/packages/spreadsheet.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. Signed-off-by: Leo Famulari <leo@famulari.name>

Diffstat (limited to 'gnu/packages/enchant.scm')

0 files changed, 0 insertions, 0 deletions

) (gshadow name-service-switch-gshadow (default '())) (hosts name-service-switch-hosts (default (list %files %dns))) (initgroups name-service-switch-initgroups (default '())) (netgroup name-service-switch-netgroup (default '())) (networks name-service-switch-networks (default (list %files %dns))) (password name-service-switch-password (default (list %files))) (public-key name-service-switch-public-key (default '())) (rpc name-service-switch-rpc (default '())) (services name-service-switch-services (default '())) (shadow name-service-switch-shadow (default (list %files)))) (define %default-nss ;; Default NSS configuration. (name-service-switch)) (define %mdns-host-lookup-nss (name-service-switch (hosts (list %files ;first, check /etc/hosts ;; If the above did not succeed, try with 'mdns_minimal'. (name-service (name "mdns_minimal") ;; 'mdns_minimal' is authoritative for '.local'. When it ;; returns "not found", no need to try the next methods. (reaction (lookup-specification (not-found => return)))) ;; Then fall back to DNS. (name-service (name "dns")) ;; Finally, try with the "full" 'mdns'. (name-service (name "mdns")))))) ;;; ;;; Serialization. ;;; (define (lookup-status->string status) (match status ('success "SUCCESS") ('not-found "NOTFOUND") ('unavailable "UNAVAIL") ('try-again "TRYAGAIN") (($ <lookup-status-negation> status) (string-append "!" (lookup-status->string status))))) (define lookup-reaction->string (match-lambda (($ <lookup-reaction> status action) (string-append (lookup-status->string status) "=" (symbol->string action))))) (define name-service->string (match-lambda (($ <name-service> name ()) name) (($ <name-service> name reactions) (string-append name " [" (string-join (map lookup-reaction->string reactions)) "]")))) (define (name-service-switch->string nss) "Return the 'nsswitch.conf' contents for NSS as a string. See \"NSS Configuration File\" in the libc manual." (let-syntax ((->string (syntax-rules () ((_ name field) (match (field nss) (() ;keep the default config "") ((services (... ...)) (string-append name ":\t" (string-join (map name-service->string services)) "\n"))))))) (string-append (->string "aliases" name-service-switch-aliases) (->string "ethers" name-service-switch-ethers) (->string "group" name-service-switch-group) (->string "gshadow" name-service-switch-gshadow) (->string "hosts" name-service-switch-hosts) (->string "initgroups" name-service-switch-initgroups) (->string "netgroup" name-service-switch-netgroup) (->string "networks" name-service-switch-networks) (->string "passwd" name-service-switch-password) (->string "publickey" name-service-switch-public-key) (->string "rpc" name-service-switch-rpc) (->string "services" name-service-switch-services) (->string "shadow" name-service-switch-shadow)))) ;;; Local Variables: ;;; eval: (put 'name-service 'scheme-indent-function 0) ;;; eval: (put 'name-service-switch 'scheme-indent-function 0) ;;; End: ;;; nss.scm ends here


context:
space:
mode: