summaryrefslogtreecommitdiffhomepage
path: root/attic
diff options
context:
space:
mode:
Diffstat (limited to 'attic')
-rw-r--r--attic/elisp/misc.el97
1 files changed, 97 insertions, 0 deletions
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)