phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[StumpWM] Update functions for when I am at work

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2023-05-28 16:32:30 +02:00
parent 6efe53acad
commit 3073990aa2
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
org/config/stumpwm.org
View File

@ -331,11 +331,16 @@ To save the current desktop, I can write a wrapper around
#+end_src #+end_src
Basically the same goes for loading the desktop layout, but this time Basically the same goes for loading the desktop layout, but this time
it’s ~restore-from-file~ that’s wrapped. it’s ~restore-from-file~ that’s wrapped. I also want to launch Global
Protect at the same time, because I always forget to before launching
~launch-work~ described below, and automatically connect my bluetooth
headset.
#+begin_src lisp #+begin_src lisp
(defcommand at-work () () (defcommand at-work () ()
"Restore desktop layout when at work." "Restore desktop layout when at work."
(restore-from-file *my/desktop-dump-file*)) (restore-from-file *my/desktop-dump-file*)
(run-shell-command "gpclient")
(run-shell-command "bluetoothctl power on && bluetoothctl connect 14:3F:A6:6D:E3:D9"))
#+end_src #+end_src
If I want to quickly launch all programs I will need, I can also If I want to quickly launch all programs I will need, I can also