Trying to use var

This commit is contained in:
Chris Cochrun 2021-02-03 14:29:10 -06:00
parent 482ac6e28e
commit 2564684eea
2 changed files with 15 additions and 9 deletions

View file

@ -20,7 +20,7 @@
;; my splits ;; my splits
(local rules (require "rules")) (local rules (require "rules"))
(local keybindings (require "keybindings")) (local keybindings (require "keybindings"))
;; (local notifications (require "notifications")) ||# ;; (local notifications (require "notifications"))
;; Error handling ;; Error handling
;; Check if awesome encountered an error during startup and fell back to ;; Check if awesome encountered an error during startup and fell back to
@ -63,11 +63,14 @@
(local ctrl "Control") (local ctrl "Control")
(local alt "Mod1") (local alt "Mod1")
;; Set hostname so that we can utilize specific features on different machines ;; Set hostname so that we can utilize specific features on different machines|#
(local laptop (awful.spawn.easy_async "hostname" (fn [ stdout stderr reason exit_code ] (var laptop false)
(awful.spawn.easy_async "hostname" (fn [ stdout stderr reason exit_code ]
(if (= "chris-linuxlaptop\n" stdout) (if (= "chris-linuxlaptop\n" stdout)
true)))) (set laptop true)
(if laptop (naughty.notify {:text "laptop detected"}) (naughty.notify {:text "laptop not detected"})) (set laptop true))))
(naughty.notify {:text (tostring laptop)})
;; (if laptop (naughty.notify {:text "laptop detected"}) (naughty.notify {:text "laptop not detected"}))
;; Table of layouts to cover with awful.layout.inc, order matters. ;; Table of layouts to cover with awful.layout.inc, order matters.
(set awful.layout.layouts [ (set awful.layout.layouts [
@ -76,14 +79,14 @@
;; awful.layout.suit.tile.left ;; awful.layout.suit.tile.left
;; awful.layout.suit.tile.bottom ;; awful.layout.suit.tile.bottom
;; awful.layout.suit.tile.top ;; awful.layout.suit.tile.top
awful.layout.suit.fair ;; awful.layout.suit.fair
;; awful.layout.suit.fair.horizontal ;; awful.layout.suit.fair.horizontal
awful.layout.suit.spiral ;; awful.layout.suit.spiral
;; awful.layout.suit.spiral.dwindle ;; awful.layout.suit.spiral.dwindle
awful.layout.suit.max awful.layout.suit.max
;; awful.layout.suit.max.fullscreen ;; awful.layout.suit.max.fullscreen
awful.layout.suit.magnifier awful.layout.suit.magnifier
awful.layout.suit.corner.nw ;; awful.layout.suit.corner.nw
;; awful.layout.suit.corner.ne ;; awful.layout.suit.corner.ne
;; awful.layout.suit.corner.sw ;; awful.layout.suit.corner.sw
;; awful.layout.suit.corner.se ;; awful.layout.suit.corner.se
@ -466,3 +469,4 @@
;; (awful.spawn "nextcloud --background") ;; (awful.spawn "nextcloud --background")
(awful.spawn "libinput-gestures-setup start") (awful.spawn "libinput-gestures-setup start")
(awful.spawn "bluetoothctl power on") (awful.spawn "bluetoothctl power on")
(awful.spawn "emacs --daemon")

View file

@ -124,8 +124,10 @@
{:description "launch mu4e in new emacs frame" :group "apps" }) {:description "launch mu4e in new emacs frame" :group "apps" })
(awful.key [ modkey shift ] "Return" (fn [] (awful.spawn "emacsclient -c -e '(+eshell/frame)'")) (awful.key [ modkey shift ] "Return" (fn [] (awful.spawn "emacsclient -c -e '(+eshell/frame)'"))
{:description "launch eshell in new emacs frame" :group "apps" }) {:description "launch eshell in new emacs frame" :group "apps" })
(awful.key [ modkey ] "e" (fn [] (awful.spawn "env GDK_SCALE=2 emacsclient -c -a 'emacs'")) (awful.key [ modkey ] "e" (fn [] (awful.spawn "emacsclient -c -a 'emacs'"))
{:description "launch new emacs frame" :group "apps" }) {:description "launch new emacs frame" :group "apps" })
(awful.key [ modkey ] "p" (fn [] (awful.spawn "emacsclient -c -e '(pass)'"))
{:description "select pass" :group "apps" })
;; rofi ;; rofi
(awful.key [] "Menu" (fn [] (awful.spawn "/home/chris/.dotfiles/rofi/launchers-git/launcher.sh")) (awful.key [] "Menu" (fn [] (awful.spawn "/home/chris/.dotfiles/rofi/launchers-git/launcher.sh"))
{:description "launch rofi" :group "launcher"}) {:description "launch rofi" :group "launcher"})