path: root/shoshimacs.el

;;; shoshimacs.el --- Beginner's Mind Config  -*- lexical-binding:t -*-

(let ((my-custom-file (expand-file-name
		       "shoshimacs-custom.el" user-emacs-directory)))
  (unless (file-exists-p my-custom-file)
    (make-empty-file my-custom-file))
  (setq custom-file my-custom-file)
  (load custom-file))


(defun my-hostname ()
  "Helper function to determine on which host Emacs is starting."
  (string-trim (with-temp-buffer (shell-command "hostname" t ) (buffer-string))))

(defvar my-themes-to-install
  '(cyberpunk-theme dracula-theme nano-theme)
  "List of themes to install when loading shoshimacs config.")

(defvar my-chosen-themes
  '(cyberpunk dichromacy dracula leuven modus-operandi modus-vivendi
    nano-dark nano-light tango tango-dark)
  "List of themes I prefer for narrowing and random selection.")

;;; Package Management
(when (< emacs-major-version 28)
  (add-to-list 'package-archives '("nongnu" . "https://elpa.nongnu.org/nongnu/")))

(package-initialize)
(package-refresh-contents)

(when (and (functionp #'native-comp-available-p) (native-comp-available-p))
  (setq native-comp-always-compile t
	package-native-compile t))

;;; Major Keybinding
;; these need to be set before requiring the package
(setq xah-fly-use-control-key nil
      xah-fly-use-meta-key nil)
(package-install 'xah-fly-keys)
(require 'xah-fly-keys)
(xah-fly-keys-set-layout "qwerty")
(xah-fly-keys t)

(define-key 'xah-fly-leader-key-map (kbd "1") #'delete-other-windows)

(defmacro with-map-defkey (keymap leader &rest pairs)
  "Define a new KEYMAP with prefix key LEADER, and list of bindings in it."
  (declare (indent 2))
  `(progn
     (defvar ,keymap (make-sparse-keymap))
     (define-prefix-command (quote ,keymap))
     (global-set-key (kbd ,leader) ,keymap)
     (mapc (lambda (pair)
             (define-key ,keymap
               (kbd (if (numberp (car pair)) (number-to-string (car pair))
                      (symbol-name (car pair))))
               (cadr pair)))
           (quote ,(seq-partition pairs 2)))))

(defvar *my-config* "~/projects/shoshimacs/shoshimacs.org"
  "Path to my main configuration file.")

(defun my-configuration ()
  (interactive)
  (find-file *my-config*))

(defun my-reload-config ()
  "Tangles and reloads a literate config with `org-babel-load-file'"
  (interactive)
  (org-babel-load-file *my-config*))

(with-map-defkey my-key-map "M-m"
  1 delete-other-windows
  a apropos
  b consult-buffer
  c my-configuration
  d embark-act
  e eshell
  f find-file
  g magit
  h info
  i consult-imenu
  j describe-function
  k describe-variable
  n tab-next
  s consult-ripgrep
  t consult-theme
  w which-key-mode
  <f1> my-reload-config)

;;; Completion
(setq completion-styles '(flex basic partial-completion emacs22)
      completion-cycle-threshold 3
      tab-always-indent 'complete)

(package-install 'consult)

(global-set-key (kbd "C-x b") #'consult-buffer)
(define-key xah-fly-leader-key-map (kbd "f") #'consult-buffer)
(define-key xah-fly-command-map (kbd "n") #'consult-line)

(with-eval-after-load 'consult
  (consult-customize consult-theme :preview-key '(:debounce 0.5 any))
  (setq consult-themes my-chosen-themes))

(package-install 'embark)
(package-install 'embark-consult)
(global-set-key (kbd "C-;") #'embark-act)
(setq prefix-help-command #'embark-prefix-help-command)

(package-install 'marginalia)
(marginalia-mode)

(package-install 'vertico)
(setq minibuffer-prompt-properties
      '(read-only t cursor-intangible t face minibuffer-prompt))
(add-hook 'minibuffer-setup-hook #'cursor-intangible-mode)
(setq read-extended-command-predicate
      #'command-completion-default-include-p)
(setq enable-recursive-minibuffers t)
(vertico-mode)

(require 'vertico-directory)
(define-key vertico-map (kbd "RET") #'vertico-directory-enter)
(define-key vertico-map (kbd "DEL") #'vertico-directory-delete-char)
(define-key vertico-map (kbd "M-DEL") #'vertico-directory-delete-word)
(define-key vertico-map (kbd "M-j") #'vertico-quick-insert)

(package-install 'corfu)
(setq corfu-auto t
      corfu-cycle t
      corfu-quit-no-match t)
(global-corfu-mode t)

(package-install 'corfu-terminal)
(unless (display-graphic-p)
    (corfu-terminal-mode +1))

(package-install 'which-key)
(which-key-mode)

;;; Editing
(electric-pair-mode)

(package-install 'markdown-mode)

(defun my-org-top-level-heading ()
  (interactive)
  (let ((moo 1))
    (while moo (setq moo (org-up-heading-safe)))))

(package-install 'htmlize)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((emacs-lisp . t)
   (shell . t)))

(recentf-mode)

(setq indent-tabs-mode nil)

;;; Programming
(package-install 'sly)

(package-install 'json-mode)

(package-install 'inf-ruby)

(package-install 'devdocs)

;;; Projects
(package-install 'magit)

;;; External Services
(package-install 'plz)

(package-install 'srht)
(setq srht-username "shoshin")

(defun read-file-into-string (f)
  (with-temp-buffer
    (insert-file-contents f)
    (buffer-string)))

(setq cicadas-paste-pw (read-file-into-string "~/.bepasty-key"))

(defun cicadas-paste-current-buffer () 
  (interactive)
  (let ((tmpfile
	 (concat "/tmp/" (buffer-name))))
    (write-region nil nil tmpfile)
    (let ((url 
	   (cl-first (last (butlast
			 (split-string
			  (shell-command-to-string
			   (format "pastebinit -i '%s' -p %s -t '%s' -f text/plain"
				   tmpfile
				   cicadas-paste-pw
				   (buffer-name)))
			  "\n"))))))
      (delete-file tmpfile)
      (kill-new url)
      (message "Pasted to %s (on kill ring)" url))))

;;; User Interface
(when (display-graphic-p)
  (scroll-bar-mode -1)
  (fringe-mode '(8 . 0))
  (menu-bar-mode -1)
  (tool-bar-mode -1))

(package-install 'darkroom)

(let ((size (if (or (equal (my-hostname) "zebes") (equal (my-hostname) "ridley")) 16 12)))
 (set-frame-font (format "Victor Mono-%s" size)))

(global-hl-line-mode t)

(mapc #'package-install my-themes-to-install)

(package-install 'windresize)