Managing outline-minor-mode to mode hooks

Is there a better way that might improve the addition or 
removal of outline-minor-mode?  Perhaps simply apply more
conveniently to prog-mode-hook?  Are there any other modes 
where it would be advantageous to add outline-minor-mode? 


(defun kronaire-outlmr-mdhooks (actm)
  (let ( (mhls '(sh-mode-hook
                 python-mode-hook
                 emacs-lisp-mode-hook
                 lisp-interaction-mode-hook
                 org-mode-hook
                 latex-mode-hook
                 texinfo-mode-hook
                 plain-tex-mode-hook
                 f90-mode-hook
                 fortran-mode-hook))

         (hkfn (cond
                  ((eq actm 'add) #'add-hook)
                  ((eq actm 'remove) #'remove-hook)
                  (t (error "%s ACTM %s is invalid"
                       "kronaire-outl-mdhooks, "
                       actm)))) )

    (dolist (mdhook mhls)
      ;; (funcall 'add-hook sh-mode-hook #'outline-minor-mode)
      (funcall hkfn mdhook #'outline-minor-mode)) ))