Merge pull request #39 from HyunggyuJang/restore-to-default-frame/window-settings

Fix hard coded frame border, window fringe restoration process

Author: anler

centered-window.el

@@ -180,7 +180,11 @@ by this function."
   (remove-hook 'window-configuration-change-hook #'cwm-center-windows)
   (remove-hook 'window-size-change-functions #'cwm-center-windows-frame)
   (cwm-center-windows)
-  (set-frame-parameter nil 'internal-border-width 0)
+  (set-frame-parameter
+   nil
+   'internal-border-width
+   (or (alist-get 'internal-border-width default-frame-alist)
+       0))
   (cwm-unbind-fringe-mouse-events))
 
 (defun cwm-center-windows-frame (frame)
@@ -226,8 +230,8 @@ by this function."
                   0))
                0))
          (ratio (/ (* n cwm-left-fringe-ratio) 100))
-         (left-width (* pixel (if (> n 0) (+ n ratio) n)))
-         (right-width (* pixel (if (> n 0) (- n ratio) n))))
+         (left-width (and mode-active-p (* pixel (if (> n 0) (+ n ratio) n))))
+         (right-width (and mode-active-p (* pixel (if (> n 0) (- n ratio) n)))))
     `(,left-width . ,right-width)))
 
 (defun cwm-toggle-bind-fringe-mouse-events (&optional bind direction-command-alist)