Run catkin build in emacs

catkin.el

;; Based on https://www.seas.upenn.edu/~chaoliu/2018/03/12/ros-programming-in-emacs/#org8817889
(require 'ansi-color)
(defun endless/colorize-compilation ()
  "Colorize from `compilation-filter-start' to `point'."
  (let ((inhibit-read-only t))
    (ansi-color-apply-on-region
     compilation-filter-start (point))))

(add-hook 'compilation-filter-hook
          #'endless/colorize-compilation)


(defun ros-catkin-make (dir)
  "Run catkin_make command in DIR."
  (interactive (list (file-name-directory (buffer-file-name))))
  (let* ((default-directory dir)
         (compilation-buffer-name-function (lambda (major-mode-name) "*catkin_make*")))
    (compile "catkin bt --no-status"))
  ;; (switch-to-buffer (get-buffer "*catkin_make*"))
  (switch-to-buffer-other-window (get-buffer-create "*catkin_make*"))
  )
(global-set-key [f5] 'ros-catkin-make)