any way to get white margin around text?

any way to get white margin around text?

[Jean Louis]

I would like to get margin around the text, let us say 2 lines from
top and 4 columns from the left side. The marging should not be
indentation or something that is part of text, but rather only visual.

The command `set-left-margin' does not do what I mean, it sets margin
but is part of the text. I just would like it visually separated form
the window borders to gain better nicer note display.









    
  

Re: any way to get white margin around text?

[Omar Polo]

Jean Louis <bugs@gnu.support> writes:

> I would like to get margin around the text, let us say 2 lines from
> top and 4 columns from the left side. The marging should not be
> indentation or something that is part of text, but rather only visual.
>
> The command `set-left-margin' does not do what I mean, it sets margin
> but is part of the text. I just would like it visually separated form
> the window borders to gain better nicer note display.

set-window-margin should do what you're saying.  For instance

    (set-window-margin (get-buffer-window) 4 4)

will set the borders on both sides to 4 columns, without affecting the
buffer content.  The fringe will be between the margin and the buffer
content though.

(I've never used this function directly before, I've found it now by
inspecting the olivetti-mode implementation)

HTH

RE: any way to get white margin around text?

[Drew Adams]

> set-window-margin should do what you're saying.  For instance
> 
>     (set-window-margin (get-buffer-window) 4 4)
> 
> will set the borders on both sides to 4 columns, without affecting the
> buffer content.  The fringe will be between the margin and the buffer
> content though.

`set-window-margins', not `set-window-margin'.

Re: any way to get white margin around text?

[Omar Polo]

Drew Adams <drew.adams@oracle.com> writes:

>> set-window-margin should do what you're saying.  For instance
>> 
>>     (set-window-margin (get-buffer-window) 4 4)
>> 
>> will set the borders on both sides to 4 columns, without affecting the
>> buffer content.  The fringe will be between the margin and the buffer
>> content though.
>
> `set-window-margins', not `set-window-margin'.

Ops, I tried it in the scratch buffer, but for some reason I decided to
re-type it by hand.

Re: any way to get white margin around text?

[Jean Louis]

* Omar Polo <op@omarpolo.com> [2020-12-24 21:56]:
> 
> Jean Louis <bugs@gnu.support> writes:
> 
> > I would like to get margin around the text, let us say 2 lines from
> > top and 4 columns from the left side. The marging should not be
> > indentation or something that is part of text, but rather only visual.
> >
> > The command `set-left-margin' does not do what I mean, it sets margin
> > but is part of the text. I just would like it visually separated form
> > the window borders to gain better nicer note display.
> 
> set-window-margin should do what you're saying.  For instance
> 
>     (set-window-margin (get-buffer-window) 4 4)
> 
> will set the borders on both sides to 4 columns, without affecting the
> buffer content.  The fringe will be between the margin and the buffer
> content though.
> 
> (I've never used this function directly before, I've found it now by
> inspecting the olivetti-mode implementation)

Thank you, I have made now this:

(defun rcd-word-processing ()
  "Sets margins around `fill-column' and invokes `ruler-mode'"
  (interactive)
  (let ((fill-column (or fill-column 70))
	(width (window-total-width)))
    (when (> width fill-column)
      (let* ((left (/ (- width fill-column) 2))
	     (right (- width left fill-column)))
	(set-window-margins (get-buffer-window) left right)))
    (ruler-mode)))

That is already good, although the top display margin I still do not
know how to set but is not important.

The above function is not handling zooming and set-fill-column
automatically. It is still more enjoyable with margins.

And if I could now use margins for some reference lists, click and
insert...

RE: any way to get white margin around text?

[Drew Adams]

> (defun rcd-word-processing ()
>   "Sets margins around `fill-column' and invokes `ruler-mode'"
>   (interactive)
>   (let ((fill-column (or fill-column 70))
> 	(width (window-total-width)))
>     (when (> width fill-column)
>       (let* ((left (/ (- width fill-column) 2))
> 	         (right (- width left fill-column)))
> 	(set-window-margins (get-buffer-window) left right)))
>     (ruler-mode)))
> 
> The above function is not handling zooming and set-fill-column
> automatically. It is still more enjoyable with margins.

1. I don't see the problem with setting the fill-column.
   But maybe you want to also turn on `auto-fill-mode'.
   Or maybe you want to refill the existing text
   (`fill-region' or similar).

2. If you use library `zoom-frm.el' zooming works fine.

   That is to say that frame-zooming takes care of the
   margin also.  But buffer-zooming (aka text-scaling)
   does not.  (`C-u' with a zooming command flips between
   frame-zooming and buffer-zooming.)

   In addition to the recommended key bindings, you might
   want to add bindings for the margins, such as these
   same as the recommended ones, but for use in the
   margins:

   (global-set-key [left-margin  C-wheel-down] 'zoom-in)
   (global-set-key [right-margin C-wheel-down] 'zoom-in)
   (global-set-key [left-margin  C-wheel-up]   'zoom-out)
   (global-set-key [right-margin C-wheel-up]   'zoom-out)

Re: any way to get white margin around text?

[Jean Louis]

Thank you.

What I find more important would be to `ps-print-buffer-with-faces' in
exact same line order as shown on screen. That is missing in Emacs and
would be useful to have dynamic calculation so that lines as shown on
screen are printed properly.

If these lines are shown
on screen then the printer
function would rather give
this output here:

If these lines are shown on screen then the printer function would
rather give this output here.

Unless I increase ps fonts then it becomes somehow similar as on
screen. But that is guess work, it requires formula.