Compare commits
4 Commits
d2cbdc3289
...
a28bd018bf
Author | SHA1 | Date | |
---|---|---|---|
a28bd018bf | |||
18db59d9f7 | |||
c3d53388ab | |||
b0a356a5fe |
|
@ -59,7 +59,7 @@ if [[ $CLI == "YES" ]] ; then
|
||||||
else
|
else
|
||||||
pkgname="emacs-phundrak-git"
|
pkgname="emacs-phundrak-git"
|
||||||
fi
|
fi
|
||||||
pkgver=28.0.60.150962
|
pkgver=28.0.60.150968
|
||||||
pkgrel=1
|
pkgrel=1
|
||||||
pkgdesc="GNU Emacs. Development master branch with Phundrak’s tweaks."
|
pkgdesc="GNU Emacs. Development master branch with Phundrak’s tweaks."
|
||||||
arch=('x86_64')
|
arch=('x86_64')
|
||||||
|
|
|
@ -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]].
|
~autostart~ script, [[file:bin.org::#Autostart-a99e99e7][see here]].
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
(run-shell-command "xsetroot -cursor_name left_ptr")
|
(run-shell-command "xsetroot -cursor_name left_ptr")
|
||||||
(run-shell-command "autostart")
|
(run-shell-command "sleep 1 && autorandr vertical && autorandr horizontal && autostart")
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
Now, we’ll load a couple of my custom files that will be described below:
|
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
|
In order to be able to use MPD from StumpWM itself, we’ll need to
|
||||||
connect to it.
|
connect to it.
|
||||||
#+begin_src lisp
|
#+begin_src lisp
|
||||||
(when *initializing*
|
(mpd:mpd-connect)
|
||||||
(mpd-connect))
|
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
Finally, we can notify the user everything is ready.
|
Finally, we can notify the user everything is ready.
|
||||||
|
@ -1083,6 +1082,29 @@ then attempt to connect to it.
|
||||||
(bluetooth-connect-device choice)))
|
(bluetooth-connect-device choice)))
|
||||||
#+end_src
|
#+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
|
** NetworkManager integration
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
:CUSTOM_ID: Utilities-NetworkManager-integration-nm7jxbt0z9j0
|
||||||
|
|
Loading…
Reference in New Issue
Block a user