Emacs: Split post window horizontaly

Jason_SK · July 19, 2023, 9:23am

Hi,

I am using the scel package for supercollider within prelude emacs and I am trying to figure out how to split the post buffer horizontally when calling (sclang-start). I haven’t found any workarounds yet while I don’t fully understand the post-buffer related code in the sclang package.

I tried to use the (sclang-start-right) and (sclang-move-post-buffer-right) functions from:

github.com

dathinaios/spacemacs-supercollider/blob/master/funcs.el


(defun sclang-reset-spacemacs-conf()
  "Reset the library yaml file to defaults. You will have to reinstall
  all your Quarks."
  (interactive)
  (if (y-or-n-p "You will have to re-install all your quarks. Do it?  ")
      (progn
        (defvar dummy-config-file
          "~/.emacs.d/private/supercollider/dummy_conf.yaml")
        (defvar spacemacs-config-file
          "~/Library/Application Support/SuperCollider/spacemacs_conf.yaml")
        (delete-file spacemacs-config-file)
        (copy-file dummy-config-file spacemacs-config-file)
        )))

(defun sclang-create-spacemacs-conf-file ()
  (defvar dummy-config-file
    "~/.emacs.d/private/supercollider/dummy_conf.yaml")
  (defvar spacemacs-config-file
    "~/Library/Application Support/SuperCollider/spacemacs_conf.yaml")

This file has been truncated. show original

But I end up with three buffers instead, it seems like that first the sclang-show-post-buffer-right function from the github repo from above is successful but then the default behaviour of sclang-start is applied to the post buffer itself. And I end up with 3 buffers instead like in the attached picture.

The aim is to have .scd (or workspace) on the left and post buffer on the right.

Any help would be appreciated!

mstep · July 19, 2023, 2:38pm

this is the default behaviour of sclang-start (at least on my system) so my guess is that you don-t want- to trigger sclang-move-post-buffer-right from:

github.com

dathinaios/spacemacs-supercollider/blob/master/funcs.el#L24


      
                  )))
          
          (defun sclang-create-spacemacs-conf-file ()
            (defvar dummy-config-file
              "~/.emacs.d/private/supercollider/dummy_conf.yaml")
            (defvar spacemacs-config-file
              "~/Library/Application Support/SuperCollider/spacemacs_conf.yaml")
            (unless (file-exists-p spacemacs-config-file)
              (copy-file dummy-config-file spacemacs-config-file)))
          
          (defun sclang-move-post-buffer-right ()
            (delete-other-windows)
            (split-window-horizontally)
            (switch-to-buffer-other-window "*SCLang:PostBuffer*")
            (other-window -1)
            (spacemacs/enlarge-window-horizontally 20)
            ;; make the current window 60% of the screen wide
            (window-resize nil (- (truncate (* 0.6 (frame-width))) (window-width)) t)
            )
          
          (defun sclang-start-right ()

Jason_SK · July 19, 2023, 2:43pm

Thanks for your reply

If I understood your reply right, is the default for you horizontal split ?

I need to overwrite the default behaviour (splitting windows vertically) with horizontal split

mstep · July 19, 2023, 2:51pm

This is the result of M-X sclang-start on my system (vanilla emacs 28.2).

Jason_SK · July 19, 2023, 3:21pm

Oh, if that is the case I might have to look more carefully into my personal scel config, I have loads of things so there might be something overwriting the default behaviour.

Thanks again!

Jason_SK · July 19, 2023, 3:31pm

Yes that is correct, default behaviour is horizontally but only when Emacs (I use GUI not within terminal) window size is “large enough” as I understand it. I did not find any reference on this though neither understand what is the limit. Whenever I have Emacs on full screen either maximised it splits horizontally. However, whenever Emacs window is either left or right half split, post buffer splits vertically.

If I manage to tweak that behaviour I will report it here. Because I rarely split vertically with only 2 buffers.

mstep · July 19, 2023, 7:06pm

Emacs has a user-option split-window-preferred-function:

it is set by default to split-window-sensibly:

there it says:

[split-window-sensibly] first tries to split by placing the new window below, subject to the restriction imposed by split-height-threshold […], in addition to any other restrictions. If that fails, it tries to split by placing the new window to the right, subject to split-width-threshold (see below). If that also fails, and the window is the only window on its frame, this function again tries to split and place the new window below, disregarding split-height-threshold. If this fails as well, this function gives up and returns nil.

there are also some helpful comments in the sourcefile:

github.com

emacs-mirror/emacs/blob/e2cc16fbd0d16e6c0ff59221af49e3d4113500cd/lisp/window.el#L7117


      
          	;; fixed, it is at least `split-height-threshold' lines high,
          	;; and it is at least twice as high as `window-min-height' and 2
          	;; if it has a mode line or 1.
          	(and (memq window-size-fixed '(nil width))
          	     (numberp split-height-threshold)
          	     (>= (window-height window)
          		 (max split-height-threshold
          		      (* 2 (max window-min-height
          				(if mode-line-format 2 1))))))))))
          
          (defun split-window-sensibly (&optional window)
            "Split WINDOW in a way suitable for `display-buffer'.
          WINDOW defaults to the currently selected window.
          If `split-height-threshold' specifies an integer, WINDOW is at
          least `split-height-threshold' lines tall and can be split
          vertically, split WINDOW into two windows one above the other and
          return the lower window.  Otherwise, if `split-width-threshold'
          specifies an integer, WINDOW is at least `split-width-threshold'
          columns wide and can be split horizontally, split WINDOW into two
          windows side by side and return the window on the right.  If this
          can't be done either and WINDOW is the only window on its frame,

Jason_SK · July 22, 2023, 12:02am

Aha! That makes sense, read the function docs in Emacs. Thanks for looking into it. I am planning to tweak that in the future specifically for scel. I will come back here and post the function if I manage to adapt that to the sophisticated scel code Cheers!

kflak · July 19, 2024, 7:44am

I wanted to replicate my scnvim setup, and this works for me:

(use-package sclang
  :defer
  :config
  (setq sclang-show-workspace-on-startup nil)
  (add-to-list 'display-buffer-alist
   '("*SCLang:PostBuffer*" display-buffer-in-side-window
     (side . right)
     (window-width . 60))))

Puts the post window nicely on the right side without eating up half my screen