Adding Bongo and making mu4e work with icons

init.el

@@ -746,7 +746,8 @@ If on a:
 	mu4e-change-filenames-when-moving t
 	mu4e-get-mail-command "mbsync -a"
 	mu4e-update-interval (* 15 60)
-	mu4e-attachment-dir "/home/chris/Documents/PersonalImportant/attachments")
+	mu4e-attachment-dir "/home/chris/Documents/PersonalImportant/attachments"
+	mu4e-completing-read-function #'completing-read)
 
   (setq mu4e-contexts
 	(list
@@ -825,6 +826,18 @@ If on a:
 		 :key 112)))
 
   (setq mu4e-mu-binary "/usr/bin/mu")
+  (setq mu4e-use-fancy-chars t
+        mu4e-headers-draft-mark '("D" . "")
+        mu4e-headers-flagged-mark '("F" . "")
+        mu4e-headers-new-mark '("N" . "")
+        mu4e-headers-passed-mark '("P" . "")
+        mu4e-headers-replied-mark '("R" . "")
+        mu4e-headers-seen-mark '("S" . "")
+        mu4e-headers-trashed-mark '("T" . "")
+        mu4e-headers-attach-mark '("a" . "")
+        mu4e-headers-encrypted-mark '("x" . "")
+        mu4e-headers-signed-mark '("s" . "")
+        mu4e-headers-unread-mark '("u" . ""))
 
   (defun chris/setup-mu4e-headers ()
     (toggle-truncate-lines -1)
@@ -841,6 +854,13 @@ If on a:
 (use-package org-mime
   :ensure t)
 
+(use-package org-msg
+  :hook (mu4e-compose-pre . org-msg-mode)
+  :config
+  (setq org-msg-startup "inlineimages"
+        org-msg-greeting-name-limit 3
+        org-msg-default-alternatives '(html text)))
+
 (use-package calfw
   :commands chris/calfw-calendar-open
   :config
@@ -989,4 +1009,45 @@ If on a:
   :config
   (setq rmh-elfeed-org-files (list "~/org/elfeed.org")))
 
+(use-package bongo
+  :commands (bongo)
+  :config
+  (define-bongo-backend mpv
+    ;; :constructor 'bongo-start-mpv-player
+    :program-name 'mpv
+    :constructor 'bongo-start-mpv-player
+    :extra-program-arguments '("--input-ipc-server=/tmp/mpvsocket")
+    :matcher '((local-file "file:" "http:" "ftp:" "lbry:")
+               "ogg" "flac" "mp3" "mka" "wav" "wma"
+               "mpg" "mpeg" "vob" "avi" "ogm" "opus" "mp4"
+	       "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts")
+    :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:"
+                "dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:"
+                "cue:" "sdp:" "mpst:" "tivo:") . t)
+    :matcher '(("http:" "https:" "lbry:") . t))
+
+  (setq bongo-enabled-backends '(mpv)
+	bongo-track-mark-icon-file-name "sun-solid.png")
+
+  (defun chris/bongo-mark-line-forward ()
+    (interactive)
+    (bongo-mark-line)
+    (goto-char (bongo-point-after-object))
+    (next-line))
+
+  (defun chris/bongo-mpv-pause/resume ()
+    (interactive)
+    (bongo-mpv-player-pause/resume bongo-player))
+
+  :general
+  (chris/leader-keys
+    "ob" 'bongo)
+  (general-def 'normal bongo-playlist-mode-map
+    "RET" 'bongo-dwim
+    "d" 'bongo-kill
+    "u" 'bongo-unmark-region
+    "p" 'bongo-pause/resume
+    "H" 'bongo-switch-buffers
+    "m" 'chris/bongo-mark-line-forward))
+
 (setq gc-cons-threshold 2000000)