Clipboard history size, set to 100.

nbljaved · Sep 12, 2024 · 77762a2 · 77762a2
1 parent 5d496f2
commit 77762a2
Show file tree

Hide file tree

Showing 5 changed files with 20 additions and 3 deletions.
diff --git a/init.lisp b/init.lisp
@@ -65,6 +65,12 @@
 ;;     ))
 
 (load "/home/nabeel/.stumpwm.d/startup.lisp")
+(when *initializing*
+  (progn
+    (load "/home/nabeel/.stumpwm.d/startup.lisp")
+    ;; (launch-polybar)
+    ))
+;; (load "/home/nabeel/.stumpwm.d/startup.lisp")
 
 ;; Load mode-line configuration 
 (load "/home/nabeel/.stumpwm.d/modeline.lisp")

diff --git a/keybinding.lisp b/keybinding.lisp
@@ -156,13 +156,16 @@
        ("C-y"   . "C-v")
        ("C-/"   . "C-z")
        ("M-<"   . "Home")
+       ("M-less"   . "Home")
        ("C-a"   . "Home")
        ("M->"   . "End")
+       ("M-greater"   . "End")
        ("C-e"   . "End")
        ("C-M-b" . "M-Left")
        ("C-M-f" . "M-Right")
        ("M-f"   . "C-Right")
        ("M-b"   . "C-Left")
+       ("M-d"   . ("C-S-Right" "C-x"))
        ("C-k"   . ("C-S-End" "C-x"))
        ("M-j" . "C-S-Tab")
        ("M-l" . "C-Tab"))))

diff --git a/modules b/modules
diff --git a/modules.lisp b/modules.lisp
@@ -17,7 +17,7 @@
 (load-module "winner-mode")
 
 ;; stuff that should be in the module but isn't
-;; (load-module "undocumented")
+(load-module "undocumented")
 
 ;; summon mouse to your current window
 ;; (load-module "beckon")
@@ -30,6 +30,7 @@
 (define-key *root-map* (kbd "M-y") "show-clipboard-history")
 ;; start the polling timer process
 (clipboard-history:start-clipboard-manager)
+(setf clipboard-history:*clipboard-history-max-length* 100)
 
 
 ;; (load-module "productivity")
@@ -57,3 +58,10 @@
 ;;   ((kbd "RET") "ratclick 1")
 ;;   ((kbd "SPC") "ratclick 3"))
 ;; (define-key *top-map* (kbd "s-SPC") "nbl/binwarp-mode")
+
+;; urgent windows
+;; [[file:modules/util/urgentwindows/README.org]]
+(load-module "urgentwindows")
+(setf urgentwindows:*urgent-window-message*
+ "application ~a has just finished its business!")
+(urgentwindows:raise-urgent)
diff --git a/startup.lisp b/startup.lisp
@@ -24,7 +24,7 @@ fi
 ;; (ql:quickload :clx-truetype)
 ;; (load-module "ttf-fonts")
 ;; (setf xft:*font-dirs* '("/usr/share/fonts/"))
-;; ;; (setf clx-truetype:+font-cache-filename+ (concat (getenv "HOME") "/.fonts/font-cache.sexp"))
+;; (setf clx-truetype:+font-cache-filename+ (concat (getenv "HOME") "/.fonts/font-cache.sexp"))
 
 ;; (xft:cache-fonts)
+5 −1		README.org
+1 −1		media/stump-volume-control/volume-control.lisp
+15 −0		media/stumpwm-mixer/README.md
+51 −0		media/stumpwm-mixer/mixer.lisp
+7 −0		media/stumpwm-mixer/package.lisp
+8 −0		media/stumpwm-mixer/stumpwm-mixer.asd
+1 −0		media/stumpwm-sndioctl/package.lisp
+4 −1		media/stumpwm-sndioctl/stumpwm-sndioctl.lisp
+21 −8		minor-mode/mpd/mpd.lisp
+41 −10		modeline/battery-portable/battery-portable.lisp
+59 −21		modeline/bitcoin/README.org
+1 −1		modeline/bitcoin/bitcoin.asd
+132 −171		modeline/bitcoin/bitcoin.lisp
+4 −1		modeline/bitcoin/package.lisp
+27 −6		modeline/cpu/README.org
+55 −0		modeline/pianobar/README.org
+4 −0		modeline/pianobar/package.lisp
+10 −0		modeline/pianobar/pianobar.asd
+57 −0		modeline/pianobar/pianobar.lisp
+142 −0		modeline/ticker/README.org
+6 −0		modeline/ticker/package.lisp
+ −		modeline/ticker/screenshot.png
+13 −0		modeline/ticker/ticker.asd
+309 −0		modeline/ticker/ticker.lisp
+2 −1		modeline/wifi/package.lisp
+8 −2		modeline/wifi/wifi.lisp
+1 −1		util/binwarp/README.org
+ −		util/clipboard-history/clipboard-history.fasl
+ −		util/clipboard-history/package.fasl
+5 −3		util/end-session/README.org
+4 −3		util/end-session/end-session.lisp
+2 −1		util/end-session/package.lisp
+1 −3		util/pinentry/README.org
+11 −15		util/pinentry/pinentry.lisp
+4 −1		util/pinentry/stumpwm-pinentry
+1 −1		util/productivity/README.org
+22 −3		util/stump-backlight/backlight.lisp
+1 −1		util/stumpish/stumpish
+5 −5		util/swm-clim-message/swm-clim-message.lisp
+1 −1		util/swm-gaps/swm-gaps.lisp
+4 −3		util/swm-ssh/README.org
+9 −7		util/swm-ssh/swm-ssh.lisp
+1 −1		util/urgentwindows/urgentwindows.lisp
+1 −1		util/winner-mode/dumper.lisp