Added feebleline.el

1 files changed, 118 insertions, 0 deletions

diff --git a/feebleline.el b/feebleline.el
new file mode 100644
index 0000000..f218027
--- /dev/null
+++ b/feebleline.el
@@ -0,0 +1,118 @@
+;;; package --- summary
+;;; feebleline.el
+
+;; Copyright 2018 Benjamin Lindqvist
+
+;; Author: Benjamin Lindqvist <benjamin.lindqvist@gmail.com>
+;; Maintainer: Benjamin Lindqvist <benjamin.lindqvist@gmail.com>
+;; URL: https://github.com/tautologyclub/feeblel
+;; Package-Version:
+;; Version: 1.0
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; For hardline Luddite editing!
+
+;; Feebleline removes the modeline and replaces it with a slimmer proxy
+;; version, which displays some basic information in the echo area
+;; instead.  This information is only displayed if the echo area is not used
+;; for anything else (but if you switch frame/window, it will replace whatever
+;; message is currently displayed).
+
+;; NOTE:
+;; feebleline.el will look considerably better with the following
+;; settings:
+
+;;   (window-divider-mode t)
+;;   (setq window-divider-default-bottom-width 1)
+;;   (setq window-divider-default-places (quote bottom-only))
+
+;; But this mode does not work for all EMACS versions and may not work with
+;; terminal EMACS (but I haven't checked).  If you're on GUI EMACS and your
+;; version supports it, just place the following in your init file:
+
+;;   (feebleline-default-settings)
+
+;; Otherwise, do (feebleline-mode t) instead, but be warned that I'm not sure
+;; if it will look good.
+
+;;; Code:
+
+(require 'advice)
+(defvar feebleline/mode-line-format-default)
+(defvar feebleline/timer)
+(defvar feebleline/default-log-max)
+
+(defun feebleline-default-settings ()
+  "Some default settings that works well with feebleline."
+  (custom-set-variables
+   '(window-divider-default-bottom-width 1)
+   '(window-divider-default-places (quote bottom-only)))
+  (window-divider-mode t)
+  (feebleline-mode t))
+
+(define-minor-mode feebleline-mode
+  "Replace modeline with a slimmer proxy."
+  :global t
+  (if feebleline-mode
+      (progn
+        (setq feebleline/mode-line-format-default mode-line-format)
+        (setq feebleline/timer (run-with-timer 0 0.1 'mode-line-proxy-fn))
+        (custom-set-variables '(mode-line-format nil))
+        (ad-activate 'handle-switch-frame)
+        (add-hook 'focus-in-hook 'mode-line-proxy-fn))
+    (custom-set-variables
+     '(mode-line-format feebleline/mode-line-format-default))
+    (cancel-timer feebleline/timer)
+    (ad-deactivate 'handle-switch-frame)
+    (remove-hook 'focus-in-hook 'mode-line-proxy-fn)))
+
+;; (defvar msg-string)
+;; (defun mode-line-proxy-string-fn () (interactive)
+;;   "Hej."
+;;   (setq msg-string (concat "a" "b"))
+;;   (message "%s" msg-string))
+
+(defun message-buffer-file-name-or-nothing ()
+  "Replace echo-area message with mode-line proxy."
+  (setq feebleline/default-log-max message-log-max)
+  (unwind-protect
+      (progn
+        (setq message-log-max nil)
+        (if buffer-file-name
+            (message "[%s] %s/%s @ %s"
+                     (format-time-string "%H:%M:%S")
+                     (string-to-number (format-mode-line "%l"))
+                     (current-column)
+                     (buffer-file-name))))
+    (setq message-log-max feebleline/default-log-max)))
+
+(defun mode-line-proxy-fn ()
+  "Put a mode-line proxy in the echo area *if* echo area is empty."
+  (if (not (current-message))
+      (message-buffer-file-name-or-nothing)))
+
+(defadvice handle-switch-frame (after switch-frame-message-name)
+  "Get the modeline proxy to work with i3 switch focus."
+  (message-buffer-file-name-or-nothing)
+  ad-do-it
+  (message-buffer-file-name-or-nothing))
+
+(provide 'feebleline)
+
+;;; feebleline.el ends here