|
|
|
@ -131,7 +131,7 @@ pointer as well as get a bunch of stuff started. To see what’s in the
|
|
|
|
|
~autostart~ script, [[file:bin.org::#Autostart-a99e99e7][see here]].
|
|
|
|
|
#+begin_src lisp
|
|
|
|
|
(run-shell-command "xsetroot -cursor_name left_ptr")
|
|
|
|
|
(run-shell-command "autostart")
|
|
|
|
|
(run-shell-command "sleep 1 && autorandr vertical && autorandr horizontal && autostart")
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
Now, we’ll load a couple of my custom files that will be described below:
|
|
|
|
@ -218,8 +218,7 @@ including a short description of what they are for:
|
|
|
|
|
In order to be able to use MPD from StumpWM itself, we’ll need to
|
|
|
|
|
connect to it.
|
|
|
|
|
#+begin_src lisp
|
|
|
|
|
(when *initializing*
|
|
|
|
|
(mpd-connect))
|
|
|
|
|
(mpd:mpd-connect)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
Finally, we can notify the user everything is ready.
|
|
|
|
@ -1083,6 +1082,29 @@ then attempt to connect to it.
|
|
|
|
|
(bluetooth-connect-device choice)))
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
*** Keybinds
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
:CUSTOM_ID: Utilities-Bluetooth-Keybinds-gxjaagl05aj0
|
|
|
|
|
:END:
|
|
|
|
|
It’s all nice and all, but typing manually the commands with ~s-SPC ;~
|
|
|
|
|
is a bit tiring, so let’s define our bluetooth keymap which we will
|
|
|
|
|
bind to ~s-SPC B~.
|
|
|
|
|
#+name: bluetooth-keymap
|
|
|
|
|
| Keychord | Command |
|
|
|
|
|
|----------+--------------------|
|
|
|
|
|
| ~c~ | ~bluetooth-connect~ |
|
|
|
|
|
| ~o~ | ~bluetooth-turn-on~ |
|
|
|
|
|
| ~O~ | ~bluetooth-turn-off~ |
|
|
|
|
|
|
|
|
|
|
#+begin_src lisp
|
|
|
|
|
(defvar *my-bluetooth-keymap*
|
|
|
|
|
(let ((m (make-sparse-keymap)))
|
|
|
|
|
<<keybinds-gen(map="m", keybinds=bluetooth-keymap)>>
|
|
|
|
|
m))
|
|
|
|
|
|
|
|
|
|
(define-key *root-map* (kbd "B") '*my-bluetooth-keymap*)
|
|
|
|
|
#+end_src
|
|
|
|
|
|
|
|
|
|
** NetworkManager integration
|
|
|
|
|
:PROPERTIES:
|
|
|
|
|
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
|
|
|
|