This commit is contained in:
Chris Cochrun 2021-08-25 05:47:44 -05:00
parent 9da32b39c1
commit 472e49d5f4
5 changed files with 28 additions and 18 deletions

@ -1 +1 @@
Subproject commit ae211c2cae257a19cf2aed3faeb76959ad714da9 Subproject commit 048cf41e0aa5a391948d62e6168d6e54279cf627

View file

@ -51,12 +51,6 @@
(local bling (require "bling")) (local bling (require "bling"))
(local awestore (require "awestore")) (local awestore (require "awestore"))
(local anim-y (awestore.tweened 1100 { :duration 200 :easing awestore.easing.cubic_in_out }))
(local agenda-scratch (bling.module.scratchpad:new {
:command ""
:rule [:name "*Org Agenda(a)*"]}))
;; This is used later as the default terminal and editor to run. ;; This is used later as the default terminal and editor to run.
(var terminal "alacritty") (var terminal "alacritty")
(var editor (or (os.getenv "EDITOR") "emacsclient")) (var editor (or (os.getenv "EDITOR") "emacsclient"))

View file

@ -3,6 +3,8 @@
(local beautiful (require "beautiful")) (local beautiful (require "beautiful"))
(local hotkeys_popup (require "awful.hotkeys_popup")) (local hotkeys_popup (require "awful.hotkeys_popup"))
(local bling (require "bling"))
(local awestore (require "awestore"))
(local terminal "alacritty") (local terminal "alacritty")
(local modkey "Mod4") (local modkey "Mod4")
@ -10,6 +12,21 @@
(local ctrl "Control") (local ctrl "Control")
(local alt "Mod1") (local alt "Mod1")
;; adding an org-agenda scratchpad
(local anim-y (awestore.tweened 1100 { :duration 200 :easing awestore.easing.cubic_in_out }))
(local anim-x (awestore.tweened 1920 { :duration 200 :easing awestore.easing.cubic_in_out }))
(local agenda-scratch (bling.module.scratchpad:new {
:command "emacsclient -e '(chris/org-agenda)'"
:rule [:name "*Org Agenda(a)*"]
:sticky true
:autoclose true
:floating true
:geometry {:height 900 :width 1200}
:reapply true
:dont_focus_before_close true
:awestore {:x anim-x :y anim-y}}))
(fn get-volume [?callback] (fn get-volume [?callback]
(let [cb (or ?callback (fn [] nil))] (let [cb (or ?callback (fn [] nil))]
(awful.spawn.easy_async_with_shell "pamixer --get-volume-human" cb))) (awful.spawn.easy_async_with_shell "pamixer --get-volume-human" cb)))
@ -130,10 +147,11 @@
{:description "launch dired in new emacs frame" :group "apps" }) {:description "launch dired in new emacs frame" :group "apps" })
(awful.key [ modkey shift ] "d" (fn [] (awful.spawn "dolphin")) (awful.key [ modkey shift ] "d" (fn [] (awful.spawn "dolphin"))
{:description "launch dolphin file browser" :group "apps" }) {:description "launch dolphin file browser" :group "apps" })
(awful.key [ modkey ] "x" (fn [] (awful.spawn "emacsclient -c -e '(org-capture)'")) (awful.key [ modkey ] "x" (fn [] (awful.spawn "emacsclient -c -e '(org-capture)'"
{:floating true :placement awful.placement.centered :class "org-agenda" :instance "org-agenda"}))
{:description "launch scratchpad in new emacs frame" :group "apps" }) {:description "launch scratchpad in new emacs frame" :group "apps" })
(awful.key [ modkey ] "'" (fn [] (awful.spawn "emacsclient -e '(chris/org-agenda)'" (awful.key [ modkey ] "'" (fn [] (awful.spawn "emacsclient -e '(chris/org-agenda)'"
{:name "*Org Agenda(a)*" :floating true :placement awful.placement.centered :class "org-agenda" :instance "org-agenda"})) {:floating true :placement awful.placement.centered :class "org-agenda" :instance "org-agenda"}))
{:description "launch org-agenda in new emacs frame" :group "apps" }) {:description "launch org-agenda in new emacs frame" :group "apps" })
(awful.key [ modkey alt ] "m" (fn [] (awful.spawn "emacsclient -c -e '(org-roam-capture)'")) (awful.key [ modkey alt ] "m" (fn [] (awful.spawn "emacsclient -c -e '(org-roam-capture)'"))
{:description "launch org-roam-capture in new emacs frame" :group "apps" }) {:description "launch org-roam-capture in new emacs frame" :group "apps" })

View file

@ -130,8 +130,6 @@
:floating true :floating true
:raise true :raise true
:screen 1 :screen 1
:width (dpi 900)
:height (dpi 600)
:placement (+ awful.placement.no_offscreen awful.placement.centered) :placement (+ awful.placement.no_offscreen awful.placement.centered)
} }
} }
@ -147,8 +145,8 @@
:raise true :raise true
:ontop true :ontop true
:screen awful.screen.preferred :screen awful.screen.preferred
:width (dpi 600) ;; :width (dpi 600)
:height (dpi 200) ;; :height (dpi 200)
:placement awful.placement.centered :placement awful.placement.centered
} }
} }

View file

@ -232,11 +232,11 @@ bindsym $mod+o mode "$mode_launcher"
bindsym $mod+Ctrl+m exec makoctl dismiss -a bindsym $mod+Ctrl+m exec makoctl dismiss -a
mode "$mode_launcher" { mode "$mode_launcher" {
bindsym e exec emacsclient -c -a emacs &&mode "default" bindsym e exec emacsclient -c -a emacs
bindsym b exec qutebrowser &&mode "default" bindsym b exec qutebrowser
bindsym a exec emacsclient -c -e '(chris/org-agenda)' &&mode "default" bindsym a exec emacsclient -e '(chris/org-agenda)'
bindsym m exec emacsclient -c -e '(mu4e)' &&mode "default" bindsym m exec emacsclient -c -e '(mu4e)'
bindsym Shift+d exec dolphin &&mode "default" bindsym Shift+d exec dolphin
bindsym Return mode "default" bindsym Return mode "default"
bindsym Escape mode "default" bindsym Escape mode "default"
} }