sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-11 19:45:25 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat(desktop): telegram-desktop & fix shepherd

Browse source
This commit is contained in:
Pavel Korytov 2022-12-03 23:35:27 +03:00
parent f5e612afe9
commit d0be119ad6
4 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.config/guix/manifests/desktop-misc.scm
View file

@ -1,5 +1,6 @@
(specifications->manifest (specifications->manifest
'( '(
"telegram-desktop"
"bluez" "bluez"
"xev" "xev"
"gparted" "gparted"

5
.config/shepherd/init.scm
View file

@ -116,7 +116,7 @@
(action 'shepherd 'daemonize) (action 'shepherd 'daemonize)
(for-each start '(mpd (for-each start '(mpd
mpd-watcher sqrt-data-agent-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk
@ -127,5 +127,4 @@
polkit-gnome polkit-gnome
davmail davmail
xmodmap xmodmap
nm-applet nm-applet))
sqrt-data))

4
.emacs.d/desktop.el
View file

@ -359,16 +359,14 @@ DIR is either 'left or 'right."
^Apps^ ^Apps^
_t_: Terminal (Alacritty) _t_: Terminal (Alacritty)
_b_: Browser (Firefox) _b_: Browser (Firefox)
_v_: VK
_s_: Slack _s_: Slack
_e_: Telegram _e_: Telegram
_d_: Discord _d_: Discord
" "
("t" (lambda () (interactive) (my/run-in-background "alacritty"))) ("t" (lambda () (interactive) (my/run-in-background "alacritty")))
("b" (lambda () (interactive) (my/run-in-background "firefox"))) ("b" (lambda () (interactive) (my/run-in-background "firefox")))
("v" (lambda () (interactive) (my/run-in-background "vk")))
("s" (lambda () (interactive) (my/run-in-background "slack-wrapper"))) ("s" (lambda () (interactive) (my/run-in-background "slack-wrapper")))
("e" (lambda () (interactive) (my/run-in-background "flatpak run org.telegram.desktop"))) ("e" (lambda () (interactive) (my/run-in-background "telegram-desktop")))
("d" (lambda () (interactive) (my/run-in-background "flatpak run com.discordapp.Discord")))) ("d" (lambda () (interactive) (my/run-in-background "flatpak run com.discordapp.Discord"))))
(defun my/exwm-lock () (defun my/exwm-lock ()

10
Desktop.org
View file

@ -883,16 +883,14 @@ A +transient+ hydra for shortcuts for the most frequent apps.
^Apps^ ^Apps^
_t_: Terminal (Alacritty) _t_: Terminal (Alacritty)
_b_: Browser (Firefox) _b_: Browser (Firefox)
_v_: VK
_s_: Slack _s_: Slack
_e_: Telegram _e_: Telegram
_d_: Discord _d_: Discord
" "
("t" (lambda () (interactive) (my/run-in-background "alacritty"))) ("t" (lambda () (interactive) (my/run-in-background "alacritty")))
("b" (lambda () (interactive) (my/run-in-background "firefox"))) ("b" (lambda () (interactive) (my/run-in-background "firefox")))
("v" (lambda () (interactive) (my/run-in-background "vk")))
("s" (lambda () (interactive) (my/run-in-background "slack-wrapper"))) ("s" (lambda () (interactive) (my/run-in-background "slack-wrapper")))
("e" (lambda () (interactive) (my/run-in-background "flatpak run org.telegram.desktop"))) ("e" (lambda () (interactive) (my/run-in-background "telegram-desktop")))
("d" (lambda () (interactive) (my/run-in-background "flatpak run com.discordapp.Discord")))) ("d" (lambda () (interactive) (my/run-in-background "flatpak run com.discordapp.Discord"))))
#+end_src #+end_src
*** Locking up *** Locking up
@ -3677,7 +3675,7 @@ Daemonize shepherd
Run services Run services
#+begin_src scheme #+begin_src scheme
(for-each start '(mpd (for-each start '(mpd
mpd-watcher sqrt-data-agent-mpd
mcron mcron
aw-server aw-server
aw-watcher-afk aw-watcher-afk
@ -3688,8 +3686,7 @@ Run services
polkit-gnome polkit-gnome
davmail davmail
xmodmap xmodmap
nm-applet nm-applet))
sqrt-data))
#+end_src #+end_src
* Guix settings * Guix settings
Other desktop programs I use are listed below. Other desktop programs I use are listed below.
@ -3717,6 +3714,7 @@ Other desktop programs I use are listed below.
| desktop-misc | gparted | Manage partitions | | desktop-misc | gparted | Manage partitions |
| desktop-misc | xev | Test input | | desktop-misc | xev | Test input |
| desktop-misc | bluez | Provides bluetoothctl | | desktop-misc | bluez | Provides bluetoothctl |
| desktop-misc | telegram-desktop | |
#+NAME: packages #+NAME: packages
#+begin_src emacs-lisp :tangle no #+begin_src emacs-lisp :tangle no