workgroups2 Changeset - f31c7c9cdcd0

Changeset - f31c7c9cdcd0

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-24 13:32:09
sergey@pashinin.com

Make workgroup parameter optional

1 file changed with 5 insertions and 6 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

   "Return WORKGROUP's value for PARAMETER.
 If PARAMETER is not found, return DEFAULT which defaults to nil.
 WORKGROUP should be accepted by `wg-get-workgroup'."
   (wg-aget (wg-workgroup-parameters (wg-get-workgroup workgroup))
            parameter default))
 (defun wg-set-workgroup-parameter (workgroup parameter value)
   "Set WORKGROUP's value of PARAMETER to VALUE.
 (defun wg-set-workgroup-parameter (parameter value &optional workgroup)
   "Set PARAMETER to VALUE in a WORKGROUP.
 WORKGROUP should be a value accepted by `wg-get-workgroup'.
 Return VALUE."
-  (let ((workgroup (wg-get-workgroup workgroup)))
+  (-when-let (workgroup (wg-get-workgroup (or workgroup (wg-current-workgroup t)) t))
     (wg-set-parameter (wg-workgroup-parameters workgroup) parameter value)
     (wg-flag-workgroup-modified workgroup)
     value))
 (defun wg-remove-workgroup-parameter (workgroup parameter)
   "Remove PARAMETER from WORKGROUP's parameters."
@@ @@ -3711,15 +3711,14 @@ safe -- don't mutate them." @@
 NOERROR means fail silently."
   (interactive (list (wg-read-workgroup-name)))
   (fset 'buffer-list wg-buffer-list-original)
   ;; Mark if ECB is active
   (if (wg-current-workgroup t)
       (wg-set-workgroup-parameter (wg-current-workgroup t) 'ecb (and (boundp 'ecb-minor-mode)
                                                                      ecb-minor-mode)))
   (wg-set-workgroup-parameter 'ecb (and (boundp 'ecb-minor-mode)
                                         ecb-minor-mode))
   ;;(wg-set-workgroup-parameter (wg-current-workgroup t) 'ecb-win-config (ecb-current-window-configuration))
   ;; (type-of (ecb-current-window-configuration))
   ;; (type-of (car (ecb-current-window-configuration)))
   ;; (type-of (car (nthcdr 3 (ecb-current-window-configuration))))
   ;; (wg-pickelable-or-error (ecb-current-window-configuration))
   ;;(ecb-current-window-configuration)

0 comments (0 inline, 0 general)