From 8c4e09dff83847ac7f07bf1da7751e9328006c4d Mon Sep 17 00:00:00 2001 From: Jack Jamison Date: Thu, 30 Jul 2026 20:09:00 -0400 Subject: actual final changes and get rid of junk in lisp dir actually works fine --- .config/emacs/lisp/evil/scripts/evilupdate | 177 ----------------------------- 1 file changed, 177 deletions(-) delete mode 100755 .config/emacs/lisp/evil/scripts/evilupdate (limited to '.config/emacs/lisp/evil/scripts/evilupdate') diff --git a/.config/emacs/lisp/evil/scripts/evilupdate b/.config/emacs/lisp/evil/scripts/evilupdate deleted file mode 100755 index 27e832b..0000000 --- a/.config/emacs/lisp/evil/scripts/evilupdate +++ /dev/null @@ -1,177 +0,0 @@ -#!/usr/bin/emacs --script -;;; evilupate.el -- Publishing script for Evil - -;;; Header: - -;; This file is not part of Emacs - -;; Author: Frank Fischer -;; Maintainer: Frank Fischer -;; Version: 1.0 -;; Package-Requires: ((emacs "24.3") (s "1.9.0") (f "0.17.2") yaoddmuse) - -;; The contents of this file are subject to the GPL License, Version 3.0. - -;; Copyright (C) 2015, 2016, Frank Fischer - -;; 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 . - -;;; Commentary: - -;; This is a small script to update Evil's version at certain places: -;; -;; - topic of the IRC channel #evil-mode in irc.libera.chat -;; - EmacsWiki page -;; - header of all source files -;; - the ELPA package file -;; -;; The script should be invoked with the new version string -;; -;; evil-update.el 1.2.3 -;; - -;;; Code: - -(package-initialize) - -(require 'f) -(require 'erc) -(require 'yaoddmuse) - -(defconst evilupdate-irc-nick "lyrobot") -(defconst evilupdate-irc-channel "#evil-mode") -(defconst evilupdate-irc-topic - "Evil = Extensible vi layer for Emacs | Current version: VERSION | https://github.com/emacs-evil/evil | If you don't get an answer here, please use the mailing-list implementations-list@lists.ourproject.org") -(defconst evilupdate-wiki-page "Evil") -(defvar evilupdate-version "1.0.0") -(defvar evilupdate-done nil) - -(defun evilupdate-wait () - "Wait until `evilupdate-done' is set to t." - (while (not evilupdate-done) - (sleep-for 1)) - (setq evilupdate-done nil)) - -(defun evilupdate-done () - "Set `evilupdate-done' to t to stop the corresponding `evilupdate-wait'." - (setq evilupdate-done t)) - -(defun evilupdate-update-irc () - "Update the topic of the IRC channel." - (let ((erc-nick evilupdate-irc-nick) - (erc-autojoin-channels-alist nil) - (auth-sources nil)) - (erc-tls :server "irc.libera.chat" :port "6697" :nick evilupdate-irc-nick) - (add-hook 'erc-join-hook - (lambda () - (let (case-fold-search) - (erc-set-topic (replace-regexp-in-string "VERSION" - evilupdate-version - evilupdate-irc-topic - nil t))) - (erc-quit-server "") - (sleep-for 5) - (evilupdate-done))) - (erc-join-channel evilupdate-irc-channel) - (evilupdate-wait))) - -(defun evilupdate-wiki-trace (page-buffer-name) - "Callback for updating the EmacsWiki page in buffer PAGE-BUFFER-NAME." - (with-current-buffer page-buffer-name - (goto-char (point-min)) - (when (re-search-forward "Current stable version: \\*\\*\\([^*]*\\)\\*\\*") - (goto-char (match-beginning 1)) - (delete-region (match-beginning 1) (match-end 1)) - (insert evilupdate-version) - (yaoddmuse-post-buffer (current-buffer) evilupdate-version nil) - (evilupdate-done)))) - -(unless (require 'nadvice nil t) - (defadvice yaoddmuse-display-page (around evilupdate activate) - (evilupdate-wiki-trace (ad-get-arg 0)))) - -(defun evilupdate-update-emacswiki () - "Update the version information on the EmacsWiki page." - (setq yaoddmuse-wikis - '(("EmacsWiki" "https://www.emacswiki.org/emacs" utf-8 "uihnscuskc=1;"))) - (when (featurep 'nadvice) - (advice-add 'yaoddmuse-display-page :after 'evilupdate-wiki-trace)) - (yaoddmuse-edit "EmacsWiki" evilupdate-wiki-page t) - (evilupdate-wait)) - -(defun evilupdate-update-regexp (file regexp) - "Update version tag in FILE. -The version tag is defined by the REGEXP, in particular by the first -match group." - (find-file file) - (goto-char (point-min)) - (when (re-search-forward regexp nil t) - (goto-char (match-beginning 1)) - (delete-region (match-beginning 1) (match-end 1)) - (insert evilupdate-version) - (save-buffer))) - -(defun evilupdate-update-files () - "Replace version comments in all source files." - (dolist (file (f-glob "*.el")) - (evilupdate-update-regexp file ";;\\s-*Version:\\s-*\\([^\n]+\\)"))) - -(defun evilupdate-update-pkg () - "Replace version in package file." - (evilupdate-update-regexp "evil-pkg.el" "\"evil\"[ \t\n\r]*\"\\([^\"]+\\)\"")) - -(defun evilupdate-update-var () - "Replace version in `evil-version' variable." - (evilupdate-update-regexp - "evil-vars.el" - "t \"\\([^\"]*\\)\"[) \n\r\t]*\"The current version of Evil")) - -(defun evilupdate-update-news () - "Send an posting to the mailing list." - (shell-command (concat "thunderbird -compose \"newsgroups=gmane.emacs.vim-emulation,preselectid=id2,subject='[ANN] Evil version " evilupdate-version " released',body='" - "Evil version " evilupdate-version " has been released. - -The stable version can be installed from MELPA stable [1] and NonGNU ELPA [2]. -The latest development version is available from MELPA [3]. - -The Evil developers. - -[1] http://stable.melpa.org -[2] https://elpa.nongnu.org/nongnu/evil.html -[3] http://melpa.org -'\""))) - -(defun evilupdate-update (version nonews) - "Update Evil to VERSION. -If NONEWS is non-nil do not post a message to the newsgroup." - (setq evilupdate-cnt 0) - (setq evilupdate-version version) - (evilupdate-update-emacswiki) - (evilupdate-update-irc) - (evilupdate-update-files) - (evilupdate-update-pkg) - (evilupdate-update-var) - (unless nonews (evilupdate-update-news))) - -(cond - ((= (length argv) 2) - (unless (equal (car argv) "nonews") - (user-error "Usage: evilupdate.el [-n] VERSION")) - (evilupdate-update (cadr argv) t)) - ((= (length argv) 1) - (evilupdate-update (cadr argv))) - (t - (user-error "Usage: evilupdate.el [-n] VERSION"))) - -;;; evilupdate.el ends here -- cgit v1.2.3