I use:
;;;###autoload
(defun tq-increase-text-size ()
"Increase text size."
(interactive)
(set-face-attribute 'default nil :height
(truncate (* 1.1 (face-attribute 'default :height)))))
;;;###autoload
(defun tq-decrease-text-size ()
"Decrease text size."
(interactive)
(set-face-attribute 'default nil :height
(truncate (* 0.9 (face-attribute 'default :height)))))
which I bind to C-- and C-= to shrink the font size down until it fits,
then when I am done increase it.
John
-----------------------------------
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
On Thu, Dec 1, 2016 at 3:17 PM, David Talmage <[email protected]>
wrote:
> I'm looking for ways to make a wide table more readable. My motivation is
> from a table that is too wide to fit on my screen. I need to be able to
> see all of the contents of a cell. If it were just text, I'd use M-q
> (fill-paragraph). I've already tried org-table-wrap-region and couldn't
> figure it out.
>
>
>
