feat(desktop): telegram-desktop & fix shepherd

.config/guix/manifests/desktop-misc.scm

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

.config/shepherd/init.scm

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

.emacs.d/desktop.el

@@ -359,16 +359,14 @@ DIR is either 'left or 'right."
 ^Apps^
 _t_: Terminal (Alacritty)
 _b_: Browser (Firefox)
-_v_: VK
 _s_: Slack
 _e_: Telegram
 _d_: Discord
 "
   ("t" (lambda () (interactive) (my/run-in-background "alacritty")))
   ("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")))
-  ("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"))))
 
 (defun my/exwm-lock ()

Desktop.org

@@ -883,16 +883,14 @@ A +transient+ hydra for shortcuts for the most frequent apps.
 ^Apps^
 _t_: Terminal (Alacritty)
 _b_: Browser (Firefox)
-_v_: VK
 _s_: Slack
 _e_: Telegram
 _d_: Discord
 "
   ("t" (lambda () (interactive) (my/run-in-background "alacritty")))
   ("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")))
-  ("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"))))
 #+end_src
 *** Locking up
@@ -3677,7 +3675,7 @@ Daemonize shepherd
 Run services
 #+begin_src scheme
 (for-each start '(mpd
-                  mpd-watcher
+                  sqrt-data-agent-mpd
                   mcron
                   aw-server
                   aw-watcher-afk
@@ -3688,8 +3686,7 @@ Run services
                   polkit-gnome
                   davmail
                   xmodmap
-                  nm-applet
-                  sqrt-data))
+                  nm-applet))
 #+end_src
 * Guix settings
 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 | xev                    | Test input                                |
 | desktop-misc | bluez                  | Provides bluetoothctl                     |
+| desktop-misc | telegram-desktop       |                                           |
 
 #+NAME: packages
 #+begin_src emacs-lisp :tangle no