Changeset - d49e33f7e3f1
Parent rev.
Child rev.
[Not reviewed]
0 1 0
Sergey Pashinin - 11 years ago 2014-08-25 13:34:50
sergey@pashinin.com
minor changes
1 file changed with 12 insertions and 14 deletions:
src/workgroups2.el
12
14
0 comments (0 inline, 0 general)
src/workgroups2.el
➞
Show inline comments
 
@@ -2132,13 +2132,13 @@ with `wg-scale-wconfigs-wtree' to fit the frame as it exists."
 
various parameters of that window in preparation for restoring
 
a wtree."
 
  (delete-other-windows)
 
  (set-window-dedicated-p nil nil))
 

			




	
	
	
		
 
(defun wg-restore-window-tree-helper (w)

			




	
	
	
		
 
  "Recursion helper for `wg-restore-window-tree'."

			




	
	
	
		
 
  "Recursion helper for `wg-restore-window-tree' W."

			




	
	
	
		
 
  (if (wg-wtree-p w)

			




	
	
	
		
 
      (cl-loop with dir = (wg-wtree-dir w)

			




	
	
	
		
 
               for (win . rest) on (wg-wtree-wlist w)

			




	
	
	
		
 
               do (when rest (split-window nil (wg-w-size win dir) (not dir)))

			




	
	
	
		
 
               do (wg-restore-window-tree-helper win))

			




	
	
	
		
 
    (wg-restore-window w)

			




	
	
		
 
@@ -2154,14 +2154,12 @@ a wtree."

			




	
	
	
		
 
        (window-min-height wg-window-min-height)

			




	
	
	
		
 
        (wg-window-tree-selected-window nil))

			




	
	
	
		
 
    (wg-reset-window-tree)

			




	
	
	
		
 
    (wg-restore-window-tree-helper wtree)

			




	
	
	
		
 
    (awhen wg-window-tree-selected-window (select-window it))))

			




	
	
	
		
 

			




	
	
	
		
 

			




	
	
	
		
 
;; (wg-window-tree-to-wtree (window-tree))

			




	
	
	
		
 
(defun wg-window-tree-to-wtree (window-tree)

			




	
	
	
		
 
  "Return the serialization (a wg-wtree) of Emacs window tree WINDOW-TREE."

			




	
	
	
		
 
  (wg-barf-on-active-minibuffer)

			




	
	
	
		
 
  (cl-labels

			




	
	
	
		
 
      ((inner (w) (if (windowp w) (wg-window-to-win w)

			




	
	
	
		
 
                    (wg-dbind (dir edges . wins) w

			




	
	
		
 
@@ -3305,23 +3303,23 @@ Print PROMPT"

			




	
	
	
		
 

			




	
	
	
		
 
(defvar wg-deactivation-list nil

			




	
	
	
		
 
  "A stack of workgroups that are currently being switched away from.

			




	
	
	
		
 
Used to avoid associating the old workgroup's buffers with the

			




	
	
	
		
 
new workgroup during a switch.")

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-flag-workgroup-modified (workgroup)

			




	
	
	
		
 
  "Set WORKGROUP's and the current session's modified flags."

			




	
	
	
		
 
  (when wg-flag-modified

			




	
	
	
		
 
    (setf (wg-workgroup-modified workgroup) t)

			




	
	
	
		
 
    (setf (wg-session-modified (wg-current-session)) t)))

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-flag-session-modified (&optional session)

			




	
	
	
		
 
  "Set SESSION's modified flag."

			




	
	
	
		
 
  (when (and wg-flag-modified

			




	
	
	
		
 
             (or session (wg-current-session t)))

			




	
	
	
		
 
    (setf (wg-session-modified (or session (wg-current-session t))) t)))

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-flag-workgroup-modified (&optional workgroup)

			




	
	
	
		
 
  "Set WORKGROUP's and the current session's modified flags."

			




	
	
	
		
 
  (when wg-flag-modified

			




	
	
	
		
 
    (-when-let (or session (wg-current-session t))

			




	
	
	
		
 
      (setf (wg-session-modified it) t))))

			




	
	
	
		
 
    (setf (wg-workgroup-modified workgroup) t)

			




	
	
	
		
 
    (wg-flag-session-modified)))

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-current-workgroup (&optional noerror frame)

			




	
	
	
		
 
  "Return current workgroup in frame.

			




	
	
	
		
 
Error unless NOERROR, in FRAME if specified."

			




	
	
	
		
 
  (or wg-current-workgroup

			




	
	
	
		
 
      (aif (frame-parameter frame 'wg-current-workgroup-uid)

			




	
	
		
 
@@ -4263,14 +4261,14 @@ confirmation is required unless you supply a prefix argument."

			




	
	
	
		
 
                    (delete frame fl))) fl)

			




	
	
	
		
 
        (setq fl (delete (selected-frame) fl))

			




	
	
	
		
 
        (let (wg-flag-modified)

			




	
	
	
		
 
          (if (wg-current-session t)

			




	
	
	
		
 
              (wg-set-session-parameter 'frame-list (mapcar 'wg-frame-to-wconfig fl))))))

			




	
	
	
		
 
  (wg-write-sexp-to-file (wg-pickel-all-session-parameters) filename)

			




	
	
	
		
 
  (wg-mark-everything-unmodified)

			




	
	
	
		
 
  (wg-fontified-message (:cmd "Wrote: ") (:file filename)))

			




	
	
	
		
 
  (wg-fontified-message (:cmd "Wrote: ") (:file filename))

			




	
	
	
		
 
  (wg-mark-everything-unmodified))

			




	
	
	
		
 
(defalias 'wg-write-session-file 'wg-save-session-as)

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-get-session-file ()

			




	
	
	
		
 
  "Return the filename in which to save the session."

			




	
	
	
		
 
  (or (aif (wg-current-session t) (wg-session-file-name it))

			




	
	
	
		
 
      wg-session-file))

			




	
	
		
 
@@ -4330,13 +4328,13 @@ SESSION nil means use the current session.  Return value."

			




	
	
	
		
 
    value))

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-remove-session-parameter (parameter &optional session)

			




	
	
	
		
 
  "Remove parameter PARAMETER from SESSION's parameters."

			




	
	
	
		
 
  (let ((session (or session (wg-current-session))))

			




	
	
	
		
 
    (wg-asetf (wg-session-parameters session) (wg-aremove it parameter))

			




	
	
	
		
 
    (setf (wg-session-modified session) t)))

			




	
	
	
		
 
    (wg-flag-session-modified session)))

			




	
	
	
		
 

			




	
	
	
		
 
(defun wg-session-local-value (variable &optional session)

			




	
	
	
		
 
  "Return the value of VARIABLE in SESSION.

			




	
	
	
		
 
SESSION nil defaults to the current session.  If VARIABLE does

			




	
	
	
		
 
not have a session-local binding in SESSION, the value is

			




	
	
	
		
 
resolved by Emacs."

			




        

    



    


    



    



      

      





    
    0 comments (0 inline, 0 general)
    





    


  

  







  


    




    








    
        
    
    
        This site is powered by
            Kallithea 0.7.0,
        which is
        © 2010–2025 by various authors & licensed under GPLv3.