This is much better

config-emacs.org

@@ -162,10 +162,7 @@
 * colorful compilation buffer
 #+begin_src emacs-lisp
   (require 'ansi-color)
-  (defun colorize-compilation-buffer ()
+  (add-hook 'compilation-filter-hook 'ansi-color-compilation-filter)
-    (let ((buffer-read-only nil))
-      (ansi-color-apply-on-region (point-min) (point-max))))
-  (add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
 #+end_src
 * World time
 #+begin_src emacs-lisp

config-programming.org

@@ -190,7 +190,13 @@
         (projectile--run-project-cmd command projectile-compilation-cmd-map
                                      :show-prompt arg
                                      :prompt-prefix "Compile command: "
-                                     :save-buffers t))))
+                                     :save-buffers t)))
+
+    (defun projectile-back-to-root ()
+      (interactive)
+      (dired (projectile-project-root)))
+
+    (global-set-key (kbd "C-x C-d") #'projectile-back-to-root))
 #+end_src
 * Slime mode
 #+BEGIN_SRC emacs-lisp

lisp/ti-config/work-mail.el

@@ -50,12 +50,12 @@
         (:key ?a :maildir "/work/Done")))
 
 (setq mu4e-bookmarks
-      '(( :name  "Unread messages"
+      '(( :name  "Inbox"
-          :query "flag:unread AND NOT maildir:/work/Other* AND NOT flag:trashed"
-          :key ?u)
-        ( :name  "Inbox"
           :query "maildir:/work/INBOX AND NOT flag:trashed"
           :key ?i)
+        ( :name  "Unread messages"
+          :query "flag:unread AND NOT maildir:/work/Other* AND NOT flag:trashed"
+          :key ?u)
         ( :name  "mailing_lists"
           :query "maildir:/work/INBOX/mailing_lists* AND NOT flag:trashed"
           :key ?m)