summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-05-24 17:07:21 -0500
committerCase Duckworth2021-05-24 17:07:21 -0500
commitd241221046981ec3f43b267fa038bfdee9e8ec3d (patch)
tree08c7cfcac90142f24b68021e926b9f6a45615f28
parentUnsubscribe from a few feeds (diff)
downloademacs-d241221046981ec3f43b267fa038bfdee9e8ec3d.tar.gz
emacs-d241221046981ec3f43b267fa038bfdee9e8ec3d.zip
Remove modeline customization in acdw/reading-mode
-rw-r--r--groups.txt1
-rw-r--r--lisp/acdw.el13
2 files changed, 1 insertions, 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
28nntp+news.gwene.org:gwene.dance.hamster.blog 28nntp+news.gwene.org:gwene.dance.hamster.blog
29nntp+news.gwene.org:gwene.de.uninformativ.blog.feeds.en 29nntp+news.gwene.org:gwene.de.uninformativ.blog.feeds.en
30nntp+news.gwene.org:gwene.info.benjaminwil.antisocial 30nntp+news.gwene.org:gwene.info.benjaminwil.antisocial
31nntp+news.gwene.org:gwene.institute.tilde.xfnw.sandcats
32nntp+news.gwene.org:gwene.io.github.chrisman 31nntp+news.gwene.org:gwene.io.github.chrisman
33nntp+news.gwene.org:gwene.io.github.wphicks 32nntp+news.gwene.org:gwene.io.github.wphicks
34nntp+news.gwene.org:gwene.io.jao.blog 33nntp+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."
427 (if acdw/reading-mode 427 (if acdw/reading-mode
428 (progn ;; turn on 428 (progn ;; turn on
429 ;; settings 429 ;; settings
430 (setq-local mode-line-format 430 (setq-local orig-indicate-empty-lines indicate-empty-lines
431 '(:eval
432 (let* ((fmt " Reading %b")
433 (len (length (format-mode-line fmt))))
434 (concat
435 (propertize " "
436 'display `((space :align-to (- right
437 ,len)))
438 'face '(:inherit italic))
439 fmt)))
440 orig-indicate-empty-lines indicate-empty-lines
441 indicate-empty-lines nil 431 indicate-empty-lines nil
442 orig-indicate-buffer-boundaries indicate-buffer-boundaries 432 orig-indicate-buffer-boundaries indicate-buffer-boundaries
443 indicate-buffer-boundaries nil) 433 indicate-buffer-boundaries nil)
@@ -453,7 +443,6 @@ Prompt only if there are unsaved changes."
453 ;; settings 443 ;; settings
454 (setq-local indicate-empty-lines orig-indicate-empty-lines 444 (setq-local indicate-empty-lines orig-indicate-empty-lines
455 indicate-buffer-boundaries orig-indicate-buffer-boundaries) 445 indicate-buffer-boundaries orig-indicate-buffer-boundaries)
456 (kill-local-variable 'mode-line-format)
457 ;; enable modes 446 ;; enable modes
458 (dolist (mode '(display-fill-column-indicator-mode)) 447 (dolist (mode '(display-fill-column-indicator-mode))
459 (when (fboundp mode) 448 (when (fboundp mode)