imarko

(defun my-ibuffer-auto-update-changed ()
  (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
    (ibuffer-update nil t)))

(defun my-ibuffer-auto-mode ()
  (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) ; initialize
  (add-hook 'post-command-hook 'my-ibuffer-auto-update-changed nil t))

(add-hook 'ibuffer-mode-hook 'my-ibuffer-auto-mode)

imarko

(defun my-mastodon-kill-buffers ()
  "Kill all mastodon buffers."
  (interactive)
  (dolist (buffer (buffer-list))
    (let ((mode (buffer-local-value 'major-mode buffer)))
      (when (string-equal mode "mastodon-mode")
        (kill-buffer buffer)))))

(defun my-mastodon-tl-scroll-up ()
  "Scroll mastodon timeline up, refreshing if needed."

imarko

(defun my-suspend ()
  (interactive)
  (if (controlling-tty-p)
      (suspend-emacs)
    (suspend-tty)))

imarko

(define-derived-mode
  pandoc-view-mode
  org-mode
  "pandoc-view-mode"
  "View pandoc converted files in org-mode."
  (erase-buffer)
  (save-excursion
    (call-process "pandoc" nil t nil "-torg" (buffer-file-name)))
  (not-modified)
  (read-only-mode t)

imarko

(define-derived-mode
  pandoc-view-mode
  org-mode
  "pandoc-view-mode"
  "View pandoc converted files in org-mode."
  (erase-buffer)
  (save-excursion
    (call-process "pandoc" nil t nil "-torg" (buffer-file-name)))
  (not-modified)
  (read-only-mode t)

imarko

(defun diff-last-two-kills ()
  "Put the last two kills to temporary buffers and diff them."
  (interactive)
  (with-temp-buffer
    (let ((old (current-buffer)))
      (insert (current-kill 0 t))
      (with-temp-buffer
        (insert (current-kill 1 t))
        (diff old (current-buffer))))))

imarko

[Settings]
Grid=1

[Hotkeys]
Sound=Alt+S
PTT=Apostrophe,BackMouseButton
VoiceChatToggleMute=Grave
ChatCancel=Escape,Delete
ChatDefault=Slash,Backspace
MenuGame=Delete,Escape