Compare commits

...

4 Commits

2 changed files with 26 additions and 4 deletions

View File

@ -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 Phundraks tweaks." pkgdesc="GNU Emacs. Development master branch with Phundraks tweaks."
arch=('x86_64') arch=('x86_64')

View File

@ -131,7 +131,7 @@ pointer as well as get a bunch of stuff started. To see whats 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, well load a couple of my custom files that will be described below: Now, well 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, well need to In order to be able to use MPD from StumpWM itself, well 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:
Its all nice and all, but typing manually the commands with ~s-SPC ;~
is a bit tiring, so lets 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