bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#41852: 27.0.50; text-scale commands don't scale header of tabulated-


From: Jean Louis
Subject: bug#41852: 27.0.50; text-scale commands don't scale header of tabulated-list-mode
Date: Fri, 13 Nov 2020 16:00:23 +0300
User-agent: Mutt/2.0 (3d08634) (2020-11-07)

I am aware of problem that header in tabulated-list-mode did not
enlarge.

I have tried patching the current git but get problems. Please send me
the full tabulated-list.el that I can try it.

Loading file 
/home/data1/protected/Programming/Software/emacs/lisp/emacs-lisp/tabulated-list.el
 failed to provide feature ‘tabulated-list’
make[1]: *** [Makefile:817: bootstrap-emacs.pdmp] Error 255
make[1]: Leaving directory 
'/home/data1/protected/Programming/Software/emacs/src'
make: *** [Makefile:424: src] Error 2
[~/Programming/Software/emacs]

For your note I am using tabulated-list-mode with somewhat enlarged
faces from default. I would like to test that enhancement.

(define-derived-mode hyperscope-mode tabulated-list-mode "Hyperscope" "Major 
Hyperscope mode"
  (hyperscope-text-scale-adjust 'hyperscope-mode)
  (setq tabulated-list-format [("ID" 8 t :right-align t)
                               ("Hyperlink" 70 t)
                               ("Type" 10 t)])
  (setq tabulated-list-padding 1)
  ;; (setq tabulated-list-sort-key (cons "ID" nil))
  (tabulated-list-init-header))

(defun hyperscope-text-scale-adjust (symbol)
  (let ((adjust nil)) ;; TODO customize to turn off or on
    (if (and adjust (eql symbol 'hyperscope-mode))
        (text-scale-adjust 2)
      (if (and adjust (eql symbol 'hyperscope-text-view-mode))
          (text-scale-adjust 1)
        (if (and adjust (eql symbol 'hyperscope-org-view-mode))
            (text-scale-adjust 1))))))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]