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

updates

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

22
awesome/keybindings.fnl
View file

@ -3,6 +3,8 @@
(local beautiful (require "beautiful"))
(local hotkeys_popup (require "awful.hotkeys_popup"))
(local bling (require "bling"))
(local awestore (require "awestore"))
(local terminal "alacritty")
(local modkey "Mod4")
@ -10,6 +12,21 @@
(local ctrl "Control")
(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]
(let [cb (or ?callback (fn [] nil))]
(awful.spawn.easy_async_with_shell "pamixer --get-volume-human" cb)))
@ -130,10 +147,11 @@
{:description "launch dired in new emacs frame" :group "apps" })
(awful.key [ modkey shift ] "d" (fn [] (awful.spawn "dolphin"))
{: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" })
(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" })
(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" })