libs -> lib/

3 files changed, 0 insertions, 281 deletions

diff --git a/prog/jao-compilation.el b/prog/jao-compilation.el
deleted file mode 100644
index ef303ea..0000000
--- a/prog/jao-compilation.el
+++ /dev/null
@@ -1,118 +0,0 @@
-;;; jao-compilation.el --- utilities to lauch compilations  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020, 2021  jao
-
-;; Author: jao <mail@jao.io>
-;; Keywords: convenience
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Utilities to launch compilation processes from adequate root directories
-
-;;; Code:
-
-(defvar jao-compilation-dominating-files nil)
-(defvar jao-compilation-dominating-file-rxs '(".+\\.cabal"))
-(defvar jao-compilation-environment ())
-(defvar jao-compilation-dominating-rx "")
-
-(defun jao-compilation--environment ()
-  (let (result)
-    (dolist (v jao-compilation-environment result)
-      (let ((vv (getenv v)))
-        (when vv (add-to-list 'result (format "%s=%s" v vv)))))))
-
-;;;###autoload
-(defun jao-compilation-add-dominating (&rest fs)
-  (dolist (f fs) (add-to-list 'jao-compilation-dominating-files f))
-  (setq jao-compilation-dominating-rx
-        (concat "\\("
-                (regexp-opt jao-compilation-dominating-files)
-                "\\|"
-                (mapconcat 'identity
-                           jao-compilation-dominating-file-rxs
-                           "\\|")
-                "\\)$")))
-
-;;;###autoload
-(defun jao-path-relative-to (path base)
-  (let* ((path (file-name-directory path))
-         (base (file-name-directory base))
-         (blen (length base)))
-    (if (<= (length path) blen)
-        path
-      (if (string-equal base (substring path 0 blen))
-          (substring path blen)
-        path))))
-
-;;;###autoload
-(defun jao-compilation-find-root (file doms)
-  (when file
-    (locate-dominating-file file `(lambda (d)
-                                    (when (file-directory-p d)
-                                      (directory-files d nil ,doms))))))
-
-;;;###autoload
-(defun jao-compilation-root (&optional dir)
-  (when-let ((rfn (jao-compilation-find-root (or dir (buffer-file-name))
-                                             jao-compilation-dominating-rx)))
-    (let* ((default-directory (expand-file-name rfn))
-           (dir (file-name-directory rfn))
-           (rel-path (jao-path-relative-to dir default-directory)))
-      (if (and (file-directory-p "build")
-               (not (file-exists-p "build.xml"))
-               (not (file-exists-p "setup.py")))
-          (expand-file-name rel-path (expand-file-name "build/"))
-        default-directory))))
-
-;;;###autoload
-(defun jao-compilation-root-file ()
-  (when-let ((dir (jao-compilation-root)))
-    (car (directory-files dir nil jao-compilation-dominating-rx))))
-
-;;;###autoload
-(defun jao-find-compilation-root (dir)
-  (when (and (stringp dir) (file-exists-p dir))
-    (when-let ((root (jao-compilation-root dir)))
-      (cons 'transient root))))
-
-;;;###autoload
-(defun jao-compilation-env (v)
-  "Add new environment variables to the compilation environment
-        used by `jao-compile'"
-  (add-to-list 'jao-compilation-environment v))
-
-;;;###autoload
-(defun jao-compile ()
-  "Find the root of current file's project and issue a
-        compilation command"
-  (interactive)
-  (let ((default-directory (jao-compilation-root))
-        (compilation-environment (jao-compilation--environment))
-        (compilation-read-command 'compilation-read-command))
-    (call-interactively 'compile)))
-
-;;;###autoload
-(defun jao-compilation-setup ()
-  (jao-compilation-add-dominating
-   "Makefile" "makefile" "configure.ac" "bootstrap.sh" "aclocal.m4"
-   "project.clj" "build.xml" "pom.xml" "setup.py" "stack.yaml")
-  (with-eval-after-load "project"
-    (add-to-list 'project-find-functions #'jao-find-compilation-root)))
-
-
-(provide 'jao-compilation)
-;;; jao-compilation.el ends here
diff --git a/prog/jao-sloc.el b/prog/jao-sloc.el
deleted file mode 100644
index 1f0e9ab..0000000
--- a/prog/jao-sloc.el
+++ /dev/null
@@ -1,33 +0,0 @@
-;; sloc.el -- LOC utilities
-
-;;;###autoload
-(defun count-sloc-region (beg end kind)
-  "Count source lines of code in region (or (narrowed part of)
-   the buffer when no region is active).  SLOC means that empty
-   lines and comment-only lines are not taken into consideration.
-
-   (function by Stefan Monnier).
-  "
-  (interactive
-   (if (use-region-p)
-       (list (region-beginning) (region-end) 'region)
-     (list (point-min) (point-max) 'buffer)))
-  (save-excursion
-    (goto-char beg)
-    (let ((count 0))
-      (while (< (point) end)
-        (cond
-         ((nth 4 (syntax-ppss)) ;; BOL is already inside a comment.
-          (let ((pos (point)))
-            (goto-char (nth 8 (syntax-ppss)))
-            (forward-comment (point-max))
-            (if (< (point) pos) (goto-char pos)))) ;; Just paranoia
-         (t (forward-comment (point-max))))
-        (setq count (1+ count))
-        (forward-line))
-      (when kind
-        (message "SLOC in %s: %s." kind count)))))
-
-
-(provide 'jao-sloc)
-;;; sloc.el ends here
diff --git a/prog/jao-vterm-repl.el b/prog/jao-vterm-repl.el
deleted file mode 100644
index 699ff39..0000000
--- a/prog/jao-vterm-repl.el
+++ /dev/null
@@ -1,130 +0,0 @@
-;;; jao-vterm-repl.el --- vterm-based repls          -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020, 2021  jao
-
-;; Author: jao <mail@jao.io>
-;; Keywords: terminals
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Helpers to launch reply things such as erlang shells inside a vterm.
-;; For instance, to declare an erl repl for rebar projects, one would call:
-;;
-;;    (jao-vterm-repl-register "rebar.config" "rebar3 shell" "^[0-9]+> ")
-
-;;; Code:
-
-(require 'jao-compilation)
-
-(declare-function 'vterm-copy-mode "vterm")
-(declare-function 'vterm-send-string "vterm")
-(declare-function 'vterm-send-return "vterm")
-
-(defun jao-vterm-repl--buffer-name (&optional dir)
-  (format "*vterm -- repl - %s*" (or dir (jao-compilation-root))))
-
-(defvar jao-vterm-repl-repls nil)
-(defvar jao-vterm-repl-prompts nil)
-(defvar-local jao-vterm-repl--name nil)
-(defvar-local jao-vterm-repl--last-buffer nil)
-(defvar-local jao-vterm-repl--prompt-rx "^[0-9]+> ")
-
-(setq vterm-buffer-name-string nil)
-
-(defun jao-vterm-repl--exec (cmd &optional name)
-  (vterm name)
-  (when name
-    (vterm-send-string "unset PROMPT_COMMAND\n\n"))
-  (vterm-send-string cmd)
-  (vterm-send-return)
-  (when name (rename-buffer name t)))
-
-;;;###autoload
-(defun jao-vterm-repl-previous-prompt ()
-  (interactive)
-  (when (derived-mode-p 'vterm-mode)
-    (vterm-copy-mode 1)
-    (forward-line 0)
-    (when (re-search-backward jao-vterm-repl--prompt-rx nil t)
-      (goto-char (match-end 0)))))
-
-;;;###autoload
-(defun jao-vterm-repl-next-prompt ()
-  (interactive)
-  (when (derived-mode-p 'vterm-mode)
-    (vterm-copy-mode 1)
-    (or (re-search-forward jao-vterm-repl--prompt-rx nil t)
-        (vterm-copy-mode -1))
-    (unless (save-excursion
-              (re-search-forward jao-vterm-repl--prompt-rx nil t))
-      (vterm-copy-mode -1))))
-
-;;;###autoload
-(define-minor-mode jao-vterm-repl-mode "repl-aware vterm" nil nil
-  '(("\C-c\C-p" . jao-vterm-repl-previous-prompt)
-    ("\C-c\C-n" . jao-vterm-repl-next-prompt)
-    ("\C-c\C-z" . jao-vterm-repl-pop-to-src)))
-
-;;;###autoload
-(defun jao-vterm-repl ()
-  (let* ((dir (jao-compilation-root))
-         (vname (jao-vterm-repl--buffer-name dir))
-         (root-name (jao-compilation-root-file))
-         (buffer (seq-find `(lambda (b)
-                              (string=
-                               (buffer-local-value 'jao-vterm-repl--name
-                                                   b)
-                               ,vname))
-                           (buffer-list))))
-    (or buffer
-        (let ((default-directory dir)
-              (prompt (cdr (assoc root-name jao-vterm-repl-prompts)))
-              (cmd (or (cdr (assoc root-name jao-vterm-repl-repls))
-                       (read-string "REPL command: ")))
-              (bname (format "* vrepl - %s/%s *"
-                             (file-name-base (string-remove-suffix "/" dir))
-                             root-name)))
-          (jao-vterm-repl--exec cmd bname)
-          (jao-vterm-repl-mode)
-          (setq-local jao-vterm-repl--name vname)
-          (when prompt (setq-local jao-vterm-repl--prompt-rx prompt))
-          (current-buffer)))))
-
-;;;###autoload
-(defun jao-vterm-repl-register (build-file repl-cmd prompt-rx)
-  (jao-compilation-add-dominating build-file)
-  (add-to-list 'jao-vterm-repl-repls (cons build-file repl-cmd))
-  (add-to-list 'jao-vterm-repl-prompts (cons build-file prompt-rx)))
-
-;;;###autoload
-(defun jao-vterm-repl-pop-to-repl ()
-  (interactive)
-  (let ((bn (current-buffer)))
-    (pop-to-buffer (jao-vterm-repl))
-    (setq-local jao-vterm-repl--last-buffer bn)))
-
-;;;###autoload
-(defun jao-vterm-repl-pop-to-src ()
-  (interactive)
-  (when (buffer-live-p jao-vterm-repl--last-buffer)
-    (pop-to-buffer jao-vterm-repl--last-buffer)))
-
-;;;###autoload
-(defun jao-vterm-repl-send (cmd)
-  (with-current-buffer (jao-vterm-repl) (vterm-send-string cmd)))
-
-(provide 'jao-vterm-repl)
-;;; jao-vterm-repl.el ends here