feat: add base fennel config
This commit is contained in:
473
cfg.orig.fnl
Normal file
473
cfg.orig.fnl
Normal file
@@ -0,0 +1,473 @@
|
|||||||
|
(let [;; Standard awesome library
|
||||||
|
gears (require :gears)
|
||||||
|
awful (require :awful)
|
||||||
|
;; Widget and layout library
|
||||||
|
wibox (require :wibox)
|
||||||
|
;; Theme handling library
|
||||||
|
beautiful (require :beautiful)
|
||||||
|
;; Notification library
|
||||||
|
naughty (require :naughty)
|
||||||
|
menubar (require :menubar)
|
||||||
|
hotkeys-popup (. (require :awful.hotkeys_popup) :widget)]
|
||||||
|
(require :awful.autofocus)
|
||||||
|
;; Enable hotkeys help client widget for VIM and other apps
|
||||||
|
;; when client with a matching name is open
|
||||||
|
(require :awful.hotkeys_popup.keys)
|
||||||
|
|
||||||
|
;; {{{ Error handling
|
||||||
|
;; Check if aweseom encountered an error during startup and fell back to
|
||||||
|
;; another config (This code will only ever execute for the fallback config)
|
||||||
|
(when awesome.startup_errors
|
||||||
|
(naughty.notify {:preset naughty.config.presets.critical
|
||||||
|
:title "Oops, there were errors during startup!"
|
||||||
|
:text awesome.startup_errors}))
|
||||||
|
|
||||||
|
;; Handle runtime errors after startup
|
||||||
|
(do
|
||||||
|
(var error? false)
|
||||||
|
(awesome.connect_signal
|
||||||
|
"debug::error"
|
||||||
|
(lambda [err]
|
||||||
|
(when (not error?)
|
||||||
|
(set error? true)
|
||||||
|
(naughty.notify {:preset naughty.config.presets.critical
|
||||||
|
:title "Oops, an error happened!"
|
||||||
|
:text (tostring err)})
|
||||||
|
(set error? false)))))
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;;{{{ Variable definitions
|
||||||
|
;; Themes define colours, icons, font, and wallpapers.
|
||||||
|
(beautiful.init (.. (gears.filesystem.get_themes_dir) "default/theme.lua"))
|
||||||
|
|
||||||
|
;; This is used later as the default terminal and editor to run.
|
||||||
|
(local terminal "xterm")
|
||||||
|
(local editor (or (os.getenv "EDITOR")
|
||||||
|
"nano"))
|
||||||
|
(local editor-cmd (.. terminal " -e " editor))
|
||||||
|
|
||||||
|
;; Default modkey.
|
||||||
|
;; Usually, Mod4 is the key with a logo between Control and Alt.
|
||||||
|
;; If you do not like this or do not have such a key,
|
||||||
|
;; I suggest you to remap Mod4 to another key using xmodmap or other tools.
|
||||||
|
;; However, you can use another modifier like Mod1, but it may interact with others.
|
||||||
|
(local modkey "Mod4")
|
||||||
|
|
||||||
|
;; Table of layouts to cover with awful.layout.inc, order matters.
|
||||||
|
(set awful.layout.layouts
|
||||||
|
[awful.layout.suit.floating
|
||||||
|
awful.layout.suit.tile
|
||||||
|
awful.layout.suit.tile.left
|
||||||
|
awful.layout.suit.tile.bottom
|
||||||
|
awful.layout.suit.tile.top
|
||||||
|
awful.layout.suit.fair
|
||||||
|
awful.layout.suit.fair.horizontal
|
||||||
|
awful.layout.suit.spiral
|
||||||
|
awful.layout.suit.spiral.dwindle
|
||||||
|
awful.layout.suit.max
|
||||||
|
awful.layout.suit.max.fullscreen
|
||||||
|
awful.layout.suit.magnifier
|
||||||
|
awful.layout.suit.corner.nw
|
||||||
|
;; awful.layout.suit.corner.ne
|
||||||
|
;; awful.layout.suit.corner.sw
|
||||||
|
;; awful.layout.suit.corner.se
|
||||||
|
])
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;; {{{ Helper functions
|
||||||
|
(fn client-menu-toggle-fn []
|
||||||
|
(var instance nil)
|
||||||
|
(lambda []
|
||||||
|
(if (and instance (. instance :wibox :visible))
|
||||||
|
(do (: instance :hide)
|
||||||
|
(set instance nil))
|
||||||
|
(set instance (awful.menu.clients {:theme {:width 250}})))))
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;; {{{ Menu
|
||||||
|
;; Create a launcher widget and a main menu
|
||||||
|
(local myawesomemenu
|
||||||
|
[["hotkeys" (lambda [] (values false hotkeys-popup.show_help))]
|
||||||
|
["manual" (.. terminal "-e man awesome")]
|
||||||
|
["edit config" (.. editor-cmd " " awesome.conffile)]
|
||||||
|
["restart" awesome.restart]
|
||||||
|
["quit" (lambda [] (awesome.quit))]])
|
||||||
|
|
||||||
|
(local mymainmenu
|
||||||
|
(awful.menu {:items [["awesome" myawesomemenu beautiful.awesome_icon]
|
||||||
|
["open terminal" terminal]]}))
|
||||||
|
|
||||||
|
(local mylauncher
|
||||||
|
(awful.widget.launcher {:image beautiful.awesome_icon
|
||||||
|
:menu mymainmenu}))
|
||||||
|
|
||||||
|
;; Menubar configuration
|
||||||
|
(set menubar.utils.terminal terminal) ;; Set the terminal for applications that require it
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;; Keyboard map indicator and switcher
|
||||||
|
(local mykeyboardlayout (awful.widget.keyboardlayout))
|
||||||
|
|
||||||
|
;; {{{ Wibar
|
||||||
|
;; Create a textclock widget
|
||||||
|
(local mytextclock (wibox.widget.textclock))
|
||||||
|
|
||||||
|
;; Create a wibox for each screen and add it
|
||||||
|
(local
|
||||||
|
taglist-buttons
|
||||||
|
(gears.table.join
|
||||||
|
(awful.button [] 1 (lambda [t] (: t :view_only)))
|
||||||
|
(awful.button [modkey] 1
|
||||||
|
(lambda [t] (when client.focus (: client.focus :move_to_tag t))))
|
||||||
|
(awful.button [] 3 awful.tag.viewtoggle)
|
||||||
|
(awful.button [modkey] 3
|
||||||
|
(lambda [t] (when client.focus (: client.focus :toggle_tag t))))
|
||||||
|
(awful.button [] 4 (lambda [t] (awful.tag.viewnext t.screen)))
|
||||||
|
(awful.button [] 5 (lambda [t] (awful.tag.viewprev t.screen)))))
|
||||||
|
|
||||||
|
(local
|
||||||
|
tasklist-buttons
|
||||||
|
(gears.table.join
|
||||||
|
(awful.button
|
||||||
|
[] 1 (lambda [c] (if (= c client.focus)
|
||||||
|
(set c.minimized true)
|
||||||
|
(do
|
||||||
|
;; Without this, the following
|
||||||
|
;; :isvisible makes no sense
|
||||||
|
(set c.minimized false)
|
||||||
|
(when (and (not (: c :isvisible))
|
||||||
|
c.first_tag)
|
||||||
|
(: c.first_tag :view_only)
|
||||||
|
;; This will also un-minimize
|
||||||
|
;; the client, if needed
|
||||||
|
(set client.focus c)
|
||||||
|
(: c :raise))))))
|
||||||
|
(awful.button [] 3 (client-menu-toggle-fn))
|
||||||
|
(awful.button [] 4 (lambda [] (awful.client.focus.byidx 1)))
|
||||||
|
(awful.button [] 5 (lambda [] (awful.client.focus.byidx -1)))))
|
||||||
|
|
||||||
|
(fn set-wallpaper [s]
|
||||||
|
(when beautiful.wallpaper
|
||||||
|
(var wallpaper beautiful.wallpaper)
|
||||||
|
(when (= (type wallpaper) :function)
|
||||||
|
(set wallpaper (wallpaper s)))
|
||||||
|
(gears.wallpaper.maximized wallpaper s true)))
|
||||||
|
|
||||||
|
;; Re-set wallpaper when a screen's geometry changes (e.g. different resolution)
|
||||||
|
(screen.connect_signal "property::geometry" set-wallpaper)
|
||||||
|
|
||||||
|
(awful.screen.connect_for_each_screen
|
||||||
|
(lambda [s]
|
||||||
|
;; Wallpaper
|
||||||
|
(set-wallpaper s)
|
||||||
|
|
||||||
|
;; Each screen has its own tag table.
|
||||||
|
(awful.tag ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
|
||||||
|
s (. awful.layout.layouts 1))
|
||||||
|
|
||||||
|
;; Create a promptbox for each screen
|
||||||
|
(set s.mypromptbox (awful.widget.prompt))
|
||||||
|
;; Create an imagebox widget which will contain an icon indicating which layout we're using.
|
||||||
|
;; We need one layout box per screen.
|
||||||
|
(set s.mylayoutbox (awful.widget.layoutbox s))
|
||||||
|
(: s.mylayoutbox :buttons
|
||||||
|
(gears.table.join
|
||||||
|
(awful.button [] 1 (lambda [] (awful.layout.inc 1)))
|
||||||
|
(awful.button [] 3 (lambda [] (awful.layout.inc -1)))
|
||||||
|
(awful.button [] 4 (lambda [] (awful.layout.inc 1)))
|
||||||
|
(awful.button [] 5 (lambda [] (awful.layout.inc -1)))))
|
||||||
|
;; Create a taglist widget
|
||||||
|
(set s.mytaglist (awful.widget.taglist s awful.widget.taglist.filter.all
|
||||||
|
taglist-buttons))
|
||||||
|
|
||||||
|
;; Create a tasklist widget
|
||||||
|
(set s.mytasklist (awful.widget.tasklist s awful.widget.tasklist.filter.currenttags
|
||||||
|
tasklist-buttons))
|
||||||
|
|
||||||
|
;; Create the wibox
|
||||||
|
(set s.mywibox (awful.wibar {:position "top" :screen s}))
|
||||||
|
|
||||||
|
;; Add widgets to the wibox
|
||||||
|
;; XXX Adding numbers is required workaround for mixed named and not tables.
|
||||||
|
;; Alternative is to construct table and then tset the named entry(s).
|
||||||
|
(: s.mywibox :setup
|
||||||
|
{:layout wibox.layout.align.horizontal
|
||||||
|
1 { ;; Left widgets
|
||||||
|
:layout wibox.layout.fixed.horizontal
|
||||||
|
1 mylauncher
|
||||||
|
2 s.mytaglist
|
||||||
|
3 s.mypromptbox}
|
||||||
|
2 s.mytasklist ;; Middle widget
|
||||||
|
3 {;;Right widgets
|
||||||
|
:layout wibox.layout.fixed.horizontal
|
||||||
|
1 mykeyboardlayout
|
||||||
|
2 (wibox.widget.systray)
|
||||||
|
3 mytextclock
|
||||||
|
4 s.mylayoutbox}})))
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;; {{{ Mouse bindings
|
||||||
|
(root.buttons (gears.table.join
|
||||||
|
(awful.button [] 3 (lambda [] (: mymainmenu :toggle)))
|
||||||
|
(awful.button [] 4 awful.tag.viewnext)
|
||||||
|
(awful.button [] 5 awful.tag.viewprev)))
|
||||||
|
;;}}}
|
||||||
|
|
||||||
|
;; {{{ Key bindings
|
||||||
|
(var
|
||||||
|
globalkeys
|
||||||
|
(gears.table.join
|
||||||
|
(awful.key [modkey] :s hotkeys-popup.show_help
|
||||||
|
{:description "show help" :group "awesome"})
|
||||||
|
(awful.key [modkey] :Left awful.tag.viewprev
|
||||||
|
{:description "view previous" :group "tag"})
|
||||||
|
(awful.key [modkey] :Right awful.tag.viewnext
|
||||||
|
{:description "view next" :group "tag"})
|
||||||
|
(awful.key [modkey] :Escape awful.tag.history.restore
|
||||||
|
{:description "go back" :group "tag"})
|
||||||
|
|
||||||
|
(awful.key [modkey] :j (lambda [] (awful.client.focus.byidx 1))
|
||||||
|
{:description "focus next by index" :group "client"})
|
||||||
|
(awful.key [modkey] :k (lambda [] (awful.client.focus.byidx -1))
|
||||||
|
{:description "focus previous by index" :group "client"})
|
||||||
|
(awful.key [modkey] :w (lambda [] (: mymainmenu :show))
|
||||||
|
{:description "show main menu" :group "awesome"})
|
||||||
|
|
||||||
|
;; Layout manipulation
|
||||||
|
(awful.key [modkey :Shift] :j (lambda [] (awful.client.swap.byidx 1))
|
||||||
|
{:description "swap with next client by index", :group "client"})
|
||||||
|
(awful.key [modkey :Shift] :k (lambda [] (awful.client.swap.byidx -1))
|
||||||
|
{:description "swap with previous client by index", :group "client"})
|
||||||
|
(awful.key [modkey :Control] :j (lambda [] (awful.screen.focus_relative 1))
|
||||||
|
{:description "focus the next screen", :group "screen"})
|
||||||
|
(awful.key [modkey :Control] :k (lambda [] (awful.screen.focus_relative -1))
|
||||||
|
{:description "focus the previous screen", :group "screen"})
|
||||||
|
(awful.key [modkey] :u awful.client.urgent.jumpto
|
||||||
|
{:description "jump to urgent client" :group "client"})
|
||||||
|
(awful.key [modkey] :Tab (lambda []
|
||||||
|
(awful.client.focus.history.previous)
|
||||||
|
(when client.focus (: client.focus :raise)))
|
||||||
|
{:description "go back" :group "client"})
|
||||||
|
|
||||||
|
;; Standard program
|
||||||
|
(awful.key [modkey] :Return (lambda [] (awful.spawn terminal))
|
||||||
|
{:description "open a terminal" :group "launcher"})
|
||||||
|
(awful.key [modkey :Control] :r awesome.restart
|
||||||
|
{:description "reload awesome" :group "awesome"})
|
||||||
|
(awful.key [modkey :Shift] :q awesome.quit
|
||||||
|
{:description "quit awesome" :group "awesome"})
|
||||||
|
|
||||||
|
(awful.key [modkey] :l (lambda [] (awful.tag.incmwfact 0.05))
|
||||||
|
{:description "increase master width factor" :group "layout"})
|
||||||
|
(awful.key [modkey] :h (lambda [] (awful.tag.incmwfact -0.05))
|
||||||
|
{:description "decrease master width factor" :group "layout"})
|
||||||
|
(awful.key [modkey :Shift] :h (lambda [] (awful.tag.incnmaster 1 nil true))
|
||||||
|
{:description "increase the number of master clients" :group "layout"})
|
||||||
|
(awful.key [modkey :Shift] :l (lambda [] (awful.tag.incnmaster -1 nil true))
|
||||||
|
{:description "decrease the number of master clients" :group "layout"})
|
||||||
|
(awful.key [modkey :Control] :h (lambda [] (awful.tag.incncol 1 nil true))
|
||||||
|
{:description "increase the number of columns" :group "layout"})
|
||||||
|
(awful.key [modkey :Control] :l (lambda [] (awful.tag.incncol -1 nil true))
|
||||||
|
{:description "decrease the number of columns" :group "layout"})
|
||||||
|
(awful.key [modkey] :space (lambda [] (awful.layout.inc 1))
|
||||||
|
{:description "select next" :group "layout"})
|
||||||
|
(awful.key [modkey :Shift] :space (lambda [] (awful.layout.inc -1))
|
||||||
|
{:description "select previous" :group "layout"})
|
||||||
|
|
||||||
|
(awful.key [modkey :Control] :n
|
||||||
|
(lambda [] (let [c (awful.client.restore)]
|
||||||
|
;; Focus restored client
|
||||||
|
(when c
|
||||||
|
(set client.focus c)
|
||||||
|
(: c :raise))))
|
||||||
|
{:description "restore minimized" :group "client"})
|
||||||
|
|
||||||
|
;; Prompt
|
||||||
|
(awful.key [modkey] :r (lambda [] (: (. (awful.screen.focused) :mypromptbox) :run))
|
||||||
|
{:description "run prompt" :group "launcher"})
|
||||||
|
|
||||||
|
(awful.key [modkey] :x
|
||||||
|
(lambda [] (awful.prompt.run
|
||||||
|
{:prompt "Run Lua code: "
|
||||||
|
:textbox (. (awful.screen.focused) :mypromptbox :widget)
|
||||||
|
:exe_callback awful.util.eval
|
||||||
|
:history_path (.. (awful.util.get_cache_dir) "/history_eval")}))
|
||||||
|
{:description "lua execute prompt" :group "awesome"})
|
||||||
|
;; Menubar
|
||||||
|
(awful.key [modkey] :p (lambda [] (menubar.show))
|
||||||
|
{:description "show the menubar" :group "launcher"})))
|
||||||
|
|
||||||
|
(local
|
||||||
|
clientkeys
|
||||||
|
(gears.table.join
|
||||||
|
(awful.key [modkey] :f (lambda [c] (set c.fullscreen (not c.fullscreen)) (: c :raise))
|
||||||
|
{:description "toggle fullscreen" :group "client"})
|
||||||
|
(awful.key [modkey :Shift] :c (lambda [c] (: c :kill))
|
||||||
|
{:description "close" :group "client"})
|
||||||
|
(awful.key [modkey :Control] :space awful.client.floating.toggle
|
||||||
|
{:description "toggle floating" :group "client"})
|
||||||
|
(awful.key [modkey :Control] :Return (lambda [c] (: c :swap (awful.client.getmaster)))
|
||||||
|
{:description "move to master" :group "client"})
|
||||||
|
(awful.key [modkey] :o (lambda [c] (: c :move_to_screen))
|
||||||
|
{:description "move to screen" :group "client"})
|
||||||
|
(awful.key [modkey] :t (lambda [c] (set c.ontop (not c.ontop)))
|
||||||
|
{:description "toggle keep on top" :group "client"})
|
||||||
|
(awful.key [modkey] :n (lambda [c] (set c.minimized true))
|
||||||
|
;; The client currently has the input focus, so it cannot be
|
||||||
|
;; minimized, since minimized clients can't have the focus
|
||||||
|
{:description "minimize" :group "client"})
|
||||||
|
(awful.key [modkey] :m (lambda [c] (set c.maximized (not c.maximized)) (: c :raise))
|
||||||
|
{:description "(un)maximize" :group "client"})
|
||||||
|
(awful.key [modkey :Control] :m
|
||||||
|
(lambda [c]
|
||||||
|
(set c.maximized_vertical (not c.maximized_vertical))
|
||||||
|
(: c :raise))
|
||||||
|
{:description "(un)maximize vertically" :group "client"})
|
||||||
|
(awful.key [modkey :Shift] :m
|
||||||
|
(lambda [c]
|
||||||
|
(set c.maximized_horizontal (not c.maximized_horizontal))
|
||||||
|
(: c :raise))
|
||||||
|
{:description "(un)maximize horizontally" :group "client"})))
|
||||||
|
|
||||||
|
;; Bind all keys numbers to tags.
|
||||||
|
;; Be careful: we use keycodes to make it work on any keyboard layout.
|
||||||
|
;; This should ma on the top row of your keyboard, usually 1 to 9.
|
||||||
|
(for [i 1 9]
|
||||||
|
(set
|
||||||
|
globalkeys
|
||||||
|
(gears.table.join
|
||||||
|
globalkeys
|
||||||
|
;; View tag only.
|
||||||
|
(awful.key [modkey] (.. "#" (+ i 9))
|
||||||
|
(lambda [] (let [screen (awful.screen.focused)
|
||||||
|
tag (. screen.tags i)]
|
||||||
|
(when tag
|
||||||
|
(: tag :view_only))))
|
||||||
|
{:description (.. "view tag #" i) :group "tag"})
|
||||||
|
;; Toggle tag display.
|
||||||
|
(awful.key [modkey :Control] (.. "#" (+ i 9))
|
||||||
|
(lambda [] (let [screen (awful.screen.focused)
|
||||||
|
tag (. screen.tags i)]
|
||||||
|
(when tag
|
||||||
|
(awful.tag.viewtoggle tag))))
|
||||||
|
{:description (.. "toggle tag #" i) :group "tag"})
|
||||||
|
;; Move client to tag.
|
||||||
|
(awful.key [modkey :Shift] (.. "#" (+ i 9))
|
||||||
|
(lambda [] (when client.focus
|
||||||
|
(let [tag (. client.focus.screen.tags i)]
|
||||||
|
(when tag
|
||||||
|
(: client.focus :move_to_tag tag)))))
|
||||||
|
{:description (.. "move focused client to tag #" i) :group "tag"})
|
||||||
|
;; Toggle tag on focused client.
|
||||||
|
(awful.key [modkey :Control :Shift] (.. "#" (+ i 9))
|
||||||
|
(lambda [] (when client.focus
|
||||||
|
(let [tag (. client.focus.screen.tags i)]
|
||||||
|
(when tag
|
||||||
|
(: client.focus :toggle_tag tag)))))
|
||||||
|
{:description (.. "toggle focused client on tag #" i) :group "tag"}))))
|
||||||
|
|
||||||
|
(local
|
||||||
|
clientbuttons
|
||||||
|
(gears.table.join
|
||||||
|
(awful.button [] 1 (lambda [c] (set client.focus c) (: c :raise)))
|
||||||
|
(awful.button [modkey] 1 awful.mouse.client.move)
|
||||||
|
(awful.button [modkey] 3 awful.mouse.client.resize)))
|
||||||
|
|
||||||
|
;; Set keys
|
||||||
|
(root.keys globalkeys)
|
||||||
|
;;}}}
|
||||||
|
|
||||||
|
;; {{{ Rules
|
||||||
|
;; Rules apply to new clients (through the "manage" signal).
|
||||||
|
(set awful.rules.rules
|
||||||
|
[ ;; All clients will match this rule.
|
||||||
|
{:rule {}
|
||||||
|
:properties {:border_width beautiful.border_width
|
||||||
|
:border_color beautiful.border_normal
|
||||||
|
:focus awful.client.focus.filter
|
||||||
|
:raise true
|
||||||
|
:keys clientkeys
|
||||||
|
:buttons clientbuttons
|
||||||
|
:screen awful.screen.preferred
|
||||||
|
:placement (+ awful.placement.no_overlap
|
||||||
|
awful.placement.no_offscreen)}}
|
||||||
|
|
||||||
|
;; Floating clients.
|
||||||
|
{:rule_any {:instance ["DTA" ;; Firefox addon DownThemAll.
|
||||||
|
"copyq"] ;; Includes session name in class.
|
||||||
|
:class ["Arandr"
|
||||||
|
"Gpick"
|
||||||
|
"Kruler"
|
||||||
|
"MessageWin" ;; kalarm.
|
||||||
|
"Sxiv"
|
||||||
|
"Wpa_gui"
|
||||||
|
"pinentry"
|
||||||
|
"veromix"
|
||||||
|
"xtightvncviewer"]
|
||||||
|
:name ["Event Tester"] ;; xev
|
||||||
|
:role ["AlarmWindow" ;; Thunderbird's calendar
|
||||||
|
"pop-up"]} ;; e.g. Google Chrome's (detatched) Developer Tools.
|
||||||
|
:properties {:floating true}}
|
||||||
|
|
||||||
|
;; Add titlebars to normal clients and dialogs.
|
||||||
|
{:rule_any {:type ["normal" "dialog"]}
|
||||||
|
:properties {:titlebars_enabled true}}
|
||||||
|
|
||||||
|
;; Set Firefox to always map on the tag named "2" on screen 1.
|
||||||
|
;; {:rule {:class "Firefox"}
|
||||||
|
;; :properties {:screen 1 :tag "2"}}
|
||||||
|
])
|
||||||
|
;; }}}
|
||||||
|
|
||||||
|
;; {{{ Signals
|
||||||
|
;; Signal function to execute when a new client appears.
|
||||||
|
(client.connect_signal "manage"
|
||||||
|
(lambda [c] (when (and awesome.startup
|
||||||
|
(not c.size_hints.user_position)
|
||||||
|
(not c.size_hints.program_position))
|
||||||
|
;; Prevent clients from being unreachable after screen count changes.
|
||||||
|
(awful.placement.no_offscreen c))))
|
||||||
|
|
||||||
|
;; Add a titlebar if titlebars_enabled is set to true in the rules.
|
||||||
|
(client.connect_signal
|
||||||
|
"request::titlebars"
|
||||||
|
(lambda [c] (let [buttons (gears.table.join
|
||||||
|
(awful.button [] 1 (lambda []
|
||||||
|
(set client.focus c)
|
||||||
|
(: c :raise)
|
||||||
|
(awful.mouse.client.move c)))
|
||||||
|
(awful.button [] 3 (lambda []
|
||||||
|
(set client.focus c)
|
||||||
|
(: c :raise)
|
||||||
|
(awful.mouse.client.resize c))))]
|
||||||
|
(: (awful.titlebar c) :setup
|
||||||
|
{ ;; Left
|
||||||
|
1 {1 (awful.titlebar.widget.iconwidget c)
|
||||||
|
:buttons buttons
|
||||||
|
:layout wibox.layout.fixed.horizontal}
|
||||||
|
;; Middle
|
||||||
|
2 {1 {:align "center" ;; Title
|
||||||
|
:widget (awful.titlebar.widget.titlewidget c)}
|
||||||
|
:buttons buttons
|
||||||
|
:layout wibox.layout.flex.horizontal}
|
||||||
|
;; Right
|
||||||
|
3 {1 (awful.titlebar.widget.floatingbutton c)
|
||||||
|
2 (awful.titlebar.widget.maximizedbutton c)
|
||||||
|
3 (awful.titlebar.widget.stickybutton c)
|
||||||
|
4 (awful.titlebar.widget.ontopbutton c)
|
||||||
|
5 (awful.titlebar.widget.closebutton c)
|
||||||
|
:layout (wibox.layout.fixed.horizontal)}
|
||||||
|
:layout wibox.layout.align.horizontal}))))
|
||||||
|
|
||||||
|
;; Enable sloppy focus, so that the focus follows mouse.
|
||||||
|
(client.connect_signal "mouse::enter"
|
||||||
|
(lambda [c] (when (and (~= (awful.layout.get c.screen)
|
||||||
|
awful.layout.suit.magnifier)
|
||||||
|
(awful.client.focus.filter c))
|
||||||
|
(set client.focus c))))
|
||||||
|
|
||||||
|
(client.connect_signal "focus"
|
||||||
|
(lambda [c] (set c.border_color beautiful.border_focus)))
|
||||||
|
(client.connect_signal "unfocus"
|
||||||
|
(lambda [c] (set c.border_color beautiful.border_normal))))
|
||||||
|
;; }}}
|
||||||
Reference in New Issue
Block a user