X-Git-Url: https://iankelling.org/git/?p=dot-emacs;a=blobdiff_plain;f=misc-disabled.el;fp=misc-disabled.el;h=ac5fea81e8b31389f869393eb6f6c1791ff799ff;hp=2804aa639e505495b120ad1d107bc0a89e85491d;hb=38ab2149c487ef7ea4c99d1cdc321fa9065ab2c3;hpb=318f10aac932014c2ec2531bc49ccc26d7510edc

diff --git a/misc-disabled.el b/misc-disabled.el
index 2804aa6..ac5fea8 100644
--- a/misc-disabled.el
+++ b/misc-disabled.el
@@ -439,3 +439,22 @@
 
 ;; Except in HTML
 (sp-local-pair 'html-mode "\"" nil :unless '(:rem sp-point-after-word-p))
+
+
+
+
+;; alias the new `flymake-report-status-slim' to
+;; `flymake-report-status'
+(defalias 'flymake-report-status 'flymake-report-status-slim)
+(defun flymake-report-status-slim (e-w &optional status)
+  "Show \"slim\" flymake status in mode line."
+  (when e-w
+    (setq flymake-mode-line-e-w e-w))
+  (when status
+    (setq flymake-mode-line-status status))
+  (let* ((mode-line " Φ"))
+    (when (> (length flymake-mode-line-e-w) 0)
+      (setq mode-line (concat mode-line ":" flymake-mode-line-e-w)))
+    (setq mode-line (concat mode-line flymake-mode-line-status))
+    (setq flymake-mode-line mode-line)
+    (force-mode-line-update)))