X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=emacs.el;h=a3e138646460eb8c1647c40fc4fac5aef551fff5;hp=4328fb5d5c80a7430355d4c11005f71a1c885001;hb=a4beb5269fa0161160fb23997d9d7c9153184c1a;hpb=5f219784ed5b5f3a2e53591f39fef83771dd0ea0

diff --git a/emacs.el b/emacs.el
index 4328fb5..a3e1386 100644
--- a/emacs.el
+++ b/emacs.el
@@ -219,6 +219,12 @@ load-warning buffer in case of failure."
  mc-use-default-recipients t
 
  ;; browse-url-new-window-flag t
+
+ ;; I do not like compilation to automatically split the active window
+ ;; vertically, even when the said window is very wide
+ split-height-threshold 0
+ split-width-threshold nil
+
  )
 
 ;; The backups
@@ -300,7 +306,7 @@ load-warning buffer in case of failure."
 (add-to-list 'auto-mode-alist '("\\.txt\\'" . (lambda()
                                                 (text-mode)
                                                 (orgtbl-mode)
-                                                (auto-fill-mode)
+                                                ;; (auto-fill-mode)
                                                 (flyspell-mode))))
 
 (add-hook 'c++-mode-hook 'flyspell-prog-mode)
@@ -476,10 +482,10 @@ load-warning buffer in case of failure."
                 :inverse-video nil)
      (header-line :background "cornflowerblue" :foreground "black" :box nil
                   :inverse-video nil)
-     (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
+     (mode-line-inactive :background "gray80" :foreground "black" :box nil
                          :inverse-video nil)
      ;; (fringe :background "black" :foreground "gray90")
-     (fringe :background "gray75")
+     (fringe :background "gray80")
      (ff/date-info-face :foreground "white" :weight 'bold)
      (ff/mail-alarm-face :foreground "white" :background "red2")
      ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
@@ -2354,10 +2360,12 @@ proposes to visit them."
   )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; My script to automatically count the number of words and characters
+;; between two markers
 
-(load "text-counters.el")
+(ff/load-or-alert "text-counters.el")
 
-;; Add them when entering the text-mode
+;; Display them in the modeline when in text-mode
 
 (add-hook 'text-mode-hook 'tc/add-text-counters-in-modeline)
 
@@ -2438,6 +2446,30 @@ with a time tag, and save this file"
     )
   )
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Let's be zen. Remove the modeline and fringes.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(setq ff/zen-original-setting nil)
+
+(defun ff/zen () (interactive)
+  (if ff/zen-original-setting
+      (setq mode-line-format (car ff/zen-original-setting)
+            fringe-mode (cdr ff/zen-original-setting)
+            ff/zen-original-setting nil)
+    (setq ff/zen-original-setting (cons mode-line-format fringe-mode)
+          mode-line-format nil
+          fringe-mode '(0 . 0))
+    (delete-other-windows)
+    )
+  (fringe-mode fringe-mode)
+  (if ff/zen-original-setting
+      (message "Zen mode")
+    (message "Cluttered mode"))
+  )
+
+;; (define-key global-map [(control x) (x)] 'ff/zen)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; My own keymap
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2503,6 +2535,7 @@ with a time tag, and save this file"
 (define-key ff/map [?\C-3] 'ff/twin-horizontal-current-buffer)
 
 (define-key ff/map " " 'delete-trailing-whitespace)
+(define-key ff/map [(control x)] 'ff/zen)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Hacks so that all keys are functionnal in xterm and through ssh.