From d241221046981ec3f43b267fa038bfdee9e8ec3d Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 24 May 2021 17:07:21 -0500 Subject: Remove modeline customization in acdw/reading-mode --- groups.txt | 1 - lisp/acdw.el | 13 +------------ 2 files changed, 1 insertion(+), 13 deletions(-) diff --git a/groups.txt b/groups.txt index 1239889..8b56dcc 100644 --- a/groups.txt +++ b/groups.txt @@ -28,7 +28,6 @@ nntp+news.gwene.org:gwene.com.xkcd nntp+news.gwene.org:gwene.dance.hamster.blog nntp+news.gwene.org:gwene.de.uninformativ.blog.feeds.en nntp+news.gwene.org:gwene.info.benjaminwil.antisocial -nntp+news.gwene.org:gwene.institute.tilde.xfnw.sandcats nntp+news.gwene.org:gwene.io.github.chrisman nntp+news.gwene.org:gwene.io.github.wphicks nntp+news.gwene.org:gwene.io.jao.blog diff --git a/lisp/acdw.el b/lisp/acdw.el index f607695..9ac315c 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el @@ -427,17 +427,7 @@ Prompt only if there are unsaved changes." (if acdw/reading-mode (progn ;; turn on ;; settings - (setq-local mode-line-format - '(:eval - (let* ((fmt " Reading %b") - (len (length (format-mode-line fmt)))) - (concat - (propertize " " - 'display `((space :align-to (- right - ,len))) - 'face '(:inherit italic)) - fmt))) - orig-indicate-empty-lines indicate-empty-lines + (setq-local orig-indicate-empty-lines indicate-empty-lines indicate-empty-lines nil orig-indicate-buffer-boundaries indicate-buffer-boundaries indicate-buffer-boundaries nil) @@ -453,7 +443,6 @@ Prompt only if there are unsaved changes." ;; settings (setq-local indicate-empty-lines orig-indicate-empty-lines indicate-buffer-boundaries orig-indicate-buffer-boundaries) - (kill-local-variable 'mode-line-format) ;; enable modes (dolist (mode '(display-fill-column-indicator-mode)) (when (fboundp mode) -- cgit 1.4.1-21-gabe81