Add move comments, move modeline and dwm bar to top to match tabs

22 files changed, 103 insertions, 35 deletions

diff --git a/.config/emacs/early-init.el b/.config/emacs/early-init.el
index 671a562..62ceaad 100644
--- a/.config/emacs/early-init.el
+++ b/.config/emacs/early-init.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; display load information + speedups
@@ -31,3 +33,6 @@
 (push '(tool-bar-lines . 0) default-frame-alist)
 (push '(background-color . "#000000") default-frame-alist)
 (push '(foreground-color . "#ffffff") default-frame-alist)
+
+
+;;; init.el ends here
diff --git a/.config/emacs/gnus.el b/.config/emacs/gnus.el
index c3e530f..e52186c 100644
--- a/.config/emacs/gnus.el
+++ b/.config/emacs/gnus.el
@@ -1,4 +1,7 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
 
 (require 'gnus)
 (require 'gnus-util)
@@ -44,3 +47,6 @@
          "%s\n"))
 
 ;; (require 'gnus-dired)
+
+
+;;; gnus.el ends here
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index c18456f..ee0c843 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; auto-generated files
@@ -78,3 +80,6 @@
 (require 'bd--notmuch) ;; (gitignored)
 (require 'bd--modeline)
 (require 'bd--themes)
+
+
+;;; init.el ends here
diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index 561139d..4103a2e 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; line numbers
@@ -100,3 +102,4 @@ to.")
 
 
 (provide 'bd--devel)
+;;; bd--devel ends here
diff --git a/.config/emacs/modules/bd--dictionary.el b/.config/emacs/modules/bd--dictionary.el
index 35c93ca..c46fe7b 100644
--- a/.config/emacs/modules/bd--dictionary.el
+++ b/.config/emacs/modules/bd--dictionary.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (keymap-global-set "C-c i" 'dictionary-lookup-definition)
@@ -7,3 +9,4 @@
 
 
 (provide 'bd--dictionary)
+;;; bd-dictionary ends here
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el
index c7dfba7..db07176 100644
--- a/.config/emacs/modules/bd--emms.el
+++ b/.config/emacs/modules/bd--emms.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (defun emms-quickstart ()
@@ -45,3 +47,4 @@ playback."
 
 
 (provide 'bd--emms)
+;;; bd-emms ends here
diff --git a/.config/emacs/modules/bd--erc.el b/.config/emacs/modules/bd--erc.el
index 9e8611c..8d9e45e 100644
--- a/.config/emacs/modules/bd--erc.el
+++ b/.config/emacs/modules/bd--erc.el
@@ -21,3 +21,4 @@
 
 
 (provide 'bd--erc)
+;;; bd-erc ends here
diff --git a/.config/emacs/modules/bd--essentials.el b/.config/emacs/modules/bd--essentials.el
index 49e50e3..07c1e12 100644
--- a/.config/emacs/modules/bd--essentials.el
+++ b/.config/emacs/modules/bd--essentials.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; standard bindings
@@ -50,3 +52,4 @@
 
 
 (provide 'bd--essentials)
+;;; bd-essentials ends here
diff --git a/.config/emacs/modules/bd--eww.el b/.config/emacs/modules/bd--eww.el
index 1088c6b..d304a79 100644
--- a/.config/emacs/modules/bd--eww.el
+++ b/.config/emacs/modules/bd--eww.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;; do not use an external browser
@@ -23,3 +25,4 @@
 
 
 (provide 'bd--eww)
+;;; bd-eww ends here
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index 82e72bd..9785e7f 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -1,8 +1,8 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; This file is no longer in use!
+;;; Code:
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; This file is no longer in use! ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;;;; utilities
 ;; desktop
@@ -158,3 +158,4 @@ select a line from a file."
 
 
 (provide 'bd--exwm-windowing)
+;;; bd-exwm ends here
diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el
index 2f92a05..7f3324d 100644
--- a/.config/emacs/modules/bd--files.el
+++ b/.config/emacs/modules/bd--files.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; dired
@@ -37,3 +39,4 @@
         ("R" . #'transmission-move)))
 
 (provide 'bd--files)
+;;; bd-files ends here
diff --git a/.config/emacs/modules/bd--image.el b/.config/emacs/modules/bd--image.el
index 3dd2526..ca2a11a 100644
--- a/.config/emacs/modules/bd--image.el
+++ b/.config/emacs/modules/bd--image.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (require 'image-mode)
@@ -21,3 +23,4 @@ If the mode line is off, set it to the default value."
 
 
 (provide 'bd--image)
+;;; bd-image ends here
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el
index 450f579..bd85369 100644
--- a/.config/emacs/modules/bd--minibuffer.el
+++ b/.config/emacs/modules/bd--minibuffer.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (setopt use-short-answers t
@@ -47,3 +49,4 @@
 
 
 (provide 'bd--minibuffer)
+;;; bd-minibuffer ends here
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index 1c0a4df..1b0f5ee 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -1,11 +1,10 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Note this currently requires many of the previous modules to be loaded
+;;; to function properly.
+;;; Code:
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Highly customized modeline. Note this currently requires        ;;
-;; many of the previous modules to be loaded to function properly. ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 (defun mode-line-fill (reserve)
   "Return empty space, leaving RESERVE space on the right."
   (unless reserve
@@ -55,6 +54,8 @@
     '(:eval
       (when (mode-line-window-selected-p)
         mode-line-position)))
+;; show column number
+(column-number-mode)
 
 ;;;; git
 (defun git-vc-modeline ()
@@ -80,7 +81,8 @@
   (put construct 'risky-local-variable t))
 
 
-(setq-default mode-line-format
+;; set elements; move modeline to top
+(setq-default header-line-format
               (list
                mode-line-front-space
                ;; mode-line-mule-info
@@ -92,10 +94,12 @@
                mode-line-modified
                bd/vc-mode-line
                "      "
-               (mode-line-fill 13)
+               (mode-line-fill 19)
                bd/line-position
                "  "
                bd/time-mode-line))
+(setq-default mode-line-format nil)
 
 
 (provide 'bd--modeline)
+;;; bd-modeline ends here
diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el
index 36b4632..4116cce 100644
--- a/.config/emacs/modules/bd--org.el
+++ b/.config/emacs/modules/bd--org.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (defvar-local agenda-file "~/dc/agenda/agenda_tasks.org")
@@ -93,3 +95,4 @@ each org file open."
 
 
 (provide 'bd--org)
+;;; bd-org ends here
diff --git a/.config/emacs/modules/bd--roam.el b/.config/emacs/modules/bd--roam.el
index 3e4714c..01f507f 100644
--- a/.config/emacs/modules/bd--roam.el
+++ b/.config/emacs/modules/bd--roam.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (defun org-roam-node-insert-immediate (arg &rest args)
@@ -36,3 +38,4 @@ file."
 
 
 (provide 'bd--roam)
+;;; bd-roam ends here
diff --git a/.config/emacs/modules/bd--rss.el b/.config/emacs/modules/bd--rss.el
index 928f019..92c2761 100644
--- a/.config/emacs/modules/bd--rss.el
+++ b/.config/emacs/modules/bd--rss.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (keymap-global-set "C-z C-n" 'newsticker-show-news)
@@ -20,3 +22,4 @@
 
 
 (provide 'bd--rss)
+;;; bd-rss ends here
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 94c81ab..49518bf 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 (require 'all-the-icons)
@@ -47,3 +49,4 @@ status, and path."
 
 
 (provide 'bd--shells)
+;;; bd-shells ends here
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
index 5e18c7b..c95768b 100644
--- a/.config/emacs/modules/bd--tabs.el
+++ b/.config/emacs/modules/bd--tabs.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; turn tabs on, undo/redo mode
@@ -48,3 +50,4 @@
 
 
 (provide 'bd--tabs)
+;;; bd-tabs ends here
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index c4eb197..2db2e70 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; variable-pitch fonts
@@ -48,6 +50,7 @@ to.")
   (ef-themes-common-palette-overrides
    '((bg-mode-line bg-main)
      (fg-mode-line fg-main)
+     (bg-dim bg-main)
      (bg-alt bg-main)))
   (ef-winter-palette-overrides
    '((bg-main "#000000")))
@@ -59,3 +62,4 @@ to.")
 (load-theme 'ef-winter :no-confirm)
 
 (provide 'bd--themes)
+;;; bd-themes ends here
diff --git a/.config/emacs/modules/bd--windows.el b/.config/emacs/modules/bd--windows.el
index d14e325..e48e7fa 100644
--- a/.config/emacs/modules/bd--windows.el
+++ b/.config/emacs/modules/bd--windows.el
@@ -1,4 +1,6 @@
-;; -*- lexical-binding: t; -*-
+;;; -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
 
 
 ;;;; defaults
@@ -103,7 +105,7 @@ Due to a bug with guix-packaged emacs, only uses true-transparency on wayland."
      emms-playlist-mode
      ))
   (popper-display-control 'nil)
-  (popper-mode-line '(:eval (propertize " P" 'face 'mode-line-emphasis)))
+  (popper-mode-line nil)
   (popper-group-function #'popper-group-by-project))
 
 
@@ -138,3 +140,4 @@ Due to a bug with guix-packaged emacs, only uses true-transparency on wayland."
 
 
 (provide 'bd--windows)
+;;; bd-windows ends here
diff --git a/.config/guix/modules/dwm/config.def.h b/.config/guix/modules/dwm/config.def.h
index 5ee91cc..ac83b81 100644
--- a/.config/guix/modules/dwm/config.def.h
+++ b/.config/guix/modules/dwm/config.def.h
@@ -5,11 +5,11 @@ static const unsigned int borderpx  = 1;        /* border pixel of windows */
 static const unsigned int gappx     = 8;        /* gaps between windows */
 static const unsigned int snap      = 32;       /* snap pixel */
 static const int showbar            = 1;        /* 0 means no bar */
-static const int topbar             = 0;        /* 0 means bottom bar */
+static const int topbar             = 1;        /* 0 means bottom bar */
 static const char *fonts[]          = { "Terminus:size=10", "fontawesome:size=10" };
 static const char dmenufont[]       = "Terminus:size=10";
-static const char col_white[]       = "#eeeeee";
-static const char col_gray[]       = "#aaaaaa";
+static const char col_white[]       = "#ffffff";
+static const char col_gray[]       = "#888888";
 static const char col_black[]       = "#000000";
 static const unsigned int baralpha = 0xd0;
 static const unsigned int borderalpha = 0xd0;
@@ -70,7 +70,7 @@ static const Layout layouts[] = {
 /* commands */
 static char dmenumon[2] = "0"; /* component of dmenucmd, manipulated in spawn() */
 /* tools */
-static const char *dmenucmd[]    = { "dmenu_run", "-b", "-m", dmenumon, "-fn", dmenufont, "-nb", col_black, "-nf", col_gray, "-sb", col_black, "-sf", col_white, NULL };
+static const char *dmenucmd[]    = { "dmenu_run", "-m", dmenumon, "-fn", dmenufont, "-nb", col_black, "-nf", col_gray, "-sb", col_black, "-sf", col_white, NULL };
 /* brightness control */
 static const char *lowerbgt[]    = { "brightnessctl", "set", "5%-", NULL };
 static const char *upperbgt[]    = { "brightnessctl", "set", "5%+", NULL };