Text-scale-increase and headings

[trmd]

Hi, saw that this was mentioned in #8 already.

Is it possible or will it be possible to use text-scale-increase and get headings to also increase?

[kunalb]

Note to self:
I need to figure out a way to derive all heights from 'default but also allow poet to modify it temporarily while it is active.

Broken code for reference later:

(defun poet-theme--height (multiplier)
  "Returns the height as MULTIPLIER * variable-pitch height."
  (let ((multiplier (* poet-theme-variable-pitch-multiplier
                       (if text-scale-mode
                           (expt text-scale-mode-step
                                 text-scale-mode-amount)
                         1))))
    (if poet-theme-variable-headers
        (truncate (* multiplier (* poet-theme-monospace-height multiplier)))
      (truncate (* multiplier poet-theme-monospace-height)))))