making org-agenda work betterer

This commit is contained in:
Chris Cochrun 2021-09-02 16:53:53 -05:00
parent b8b9559e38
commit 86f0bd0030
4 changed files with 33 additions and 11 deletions

View file

@ -634,6 +634,7 @@
(client.connect_signal
"manage"
(fn [c]
;; Set the windows at the slave,
;; i.e. put it at the end of others instead of setting it master.
(when (not awesome.startup) (awful.client.setslave c))
@ -643,21 +644,42 @@
(not c.size_hints.program_position))
;; Prevent clients from being unreachable after screen count changes.
(awful.placement.no_offscreen c))
;; MPV wasn't centering right
(when (= c.class "mpv") (awful.placement.centered c))
(awful.client.focus.byidx 1)
;; Rounded windows done right
(when (not c.fullscreen)
(set c.shape (fn [cr w h]
(gears.shape.rounded_rect cr w h (dpi 15)))))
(: c :activate [])))
(client.connect_signal "property::maximized"
(fn [c]
(let [s c.screen]
(set s.mywibox (wibox {;; since we are using a wibox we have a lot we need to set
;; as opposed to what we normally need to do with a wibar
:position "bottom"
:x 0
:y s.geometry.height
:height (dpi 33)
:width s.geometry.width
:ontop false
:stretch false
:type "dock"
:shape gears.shape.rectangle
:bg beautiful.bg_normal
:fg beautiful.fg_normal
:opacity 0.9})))))
;; make fullscreen clients no longer rounded windows
(client.connect_signal "property::fullscreen"
(fn [c]
(set c.shape (fn [cr w h]
(gears.shape.rectangle cr w h)))))
(client.connect_signal "manage"
(fn [c]
;; Rounded windows done right
(when (not c.fullscreen)
(set c.shape (fn [cr w h]
(gears.shape.rounded_rect cr w h (dpi 15)))))))
(client.connect_signal "focus" (fn [c] (set c.border_color beautiful.border_focus)))
(client.connect_signal "unfocus" (fn [c] (set c.border_color beautiful.border_normal)))
@ -673,5 +695,5 @@
(awful.spawn "bluetoothctl power on")
(awful.spawn "nextcloud --background")
(awful.spawn "rbw-agent")
(awful.spawn "jellyfin-mpv-shim")
;; (awful.spawn "jellyfin-mpv-shim")
(awful.spawn "xset r rate 220 90")

View file

@ -166,7 +166,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 "qutebrowser"))
(awful.key [modkey] "b" (fn [] (awful.spawn "nyxt"))
{:description "launch browser" :group "apps"})
;; rofi
(awful.key [] "Menu" (fn [] (awful.spawn "/home/chris/.dotfiles/rofi/launchers-git/launcher.sh"))

View file

@ -225,4 +225,4 @@ end
# end
# end
fm6000 -r -c blue
# fm6000 -r -c blue

View file

@ -1,6 +1,6 @@
[FileDialog]
history=@Invalid()
lastVisited=file:///home/chris/Downloads
history=file:///home/chris
lastVisited=file:///home/chris
qtVersion=5.15.2
shortcuts=file:, file:///home/chris
sidebarWidth=116