Add function to set the frame font

emacs/.emacs.d/config/init-ide.el

@@ -62,7 +62,15 @@
   :straight (:type built-in)
   :commands compile
   :config
-  (evil-collection-compile-setup))
+  (evil-collection-compile-setup)
+  (defun postprocess-compilation-buffer ()
+    (goto-char compilation-filter-start)
+    (when (looking-at "\033c")
+      (delete-region (point-min) (match-end 0)))
+    (ansi-color-apply-on-region (point) (point-max)))
+  (add-hook 'compilation-filter-hook 'postprocess-compilation-buffer))
+
+
 
 ;; Code formatting library
 (use-package apheleia

emacs/.emacs.d/config/init-run-command.el

@@ -183,6 +183,13 @@
              :command-line "web-ext build"
              :working-dir dir))))
 
+  (defun run-command-recipe-pip ()
+    (when (and (buffer-file-name)
+               (string-match-p ".*requirements.*txt$" (buffer-file-name)))
+      (list
+       (list :command-name "install"
+             :command-line (format "pip install -r %s" (buffer-file-name))))))
+
   :general
   (leader-map "\"" #'run-command)
   (run-command-term-minor-mode-map [remap recompile] #'run-command-term-recompile)
@@ -200,6 +207,7 @@
                          run-command-recipe-kustomize
                          run-command-recipe-sops
                          run-command-recipe-pytest
-                         run-command-recipe-web-ext)))
+                         run-command-recipe-web-ext
+                         run-command-recipe-pip)))
 
 (provide 'init-run-command)

emacs/.emacs.d/config/init-ui.el

@@ -19,4 +19,11 @@
 (use-package hide-mode-line
   :commands hide-mode-line-mode)
 
+;; A function to set the frame font
+(defun set-font (font)
+  "Set the frame font to `font'"
+  (interactive (list (completing-read "Font: "
+                                      (delete-dups (font-family-list)))))
+  (set-frame-font font))
+
 (provide 'init-ui)