Re: Keywords as function arguments for control flow

[Jean Louis]

(defun cuprat (args)
  (let ((seqr (plist-get args :seqr)))
    (cond
     ((eq seqr 'global) (global-whitespace-mode 1))  ;; if seqr is 'global
     (t (whitespace-mode 1)))))                      ;; default case for other 
values

(cuprat '(:seqr global))  ;; Pass the :seqr keyword as part of the plist
(cuprat '(:seqr other))   ;; Pass the :seqr keyword with a different value

Jean