When activating a frameful activity from another frame, raise-frame it #4
Comments
|
Of course, I should have thought of that. Thanks. |
|
You probably already do the equivalent for tabs. |
|
Oops * raise-frame()
#f(compiled-function (activity) "Switch to ACTIVITY.\nSelect's ACTIVITY's frame, making a new one if needed. Its state\nis not changed." #<bytecode -0x4b3efc23f0b83c6>)(#s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil))
apply(#f(compiled-function (activity) "Switch to ACTIVITY.\nSelect's ACTIVITY's frame, making a new one if needed. Its state\nis not changed." #<bytecode -0x4b3efc23f0b83c6>) #s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil))
(let ((mac-frame-tabbing t)) (apply orig r))
my/activities-in-mac-tabs(#f(compiled-function (activity) "Switch to ACTIVITY.\nSelect's ACTIVITY's frame, making a new one if needed. Its state\nis not changed." #<bytecode -0x4b3efc23f0b83c6>) #s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil))
apply(my/activities-in-mac-tabs #f(compiled-function (activity) "Switch to ACTIVITY.\nSelect's ACTIVITY's frame, making a new one if needed. Its state\nis not changed." #<bytecode -0x4b3efc23f0b83c6>) #s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil))
activities--switch(#s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil))
activities-save(#s(activities-activity :name "ind-bars" :default #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 2560) (pixel-height . 1426) (total-width . 366) (total-height . 101) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/code/emacs/indent-bars/indent-bars-..." :name "indent-bars-ts.el" :local-variables nil :etc ...))) (pixel-width . 1279) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (buffer "indent-bars-ts.el" (selected . t) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 3749) (start . 304)) (prev-buffers ("indent-bars-ts.el" 304 3749) ("indent-bars" 1 400) (".emacs" 14739 38168) ("activities.el" 1 94) ("emacs" 1 145) ("cond-let.el" 1 2729))) (vc (last . t) (pixel-width . 1281) (pixel-height . 1426) (total-width . 183) (total-height . 101) (normal-height . 1.0) (normal-width . 0.5) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 1281) (pixel-height . 712) (total-width . 183) (total-height . 50) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 469) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 1281) (pixel-height . 714) (total-width . 183) (total-height . 51) (normal-height . 0.5) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 1195) (start . 1))))) :etc nil) :last #s(activities-activity-state :window-state (((min-height . 8) (min-width . 20) (min-height-ignore . 6) (min-width-ignore . 10) (min-height-safe . 2) (min-width-safe . 4) (min-pixel-height . 112) (min-pixel-width . 140) (min-pixel-height-ignore . 84) (min-pixel-width-ignore . 70) (min-pixel-height-safe . 28) (min-pixel-width-safe . 28)) hc (pixel-width . 1199) (pixel-height . 952) (total-width . 171) (total-height . 68) (normal-height . 1.0) (normal-width . 1.0) (combination-limit) (leaf (parameters (activities-buffer . #s(activities-buffer :bookmark ... :filename "/Users/jdsmith/.emacs.d/elpa/cape-20231130.2353/ca..." :name "cape.el<cape-20231130.2353>" :local-variables nil :etc ...))) (pixel-width . 602) (pixel-height . 952) (total-width . 86) (total-height . 68) (normal-height . 1.0) (normal-width . 0.5005336179295624) (buffer "cape.el<cape-20231130.2353>" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 35226) (start . 33360)) (prev-buffers (".emacs" 523 16687) ("indent-bars" 1 400))) (vc (last . t) (pixel-width . 597) (pixel-height . 952) (total-width . 85) (total-height . 68) (normal-height . 1.0) (normal-width . 0.4994663820704376) (combination-limit) (leaf (parameters (activities-buffer . ...)) (pixel-width . 597) (pixel-height . 479) (total-width . 85) (total-height . 34) (normal-height . 0.508577194752775) (normal-width . 1.0) (buffer "indent-bars" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 541) (start . 1))) (leaf (parameters (activities-buffer . ...)) (last . t) (pixel-width . 597) (pixel-height . 473) (total-width . 85) (total-height . 34) (normal-height . 0.49142280524722504) (normal-width . 1.0) (buffer "indent-bars.el" (selected) (hscroll . 0) (fringes 8 8 nil nil) (margins nil) (scroll-bars nil 0 t nil 0 t nil) (vscroll . 0) (dedicated) (point . 752) (start . 270))))) :etc ((time 26041 48772 309668 0))) :etc nil) :lastp t)
activities-save-all()
apply(activities-save-all nil)
timer-event-handler([t 0 5 0 t activities-save-all nil idle 0 nil]) |
|
Oops , thanks. |
|
@jdtsmith I'm not actually sure of the best way to handle this. Since I'm not using the frame-based workflow and you are, would you help me think through this? In what cases should we raise the frame, and how will we know that we should? |
|
I can have a closer look tonight, but it seems to me |
Closed
alphapapa
added a commit
that referenced
this issue
Feb 2, 2024
See #4. Reported-by: JD Smith <https://github.com/jdtsmith>
|
I hope that v0.4 will solve this problem. Please let me know what you think. Thanks. |
|
v0.4 does seem to fix the spontaneous raise-frame that was happening, thanks. Now however I have a new issue: I know this is somewhat vague but wanted to mention now in case it was familiar. |
|
I can't understand how that could be happening. The selected window shouldn't have any impact on the loading of a window configuration. Are you saying that that only started happening in v0.4? If so, are you sure? |
|
Pretty certain this behavior just showed up, but it could well be unrelated. Did the saved format for activities change at all? Just created a new activity and it did not have the problem. Here's the "poisoned" one (directories edited to protect the innocent): Problem Activity#s(activities-activity "ind-bars" #s(activities-activity-state
(((min-height . 8)
(min-width . 20)
(min-height-ignore . 6)
(min-width-ignore . 10)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 112)
(min-pixel-width . 140)
(min-pixel-height-ignore . 84)
(min-pixel-width-ignore . 70)
(min-pixel-height-safe . 28)
(min-pixel-width-safe . 28))
hc
(pixel-width . 2560)
(pixel-height . 1426)
(total-width . 366)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
("indent-bars-ts.el"
(filename . "~/code/emacs/indent-bars/indent-bars-ts.el")
(front-context-string . "\nIf non-nil, set")
(rear-context-string . "matched strings.")
(position . 3749)
(last-modified 26038 38292 382527 0)
(defaults "indent-bars-ts.el"))
"/XYZXYZ/code/emacs/indent-bars/indent-bars-ts.el" "indent-bars-ts.el" nil
((indirectp)
(narrowedp)))))
(pixel-width . 1279)
(pixel-height . 1426)
(total-width . 183)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer "indent-bars-ts.el"
(selected . t)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 3749)
(start . 304))
(prev-buffers
("indent-bars-ts.el" 304 3749)
("indent-bars" 1 400)
(".emacs" 14739 38168)
("activities.el" 1 94)
("emacs" 1 145)
("cond-let.el" 1 2729)))
(vc
(last . t)
(pixel-width . 1281)
(pixel-height . 1426)
(total-width . 183)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 0.5)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
("indent-bars"
(filename . "~/code/emacs/indent-bars/")
(front-context-string . "indent-bars.el\n ")
(rear-context-string . "96 Jan 27 22:15 ")
(position . 469)
(last-modified 26038 38292 382928 0)
(defaults "indent-bars"))
nil "indent-bars" nil
((indirectp)
(narrowedp)))))
(pixel-width . 1281)
(pixel-height . 712)
(total-width . 183)
(total-height . 50)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer "indent-bars"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 469)
(start . 1)))
(leaf
(parameters
(activities-buffer . #s(activities-buffer
("indent-bars.el"
(filename . "~/code/emacs/indent-bars/indent-bars.el")
(front-context-string . "\n;; all configur")
(rear-context-string . "igzag, etc.) are")
(position . 1195)
(last-modified 26038 38292 383209 0)
(defaults "indent-bars.el"))
"/XYZXYZ/code/emacs/indent-bars/indent-bars.el" "indent-bars.el" nil
((indirectp)
(narrowedp)))))
(last . t)
(pixel-width . 1281)
(pixel-height . 714)
(total-width . 183)
(total-height . 51)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer "indent-bars.el"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1195)
(start . 1)))))
nil)
#s(activities-activity-state
(((min-height . 8)
(min-width . 20)
(min-height-ignore . 6)
(min-width-ignore . 10)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 112)
(min-pixel-width . 140)
(min-pixel-height-ignore . 84)
(min-pixel-width-ignore . 70)
(min-pixel-height-safe . 28)
(min-pixel-width-safe . 28))
hc
(pixel-width . 1236)
(pixel-height . 998)
(total-width . 177)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer nil nil "*Flymake log*" nil
((indirectp)
(narrowedp)))))
(pixel-width . 616)
(pixel-height . 998)
(total-width . 88)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 0.4983818770226537)
(buffer "*Flymake log*"
(selected . t)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 95)
(start . 95))
(prev-buffers
("indent-bars" 1 400)))
(vc
(last . t)
(pixel-width . 620)
(pixel-height . 998)
(total-width . 89)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 0.5016181229773463)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
("indent-bars"
(filename . "~/code/emacs/indent-bars/")
(front-context-string . "es.org\n -rw-r--")
(rear-context-string . "Jan 18 22:55 not")
(position . 469)
(last-modified 26044 23592 920634 0)
(defaults "indent-bars"))
nil "indent-bars" nil
((indirectp)
(narrowedp)))))
(pixel-width . 620)
(pixel-height . 504)
(total-width . 89)
(total-height . 36)
(normal-height . 0.5050100200400802)
(normal-width . 1.0)
(buffer "indent-bars"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 469)
(start . 1)))
(leaf
(parameters
(activities-buffer . #s(activities-buffer
("indent-bars.el"
(filename . "~/code/emacs/indent-bars/indent-bars.el")
(front-context-string . "\n;; all configur")
(rear-context-string . "igzag, etc.) are")
(position . 1195)
(last-modified 26044 23592 921307 0)
(defaults "indent-bars.el"))
"/XYZXYZ/code/emacs/indent-bars/indent-bars.el" "indent-bars.el" nil
((indirectp)
(narrowedp)))))
(last . t)
(pixel-width . 620)
(pixel-height . 494)
(total-width . 89)
(total-height . 35)
(normal-height . 0.49498997995991983)
(normal-width . 1.0)
(buffer "indent-bars.el"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1195)
(start . 1)))))
((time 26044 23592 921365 0)))
nil)
"#s(activities-activity \"ind-bars\" #s(activities-activity-state
(((min-height . 8)
(min-width . 20)
(min-height-ignore . 6)
(min-width-ignore . 10)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 112)
(min-pixel-width . 140)
(min-pixel-height-ignore . 84)
(min-pixel-width-ignore . 70)
(min-pixel-height-safe . 28)
(min-pixel-width-safe . 28))
hc
(pixel-width . 2560)
(pixel-height . 1426)
(total-width . 366)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
(\"indent-bars-ts.el\"
(filename . \"~/code/emacs/indent-bars/indent-bars-ts.el\")
(front-context-string . \"\\nIf non-nil, set\")
(rear-context-string . \"matched strings.\")
(position . 3749)
(last-modified 26038 38292 382527 0)
(defaults \"indent-bars-ts.el\"))
\"/XYZXYZ/code/emacs/indent-bars/indent-bars-ts.el\" \"indent-bars-ts.el\" nil
((indirectp)
(narrowedp)))))
(pixel-width . 1279)
(pixel-height . 1426)
(total-width . 183)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 0.5)
(buffer \"indent-bars-ts.el\"
(selected . t)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 3749)
(start . 304))
(prev-buffers
(\"indent-bars-ts.el\" 304 3749)
(\"indent-bars\" 1 400)
(\".emacs\" 14739 38168)
(\"activities.el\" 1 94)
(\"emacs\" 1 145)
(\"cond-let.el\" 1 2729)))
(vc
(last . t)
(pixel-width . 1281)
(pixel-height . 1426)
(total-width . 183)
(total-height . 101)
(normal-height . 1.0)
(normal-width . 0.5)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
(\"indent-bars\"
(filename . \"~/code/emacs/indent-bars/\")
(front-context-string . \"indent-bars.el\\n \")
(rear-context-string . \"96 Jan 27 22:15 \")
(position . 469)
(last-modified 26038 38292 382928 0)
(defaults \"indent-bars\"))
nil \"indent-bars\" nil
((indirectp)
(narrowedp)))))
(pixel-width . 1281)
(pixel-height . 712)
(total-width . 183)
(total-height . 50)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer \"indent-bars\"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 469)
(start . 1)))
(leaf
(parameters
(activities-buffer . #s(activities-buffer
(\"indent-bars.el\"
(filename . \"~/code/emacs/indent-bars/indent-bars.el\")
(front-context-string . \"\\n;; all configur\")
(rear-context-string . \"igzag, etc.) are\")
(position . 1195)
(last-modified 26038 38292 383209 0)
(defaults \"indent-bars.el\"))
\"/XYZXYZ/code/emacs/indent-bars/indent-bars.el\" \"indent-bars.el\" nil
((indirectp)
(narrowedp)))))
(last . t)
(pixel-width . 1281)
(pixel-height . 714)
(total-width . 183)
(total-height . 51)
(normal-height . 0.5)
(normal-width . 1.0)
(buffer \"indent-bars.el\"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1195)
(start . 1)))))
nil)
#s(activities-activity-state
(((min-height . 8)
(min-width . 20)
(min-height-ignore . 6)
(min-width-ignore . 10)
(min-height-safe . 2)
(min-width-safe . 4)
(min-pixel-height . 112)
(min-pixel-width . 140)
(min-pixel-height-ignore . 84)
(min-pixel-width-ignore . 70)
(min-pixel-height-safe . 28)
(min-pixel-width-safe . 28))
hc
(pixel-width . 1236)
(pixel-height . 998)
(total-width . 177)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 1.0)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer nil nil \"*Flymake log*\" nil
((indirectp)
(narrowedp)))))
(pixel-width . 616)
(pixel-height . 998)
(total-width . 88)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 0.4983818770226537)
(buffer \"*Flymake log*\"
(selected . t)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 95)
(start . 95))
(prev-buffers
(\"indent-bars\" 1 400)))
(vc
(last . t)
(pixel-width . 620)
(pixel-height . 998)
(total-width . 89)
(total-height . 71)
(normal-height . 1.0)
(normal-width . 0.5016181229773463)
(combination-limit)
(leaf
(parameters
(activities-buffer . #s(activities-buffer
(\"indent-bars\"
(filename . \"~/code/emacs/indent-bars/\")
(front-context-string . \"es.org\\n -rw-r--\")
(rear-context-string . \"Jan 18 22:55 not\")
(position . 469)
(last-modified 26044 23592 920634 0)
(defaults \"indent-bars\"))
nil \"indent-bars\" nil
((indirectp)
(narrowedp)))))
(pixel-width . 620)
(pixel-height . 504)
(total-width . 89)
(total-height . 36)
(normal-height . 0.5050100200400802)
(normal-width . 1.0)
(buffer \"indent-bars\"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 469)
(start . 1)))
(leaf
(parameters
(activities-buffer . #s(activities-buffer
(\"indent-bars.el\"
(filename . \"~/code/emacs/indent-bars/indent-bars.el\")
(front-context-string . \"\\n;; all configur\")
(rear-context-string . \"igzag, etc.) are\")
(position . 1195)
(last-modified 26044 23592 921307 0)
(defaults \"indent-bars.el\"))
\"/XYZXYZ/code/emacs/indent-bars/indent-bars.el\" \"indent-bars.el\" nil
((indirectp)
(narrowedp)))))
(last . t)
(pixel-width . 620)
(pixel-height . 494)
(total-width . 89)
(total-height . 35)
(normal-height . 0.49498997995991983)
(normal-width . 1.0)
(buffer \"indent-bars.el\"
(selected)
(hscroll . 0)
(fringes 8 8 nil nil)
(margins nil)
(scroll-bars nil 0 t nil 0 t nil)
(vscroll . 0)
(dedicated)
(point . 1195)
(start . 1)))))
((time 26044 23592 921365 0)))
nil)
|
|
No, the format didn't change. I think that, if it happens again, we need to treat it as a separate bug. Thanks. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
I think it's important to call
raise-frameon the relevant activity frame, if it is not the current frame, duringactivities-resume.The text was updated successfully, but these errors were encountered: