From ab65e9d5cd1165d7213fdf3295ddbabb481766ff Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 29 Sep 2022 00:09:53 +0100
Subject: attic

---
 attic/elisp/misc.el | 97 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)

(limited to 'attic/elisp')

diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el
index 3c9a7b8..12da196 100644
--- a/attic/elisp/misc.el
+++ b/attic/elisp/misc.el
@@ -1,5 +1,74 @@
 ;;  -*- lexical-binding: t; -*-
 
+;;; programming languages
+;;;; Erlang
+(use-package erlang
+  :ensure t
+  :custom ((inferior-erlang-machine-options '("shell"))
+           (inferior-erlang-machine "rebar3")
+           (inferior-erlang-shell-type nil)
+           (erlang-indent-level 4))
+
+  ;; :bind (:map erlang-mode-map (("C-c C-z" . jao-vterm-repl-pop-to-repl)))
+
+  :init
+  ;; (require 'jao-vterm-repl)
+  ;; (add-to-list 'auto-mode-alist '("^rebar\\.config\\`" . erlang-mode))
+  ;; (jao-vterm-repl-register "rebar.config" "rebar3 shell" "^[0-9]+> ")
+
+  :config
+  ;; (defun jao-erlang-current-module ()
+  ;;   (when (save-excursion (goto-char (point-min))
+  ;;                         (re-search-forward "^-module(\\([^)]+\\))" nil t))
+  ;;     (match-string-no-properties 1)))
+
+  ;; (defun jao-erlang-compile (arg)
+  ;;   (interactive "P")
+  ;;   (save-some-buffers)
+  ;;   (when-let ((mname (jao-erlang-current-module)))
+  ;;     (with-current-buffer (jao-vterm-repl)
+  ;;       (vterm-send-string (format "c(%s).\n" mname))
+  ;;       (sit-for 0)
+  ;;       (setq compilation-last-buffer (current-buffer))
+  ;;       (when arg (jao-vterm-repl-pop-to-repl)))))
+
+  ;; (setq erlang-shell-function #'jao-vterm-repl
+  ;;       erlang-shell-display-function #'jao-vterm-repl-pop-to-repl
+  ;;       erlang-compile-function #'jao-erlang-compile)
+  )
+;;;; Idris
+(use-package idris-mode
+  :ensure t
+  :custom ((idris-interpreter-path "idris2")
+           (idris-pretty-printer-width 80)
+           (idris-repl-history-file "~/.emacs.d/cache/idris-history.eld")
+           (idris-stay-in-current-window-on-compiler-error t)))
+(jao-define-attached-buffer "^\\*idris.*")
+
+;;; vterm
+(use-package vterm
+  :ensure t
+  :demand t
+  :commands (vterm vterm-mode)
+  :init (setq vterm-kill-buffer-on-exit t
+              vterm-copy-exclude-prompt t
+              jao-use-vterm t)
+  :config
+
+  (defun jao-vterm-send-C-c () (interactive) (vterm-send-key "c" nil nil t))
+
+  (jao-define-attached-buffer "\\*vterm\\*" 0.5)
+
+  :bind (:map vterm-mode-map ("C-c C-c" . jao-vterm-send-C-c)))
+
+(defun jao-exec-in-vterm (cmd bname)
+  (if (string-blank-p (or cmd ""))
+      (vterm)
+    (let ((vterm-shell cmd)
+          (vterm-kill-buffer-on-exit t)
+          (buff (generate-new-buffer bname)))
+      (switch-to-buffer buff)
+      (vterm-mode))))
 ;;; ace window
 (use-package ace-window
   :ensure t
@@ -570,6 +639,34 @@
 (add-to-list 'browse-url-handlers
              '("^\\(gemini\\|gopher\\)://.*" . jao-elpher--browse))
 
+;;; fontsets
+(defun jao--set-fontsets (_f)
+  (when (and (display-graphic-p) (fboundp 'set-fontset-font))
+    (set-fontset-font t 64257 "Quivira" nil)
+    (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs" nil)
+    (set-fontset-font t 'hangul "NanumGothicCoding" nil)
+    (set-fontset-font t 'unicode (face-attribute 'default :family) nil)
+    (set-fontset-font t 'unicode-bmp (face-attribute 'default :family) nil)
+    (set-fontset-font t 'symbol "Symbola-10" nil)
+    (set-fontset-font t 'greek "GFS Didot" nil)
+    (set-fontset-font t 'mathematical "FreeSerif" nil)
+    (set-fontset-font t 'emoji "Noto Color Emoji" nil)
+    ;; boxes
+    (set-fontset-font t '(9472 . 9599) "Source Code Pro" nil)
+    ;; variation selector-16
+    (set-fontset-font t 65039 "BabelStone Modern-1" nil)))
+
+(jao--set-fontsets nil)
+(add-to-list 'after-make-frame-functions 'jao--set-fontsets)
+
+;;; eshell history completion to allow !$
+;; This is done by advising eshell-history-reference to expand !$
+;; into !!:$ which works...
+(defadvice jao-eshell-history-reference (before ben-fix-eshell-history)
+  "Fixes eshell history to allow !$ as abbreviation for !!:$"
+  (when (string= (ad-get-arg 0) "!$") (ad-set-arg 0 "!!:$")))
+(ad-activate 'jao-eshell-history-reference)
+(add-hook 'eshell-expand-input-functions #'eshell-expand-history-references)
 ;;; snippets
 (defun jao-sway-run-or-focus-tidal ()
   (interactive)
-- 
cgit v1.2.3