Updating outline-regexp and outline-heading-alist for various major modes

[uzibalqa]

I am setting outline-regexp and outline-heading-alist for various major modes.
As I increase the number of major modes I handle, it would be good not to repeat
things so much. 

  (cond
    ((eq major-mode 'emacs-lisp-mode)
          (let ( (hrklevels elisp-hrklevels) )
            (setq outline-regexp
                  (concat (regexp-opt (mapcar 'car hrklevels)) "\\>"))
            (setq outline-heading-alist hrklevels)))

    ((eq major-mode 'sh-mode)
          (let ( (hrklevels bash-hrklevels) )
            (setq outline-regexp
                  (concat (regexp-opt (mapcar 'car hrklevels)) "\\>"))
            (setq outline-heading-alist hrklevels))) ))







Sent with Proton Mail secure email.