From 7332dc48fb437511ff00546c5792298d39d42099 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sat, 16 Mar 2024 04:53:16 +0200 Subject: [PATCH] Delete some files long unused --- .eproject | 1 - build.el | 47 ----------------------------------------------- 2 files changed, 48 deletions(-) delete mode 100644 .eproject delete mode 100644 build.el diff --git a/.eproject b/.eproject deleted file mode 100644 index 5419c3f..0000000 --- a/.eproject +++ /dev/null @@ -1 +0,0 @@ -:irrelevant-files '("coverage") diff --git a/build.el b/build.el deleted file mode 100644 index 077979a..0000000 --- a/build.el +++ /dev/null @@ -1,47 +0,0 @@ -(require 'lisp-mnt) - -(defun write-readme (commentary dir) - (with-current-buffer (find-file-noselect (format "%s/README" dir)) - (insert commentary) - (goto-char (point-min)) - (save-excursion - (when (re-search-forward "^;;; Commentary:\n" nil t) - (replace-match "")) - (when (re-search-forward "^\\(;;;\\) .*\\(\n\\)" nil t) - (replace-match "==" nil t nil 1) - (replace-match " ==\n" nil t nil 2)) - (goto-char (point-min)) - (while (re-search-forward "^\\(;; ?\\)" nil t) - (replace-match "")) - (goto-char (point-min)) - (when (re-search-forward "\\`\\( *\n\\)+" nil t) - (replace-match ""))) - (delete-trailing-whitespace) - (save-buffer 0))) - -(defun build () - (with-current-buffer (find-file-noselect "robe.el") - (ignore-errors (make-directory "build")) - (let* ((name "robe") - (version (lm-version)) - (summary (lm-summary)) - (depends (lm-header "package-requires")) - (commentary (lm-commentary)) - (default-directory (concat default-directory "build/")) - (dir (format "%s-%s" name version))) - (when (file-exists-p dir) - (delete-directory dir t)) - (make-directory dir) - (dolist (file (directory-files ".." t (format "%s.*\\.el\\'" name))) - (copy-file file dir)) - (copy-directory "../lib" dir) - (write-readme commentary dir) - (with-temp-buffer - (insert (format "(define-package \"%s\" \"%s\"\n \"%s\"\n '%s)" - name version summary depends)) - (write-region (point-min) (point-max) - (format "%s/%s-pkg.el" dir name))) - (with-temp-buffer - (call-process "tar" nil (current-buffer) nil "-cvf" - (format "%s.tar" dir) dir) - (princ (buffer-string))))))