diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index 4409af6..2151d66 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -398,6 +398,34 @@ MODE1 is enabled and vice-versa." (use-package apache-mode :ensure t :defer t) +;;; Show a “beacon” when cursor position changes +;; `beacon-mode' is a minor mode that shows a temporary gradient +;; whenever the cursor screen position changes in a (somewhat) +;; unpredictable way. For example, when you switch buffers, when the +;; window scrolls because you’ve reached the top of the window, etc. +(use-package beacon + :ensure t + :commands (beacon-mode) + :config + ;;; Don’t show a beacon everywhere + ;; Beacon by default already doesn’t show in certain buffers with + ;; certain major modes, currently only =magit-status-mode= disables + ;; the beacon. I have some more that I’d like to add. + (setq beacon-dont-blink-major-modes + (append beacon-dont-blink-major-modes + '(circe-channel-mode + circe-server-mode + magit-diff-mode + gnus-summary-mode + gnus-group-mode))) + ;;; Show a beacon when recentering + ;; Somehow I always get confused when I recenter my screen, is it in + ;; the center, top or bottom? Beacon disables itself for the + ;; recentering command, and I want it enabled, even though this is + ;; completely predictable. + (setq beacon-dont-blink-commands + (delq 'recenter-top-bottom beacon-dont-blink-commands))) + (use-package eap :load-path "vendor-lisp/eap" :commands (eap) @@ -740,6 +768,7 @@ MODE1 is enabled and vice-versa." (savehist-mode) (show-paren-mode) (winner-mode) +(beacon-mode) (help-at-pt-set-timer) (windmove-default-keybindings) diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org index e837556..63f11c6 100644 --- a/emacs/.emacs.d/init.org +++ b/emacs/.emacs.d/init.org @@ -1708,51 +1708,6 @@ <>) #+END_SRC -** Show a “beacon” when cursor position changes - - #+BEGIN_SRC emacs-lisp :tangle no - (depends-on "beacon") - #+END_SRC - - =beacon-mode= is a new minor mode that shows a temporary gradient - whenever the cursor screen position changes in a (somewhat) - unpredictable way. For example, when you switch buffers, when the - window scrolls because you’ve reached the top of the window, etc. - - #+BEGIN_SRC emacs-lisp - (beacon-mode) - #+END_SRC - -*** Don’t show a beacon everywhere - - Beacon by default already doesn’t show in certain buffers with - certain major modes, currently only =magit-status-mode= disables the - beacon. I have some more that I’d like to add. - - #+BEGIN_SRC emacs-lisp - (stante-after beacon - (setq beacon-dont-blink-major-modes - (append beacon-dont-blink-major-modes - '(circe-channel-mode - circe-server-mode - magit-diff-mode - gnus-summary-mode - gnus-group-mode)))) - #+END_SRC - -*** Show a beacon when recentering - - Somehow I always get confused when I recenter my screen, is it in - the center, top or bottom? Beacon disables itself for the - recentering command, and I want it enabled, even though this is - completely predictable. - - #+BEGIN_SRC emacs-lisp - (stante-after beacon - (setq beacon-dont-blink-commands - (delq 'recenter-top-bottom beacon-dont-blink-commands))) - #+END_SRC - ** Hightlight numbers mode I find this regular expression to work better at identifying diff --git a/emacs/.emacs.d/site-lisp/avandu-init.el b/emacs/.emacs.d/site-lisp/avandu-init.el new file mode 100644 index 0000000..3a80140 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/avandu-init.el @@ -0,0 +1,35 @@ +;;; avandu-init.el --- Initialization for avandu -*- lexical-binding: t; -*- + +;; Copyright (C) 2014 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: + +;; 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 . + +;;; Commentary: + +;; Initialization code for the `avandu' library, should get loaded +;; when `avandu' is. + +;;; Code: + +(require 'avandu) + +(setq avandu-user "admin" + avandu-tt-rss-api-url "https://ryuslash.org/tt-rss/api/" + avandu-html2text-command #'shr-render-region) + +(provide 'avandu-init) +;;; avandu-init.el ends here diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm index c5c0fcf..fac1fd2 100644 --- a/mowedline/.config/mowedline/init.scm +++ b/mowedline/.config/mowedline/init.scm @@ -43,28 +43,51 @@ (text-widget-color "#ededed") (text-widget-format text-maybe-pad-both) -(window - 'position 'bottom - 'width 1843 - 'margin-bottom 15 - 'margin-left 46 - 'margin-right 15 - 'background 'transparent - (widget:text 'name "taglist" 'format tag-list-formatter) - (widget:active-window-title 'format text-maybe-pad-right) - (widget:spacer 'flex 1) - (widget:text 'name "mpd" - 'format (add-fa-icon "")) - (widget:text 'name "irclist" 'format identity) - (widget:text 'name "email" - 'format (compose text-maybe-pad-both (add-fa-icon ""))) - (widget:flags 'name "cam-status" - 'font "FontAwesome-10" - 'flags '(("suspended" color "#a88654" "") - ("active" color "#65a854" "") - ("unplugged" color "#a85454" ""))) - (widget:flags 'name "keychain" - 'font "FontAwesome-10" - 'flags '(("Unlocked" color "#65a854" "") - ("Locked" color "#a85454" ""))) - (widget:clock 'format text-maybe-pad-left)) +(define tag-list-widget + (widget:text 'name "taglist" 'format tag-list-formatter)) + +(define window-title-widget + (widget:active-window-title 'format text-maybe-pad-right)) + +(define mpd-widget + (widget:text 'name "mpd" 'format (add-fa-icon ""))) + +(define irc-list-widget + (widget:text 'name "irclist" 'format identity)) + +(define email-widget + (widget:text 'name "email" + 'format (compose text-maybe-pad-both (add-fa-icon "")))) + +(define cam-status-widget + (widget:flags 'name "cam-status" + 'font "FontAwesome-10" + 'flags '(("suspended" color "#a88654" "") + ("active" color "#65a854" "") + ("unplugged" color "#a85454" "")))) + +(define key-chain-widget + (widget:flags 'name "keychain" + 'font "FontAwesome-10" + 'flags '(("Unlocked" color "#65a854" "") + ("Locked" color "#a85454" "")))) + +(define clock-widget + (widget:clock 'format text-maybe-pad-left)) + +(window 'position 'bottom + 'width 1843 + 'margin-bottom 15 + 'margin-left 46 + 'margin-right 15 + 'background 'transparent + + tag-list-widget + window-title-widget + (widget:spacer 'flex 1) + mpd-widget + irc-list-widget + email-widget + cam-status-widget + key-chain-widget + clock-widget)