chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scratchpad from bling awesome

Browse source
This commit is contained in:
Chris Cochrun 2021-09-08 09:27:25 -05:00
parent 0d7f3e5a89
commit 87ee1ba3d0
20 changed files with 724 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

28
awesome/keybindings.fnl
View file

@ -16,17 +16,19 @@
;; (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"]
: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}
}))
(local agenda-scratch (bling.module.scratchpad {
:command "emacsclient -e '(chris/org-agenda)'"
:rule {:name "org-agenda"}
:sticky true
:autoclose true
:floating true
:geometry {:height 1300 :width 1500 :x 377 :y 73}
:reapply true
:dont_focus_before_close true
;; :awestore {:x anim-x :y anim-y}
}))
(fn get-volume [?callback]
(let [cb (or ?callback (fn [] nil))]
@ -151,7 +153,7 @@
(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" })
(awful.key [ modkey ] "'" (fn [] (awful.spawn "agenda-scratch"))
(awful.key [ modkey ] "'" (fn [] (agenda-scratch:toggle))
{:description "launch org-agenda in new emacs frame" :group "apps" })
(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" })
@ -167,7 +169,7 @@
{:description "select pass" :group "apps" })
(awful.key [ modkey shift ] "w" (fn [] (awful.spawn "libreoffice --writer"))
{:description "Open Writer" :group "apps" })
(awful.key [modkey] "b" (fn [] (awful.spawn "nyxt"))
(awful.key [modkey] "b" (fn [] (awful.spawn "qutebrowser"))
{:description "launch browser" :group "apps"})
;; rofi
(awful.key [] "Menu" (fn [] (awful.spawn "/home/chris/.config/rofi/launchers-git/launcher.sh"))