elcord-wsl.el

;;; elcord-wsl.el --- Discord RPC for Emacs on WSL

;;; Commentary:
;;; Code:
(require 'json)

(defvar elcord-wsl--assets-alist '(("_default" . "_default"))
  "The rich presence assets used for each buffer name.")

(defvar elcord-wsl--client-id "698809287564328991"
  "The client ID of the application for Rich Presence.")

(defvar elcord-wsl--ignored-buffers '("Minibuf")
  "The buffers that will not be displayed in the Rich Presence.")

(defvar elcord-wsl--load-path nil
  "The path where elcord-wsl files are located.")

(defvar elcord-wsl--node-path "/mnt/c/Program Files/nodejs/node.exe"
  "The path where Node.js is installed on Windows.")

(defvar elcord-wsl--timer nil
  "A timer object that updates the activity every 15s.")

(defun elcord-wsl--details-function (buf)
  "Provide the string for the Rich Presence details."
  (concat "Editing " buf))

(defun elcord-wsl--large-image-text-function (buf)
  "Provide the text shown when hovering over the large image."
  (concat "Emacs " emacs-version))

(defun elcord-wsl--state-function (buf)
  "Provide the string for the Rich Presence state."
  (concat "Line " (format-mode-line "%l")))

(defun elcord-wsl--connect ()
  "Run the PM2 process."
  (interactive)
  (if (not elcord-wsl--timer)
      (progn
        (setq elcord-wsl--timer
              (run-with-timer 0 15 'elcord-wsl--update-activity))
        (let ((inhibit-message t)
              (message-log-max nil))
          (let ((path-parse
                 (concat
                  "$(wslpath -w  " elcord-wsl--load-path "/index.js | sed 's/\\\\/\\\\\\\\/g')" ))
                (head-command
                 (concat
                  '"pm2 start \"'" elcord-wsl--node-path "'")))
            (shell-command
             (concat head-command " " path-parse "\" --name elcord-wsl"))

(defun elcord-wsl--disconnect ()
  "Delete the PM2 process."
  (interactive)
  (if elcord-wsl--timer
    (progn
      (cancel-timer elcord-wsl--timer)
      (setq elcord-wsl--timer nil)
      (let ((inhibit-message t)
            (message-log-max nil))
        (shell-command "pm2 delete elcord-wsl")))))

(defun elcord-wsl--update-activity ()
  (setq buf (replace-regexp-in-string
    "<[^>]+>$" "" (buffer-name)))
  (setq obj (json-new-object))
  (setq obj (json-add-to-object obj
    "assets" elcord-wsl--assets-alist))
  (setq obj (json-add-to-object obj
    "ignored" elcord-wsl--ignored-buffers))
  (setq obj (json-add-to-object obj
    "buffer" buf))
  (setq obj (json-add-to-object obj
    "clientId" elcord-wsl--client-id))
  (setq obj (json-add-to-object obj
    "details" (elcord-wsl--details-function buf)))
  (setq obj (json-add-to-object obj
    "state" (elcord-wsl--state-function buf)))
  (setq obj (json-add-to-object obj
    "largeImageText" (elcord-wsl--large-image-text-function buf)))
  (with-temp-file (concat elcord-wsl--load-path "/config.json")
    (insert (json-encode obj))))

(add-hook 'kill-emacs-hook 'elcord-wsl--disconnect)

(provide 'elcord-wsl)

;;; elcord-wsl.el ends here