workgroups2 Changeset - a08e74fdc34e

Changeset - a08e74fdc34e

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-23 09:51:04
sergey@pashinin.com

Removed comments

1 file changed with 1 insertions and 6 deletions:

src/workgroups-wconfig.el

0 comments (0 inline, 0 general)

src/workgroups-wconfig.el

➞

Show inline comments

@@ @@ -108,30 +108,25 @@ ratio or NEW-WIDTH to WCONFIG's width, and NEW-HEIGHT to @@
 WCONFIG's height."
   (wg-normalize-wtree
    (wg-scale-wtree
     (wg-wconfig-wtree wconfig)
     (/ (float new-width)  (wg-wconfig-width wconfig))
     (/ (float new-height) (wg-wconfig-height wconfig)))))
 ;; (wg-wconfig-width (wg-current-wconfig))
 ;; (wg-wconfig-wtree (wg-current-wconfig))
 (defun wg-scale-wconfig-to-frame (wconfig)
   "Scale WCONFIG buffers to fit current frame size.
 Return a scaled copy of WCONFIG."
   (interactive)
   (wg-scale-wconfigs-wtree wconfig
                            (frame-parameter nil 'width)
                            (frame-parameter nil 'height)))
 ;; (wg-scale-wconfig-to-frame (wg-current-wconfig))
 (defun wg-frame-resize-and-position (wconfig &optional frame)
   "Apply WCONFIG's size and position to a FRAME."
   (interactive)
   (unless frame
     (setq frame (selected-frame)))
   (unless frame (setq frame (selected-frame)))
   (let* ((params (wg-wconfig-parameters wconfig))
          fullscreen)
     (set-frame-parameter frame 'fullscreen (if (assoc 'fullscreen params)
                                                (cdr (assoc 'fullscreen params))
                                              nil))
     (when (and wg-restore-frame-position

0 comments (0 inline, 0 general)