diff options
-rw-r--r-- | doc/introduction.rst | 2 | ||||
-rw-r--r-- | src/package.lisp | 3 | ||||
-rw-r--r-- | src/property/etc-default.lisp | 2 |
3 files changed, 3 insertions, 4 deletions
diff --git a/doc/introduction.rst b/doc/introduction.rst index f2ff090..d644273 100644 --- a/doc/introduction.rst +++ b/doc/introduction.rst @@ -192,7 +192,7 @@ and/or lacks. For example,:: (eseqprops (apt:installed postfix) - (etc-default:set "locale" "LANG" "en_GB.UTF-8") + (etc-default:contains "locale" "LANG" "en_GB.UTF-8") (unapplied (com.example.consfig.services:mail-satellite))) Property application specifications are applied in order, so properties later diff --git a/src/package.lisp b/src/package.lisp index 8a83f04..9a8b9b4 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -446,8 +446,7 @@ (package :consfigurator.property.etc-default (:local-nicknames (#:file #:consfigurator.property.file)) - (:shadow #:set) - (:export #:set)) + (:export #:contains)) (package :consfigurator.property.os (:shadow #:typecase #:etypecase) diff --git a/src/property/etc-default.lisp b/src/property/etc-default.lisp index 5e5b948..18cdeb8 100644 --- a/src/property/etc-default.lisp +++ b/src/property/etc-default.lisp @@ -18,7 +18,7 @@ (in-package :consfigurator.property.etc-default) (named-readtables:in-readtable :consfigurator) -(defpropspec set :posix +(defpropspec contains :posix (file &rest pairs &aux (file* (merge-pathnames file #P"/etc/default/"))) "Where PAIRS is a list of even length of alternating keys and values, set each of these keys and values in /etc/default/FILE." |