[emacs][wip] bring layer/essentials under Core and break out Dired
[~bandali/configs] / rc.org
diff --git a/rc.org b/rc.org
index 7561980..99a27b2 100644 (file)
--- a/rc.org
+++ b/rc.org
@@ -1597,6 +1597,9 @@ from amin@aminb.org
 user amin@aminb.org
 passwordeval gpg2 --no-tty -q -d ~/.passwd/amin.gpg
 
+account bandali-me : aminb
+from amin@bandali.me
+
 # gnu
 account gnu
 host fencepost.gnu.org
@@ -2523,18 +2526,19 @@ prime_gpg_agent()
 #+end_src
 
 ** pigeonhole
-*** gnu.sieve
+*** amin.sieve
 :PROPERTIES:
-:header-args+: :tangle ~/sieve/gnu.sieve :comments none
+:header-args+: :tangle ~/mail/aminb.org/amin/sieve/amin.sieve :comments none
 :END:
 
 #+begin_src conf
-require [ "regex", "variables", "fileinto", "envelope", "mailbox", "imap4flags", "include" ];
+require ["regex", "variables", "fileinto", "envelope",
+         "mailbox", "imap4flags", "include"];
 
+# webmasters
 if anyof (
-  address :is "from" "webmasters@gnu.org",
-  address :is "from" "webmasters-comment@gnu.org") {
-  fileinto :create "webmasters";
+  address :is "from" ["webmasters@gnu.org", "webmasters-comment@gnu.org"]) {
+  fileinto :create "gnu.webmasters";
   stop;
 }
 
@@ -2543,44 +2547,53 @@ include :personal "lists";
 
 *** lists.sieve
 :PROPERTIES:
-:header-args+: :tangle ~/sieve/lists.sieve :comments none
+:header-args+: :tangle ~/mail/aminb.org/amin/sieve/lists.sieve :comments none
 :END:
 
 #+begin_src conf
-require [ "regex", "variables", "fileinto", "envelope", "mailbox", "imap4flags",
"include" ];
+require ["regex", "variables", "fileinto", "envelope",
        "mailbox", "imap4flags", "include"];
 
+# mailing lists
 if anyof (
-    header :contains "list-id" "<emacs-devel.gnu.org>",
-    header :contains "list-id" "<emacs-orgmode.gnu.org>",
-    header :contains "list-id" "<emacsconf-discuss.gnu.org>",
-    header :contains "list-id" "<fencepost-users.gnu.org>",
-    header :contains "list-id" "<guix-devel.gnu.org>",
-    header :contains "list-id" "<guile-devel.gnu.org>",
-    header :contains "list-id" "<help-gnu-emacs.gnu.org>",
-    header :contains "list-id" "<info-gnu-emacs.gnu.org>",
-    header :contains "list-id" "<www-commits.gnu.org>",
-    header :contains "list-id" "<www-discuss.gnu.org>",
-    header :contains "list-id" "<deepspec.lists.cs.princeton.edu>",
-    header :contains "list-id" "<haskell-cafe.haskell.org>",
-    header :contains "list-id" "<haskell-art.we.lurk.org>",
-    header :contains "list-id" "<notmuch.notmuchmail.org>") {
+    header :contains "list-id"
+        [ "<emacs-devel.gnu.org>"
+        , "<emacs-orgmode.gnu.org>"
+        , "<emacsconf-discuss.gnu.org>"
+        , "<fencepost-users.gnu.org>"
+        , "<guix-devel.gnu.org>"
+        , "<guile-devel.gnu.org>"
+        , "<help-gnu-emacs.gnu.org>"
+        , "<info-gnu-emacs.gnu.org>"
+        , "<info-guix.gnu.org>"
+        , "<www-commits.gnu.org>"
+        , "<www-discuss.gnu.org>"
+        , "<deepspec.lists.cs.princeton.edu>"
+        , "<haskell-cafe.haskell.org>"
+        , "<haskell-art.we.lurk.org>"
+        , "<notmuch.notmuchmail.org>"
+        ] ) {
     if header :regex "list-id" "<([a-z_0-9-]+)[.@]" {
         set :lower "listname" "${1}";
-        fileinto :create "l/${listname}";
+        fileinto :create "gnu.${listname}";
+        stop;
     }
 }
 
+# sr.ht lists, with dots ('.') omitted
 if anyof (
-    header :contains "list-id" "<~aminb/test-priv@lists.sr.ht>",
-    header :contains "list-id" "<~sircmpwn/sr.ht-admins@lists.sr.ht>",
-    header :contains "list-id" "<~sircmpwn/sr.ht-announce@lists.sr.ht>",
-    header :contains "list-id" "<~sircmpwn/sr.ht-dev@lists.sr.ht>",
-    header :contains "list-id" "<~sircmpwn/sr.ht-discuss@lists.sr.ht>") {
-    if header :regex "list-id" "(~[a-z_0-9-]+)/([a-z_0-9.-]+)@" {
+    header :contains "list-id"
+        [ "<~bandali/public-inbox@lists.sr.ht>"
+        , "<~sircmpwn/sr.ht-admins@lists.sr.ht>"
+        , "<~sircmpwn/sr.ht-announce@lists.sr.ht>"
+        , "<~sircmpwn/sr.ht-dev@lists.sr.ht>"
+        , "<~sircmpwn/sr.ht-discuss@lists.sr.ht>"
+        ] ) {
+    if header :regex "list-id" "(~[a-z_0-9-]+)/([^.]*)\\.?([^.]*)\\.?([^.]*)\\.?([^.]*)\\.?([^.]*)\\.?([^.]*)@" {
         set :lower "username" "${1}";
-        set :lower "listname" "${2}";
-        fileinto :create "l/${username}/${listname}";
+        set :lower "listname" "${2}${3}${4}${5}${6}${7}";
+        fileinto :create "gnu.${username}.${listname}";
+        stop;
     }
 }
 #+end_src
@@ -3855,7 +3868,6 @@ output * bg /usr/share/backgrounds/sway/Sway_Wallpaper_Blue_1920x1080.png fill
 exec swayidle \
    timeout 120  '[ -f ~/.nosleep ] || swaymsg "output * dpms off"' \
         resume  '[ -f ~/.nosleep ] || swaymsg "output * dpms on"'  \
-   before-sleep swaylock
 
 
 ### Key bindings
@@ -3863,7 +3875,9 @@ exec swayidle \
 # Basics:
 #
     # start a terminal
-    bindsym $mod+Return exec $term
+    bindsym $mod+Return exec $term -name floating
+    bindsym $mod+Shift+Return exec $term
+    for_window [class="URxvt" instance="floating"] floating enable
 
     # kill focused window
     bindsym $mod+Shift+q kill
@@ -3885,7 +3899,7 @@ exec swayidle \
     bindsym $mod+Shift+c reload
 
     # exit sway (logs you out of your wayland session)
-    bindsym $mod+Shift+e exit
+    bindsym $mod+Shift+e exit
 
     bindsym $mod+apostrophe exec rofi-light        # rofi-based brightness chooser
     bindsym XF86MonBrightnessUp exec light -A 5    # increase screen brightness
@@ -4040,7 +4054,8 @@ mode "$mode_system" {
     bindsym Escape mode "default"
     bindsym q      mode "default"
 }
-bindsym XF86PowerOff mode "$mode_system"
+# bindsym XF86PowerOff mode "$mode_system"
+bindsym $mod+Shift+e mode "$mode_system"
 
 #
 # Presentation mode
@@ -4083,8 +4098,8 @@ bar {
     position bottom
     colors {
         statusline #ffffff
-        background #323232
-        inactive_workspace #32323200 #32323200 #5c5c5c
+        background #212121
+        inactive_workspace #21212100 #21212100 #5c5c5c
     }
     status_command i3status | my-i3status.py
 }
@@ -4096,9 +4111,9 @@ font pango: DejaVu Sans Mono 9
 # font pango: Liberation Mono 9
 
 exec xrdb .Xresources
-exec pgrep -x "systemd-inhibit" || \
-     systemd-inhibit --what=handle-power-key --who=aminb \
-     --why="Handle power button in sway" sleep infinity
+exec pgrep -x "systemd-inhibit" || \
+     systemd-inhibit --what=handle-power-key --who=aminb \
+     --why="Handle power button in sway" sleep infinity
 exec mako 2>&1 >/tmp/mako.log
 exec /usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1
 
@@ -5367,6 +5382,12 @@ export MOZ_USE_XINPUT2=1  # precise scrolling in firefox
 export NIXPKGS=$HOME/src/git/nixpkgs
 
 if [ -e /home/amin/.nix-profile/etc/profile.d/nix.sh ]; then . /home/amin/.nix-profile/etc/profile.d/nix.sh; fi # added by Nix installer
+
+export GUIX_LOCPATH="$HOME/.guix-profile/lib/locale"
+export PATH="/$HOME/.config/guix/current/bin${PATH:+:}$PATH"
+export SSL_CERT_DIR="$HOME/.guix-profile/etc/ssl/certs"
+export SSL_CERT_FILE="$HOME/.guix-profile/etc/ssl/certs/ca-certificates.crt"
+export GIT_SSL_CAINFO="$SSL_CERT_FILE"
 #+end_src
 
 *** zshenv