;;; system-utils --- System-Wide Utilities -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:

;;; Code:

(require 'cl-lib)
(require 'host-environment)

;; ---------------------------- Edit A File With Sudo ----------------------------

(use-package sudo-edit
  :defer 1
  :bind ("C-x M-f" . sudo-edit))

(defun cj/open-file-with (command)
  "Asynchronously run COMMAND on the current buffer's file."
  (interactive "MOpen with program: ")
  (let ((display-buffer-alist
		 '(("\\*Async Shell Command\\*" display-buffer-no-window))))
	(async-shell-command (format "%s \"%s\"" command buffer-file-name))))

;; ------------------------------ Server Shutdown ------------------------------

(defun server-shutdown ()
  "Save buffers, kill Emacs and shutdown the server."
  (interactive)
  (save-some-buffers)
  (kill-emacs))
(global-set-key (kbd "C-<f10>") #'server-shutdown)
(global-set-key (kbd "<f10>")     #'save-buffers-kill-terminal)

;; ------------------------ List Buffers With Nerd Icons -----------------------

(global-set-key [remap list-buffers] #'ibuffer)
(use-package nerd-icons-ibuffer
  :defer 0.5
  :after nerd-icons
  :hook (ibuffer-mode . nerd-icons-ibuffer-mode)
  :config
  (setq nerd-icons-ibuffer-icon            t
		nerd-icons-ibuffer-color-icon      t
		nerd-icons-ibuffer-human-readable-size t))

;; -------------------------- Scratch Buffer Happiness -------------------------

;; Customize the scratch buffer
(defvar scratch-emacs-version-and-system
  (concat ";; Welcome to Emacs " emacs-version
		  " running on " system-configuration ".\n"))
(defvar scratch-greet
  (concat ";; Emacs ♥ you, " user-login-name ". Happy Hacking!\n\n"))
(setq initial-scratch-message
	  (concat scratch-emacs-version-and-system scratch-greet))
(setq initial-major-mode 'org-mode)

;; --------------------------------- Dictionary --------------------------------

(use-package sdcv
  :defer 1
  :bind ("C-h d" . sdcv-search-input))

;; -------------------------------- Log Silently -------------------------------

(defun cj/log-silently (text)
  "Append TEXT to *Messages* buffer without echoing in the minibuffer."
  (let ((inhibit-read-only t))
	(with-current-buffer (get-buffer-create "*Messages*")
	  (goto-char (point-max))
	  (unless (bolp) (insert "\n"))
	  (insert text)
      (unless (bolp) (insert "\n")))))

;; ------------------------------ Process Monitor ------------------------------

(use-package proced
  :ensure nil ;; built-in
  :defer 0.5
  :commands proced
  :bind ("C-M-p" . proced)
  :custom
  (proced-auto-update-flag t)
  (proced-show-remote-processes t)
  (proced-enable-color-flag t)
  (proced-format 'custom)
  :config
  (add-to-list 'proced-format-alist
			   '(custom user pid ppid sess tree pcpu pmem rss start time
						state (args comm))))

(provide 'system-utils)
;;; system-utils.el ends here