(in-package :my-tools) (use-package :oli) (sd-def-setting "Misc/Warning/OwnerCheckOnOff" :application "Annotation" :value-type :boolean :title (sd-multi-lang-string "Owner Wrong Warning" :german "Besitzer Warnung") :action #'(lambda (v) (setq docu::*docu-hide-wrong-owner-warning* (not v))) :default-value T :description (sd-multi-lang-string "Check distance to owner for new elements within the current owner when placing." :german "Prüfe Abstand zum aktuellen Besitzer eines neuen Elements des Besitzers.") )