aboutsummaryrefslogtreecommitdiff
path: root/.config/emacs/lisp/evil/scripts
diff options
context:
space:
mode:
Diffstat (limited to '.config/emacs/lisp/evil/scripts')
-rwxr-xr-x.config/emacs/lisp/evil/scripts/evil-extract-docstrings41
-rwxr-xr-x.config/emacs/lisp/evil/scripts/evil-release-stable52
-rwxr-xr-x.config/emacs/lisp/evil/scripts/evilupdate177
3 files changed, 0 insertions, 270 deletions
diff --git a/.config/emacs/lisp/evil/scripts/evil-extract-docstrings b/.config/emacs/lisp/evil/scripts/evil-extract-docstrings
deleted file mode 100755
index 55dbd79..0000000
--- a/.config/emacs/lisp/evil/scripts/evil-extract-docstrings
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/env -S emacs --script
-
-(setq cur-path (file-name-directory load-file-name))
-
-(add-to-list 'load-path (expand-file-name ".." cur-path))
-(require 'evil)
-(require 'evil-digraphs)
-(require 'json)
-(require 'help)
-
-(defun mark-command-keys (string)
- "Mark key bindings in STRING with the \":kbd:\" Sphinx role."
- (when string
- (cl-loop
- for prev = 0 then pos until (>= prev (length string))
- for pos = (next-single-property-change prev 'face string (length string))
- concat
- (let ((s (substring string prev pos)))
- (if (eq (get-text-property prev 'face string) 'help-key-binding)
- (format ":kbd:`%s`" s)
- s)))))
-
-(let (vars)
- (mapatoms
- (lambda (sym)
- (when (string-prefix-p "evil-" (symbol-name sym))
- (let ((default (eval (car (get sym 'standard-value)))))
- (push `(,sym (default . ,(cond
- ((consp default) (format "%S" default))
- ((symbolp default) (symbol-name default))
- (t default)))
- (local . ,(local-variable-if-set-p sym))
- (default-type . ,(type-of default))
- (var-docstring . ,(mark-command-keys (documentation-property sym 'variable-documentation)))
- (fn-docstring . ,(ignore-errors (mark-command-keys (documentation sym))))
- (arglist . ,(help-function-arglist sym))
- (functionp . ,(functionp sym))
- (macrop . ,(macrop sym)))
- vars)))))
- (with-temp-file (expand-file-name "../doc/docstringdb.json" cur-path)
- (insert (json-encode vars))))
diff --git a/.config/emacs/lisp/evil/scripts/evil-release-stable b/.config/emacs/lisp/evil/scripts/evil-release-stable
deleted file mode 100755
index c075903..0000000
--- a/.config/emacs/lisp/evil/scripts/evil-release-stable
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/env ruby
-
-# Copyright (c) 2015 Frank Fischer <frank-fischer@shadow-soft.de>
-#
-# 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 <http://www.gnu.org/licenses/>
-
-
-# This script releases a new (minor) stable release given that some
-# new commits on the stable branch since the last tag exist.
-
-Dir.chdir File.dirname(__FILE__)
-
-def die(msg = "Failed")
- STDERR.puts msg
- exit 1
-end
-
-def run(cmd)
- system(cmd) or die(cmd)
-end
-
-run 'hg pull'
-run 'hg update -r stable'
-
-tag = `hg tags`.split("\n").select{|line| line =~ /^\d+\.\d+\.\d+/}.map do |line|
- tag, rev = line.split
- major, minor, tiny = tag.split(/\./).map(&:to_i)
- [major, minor, tiny, rev[/\d+/].to_i]
-end.max
-
-tag or die 'No tagged revision found'
-
-stable = `hg log -r 'branch(stable) and not file("../.hgtags") and not ..tag("re:\\d+\\.\\d+\\.\\d+")' | wc -l`.to_i != 0
-
-if stable
- new_tag = "#{tag[0]}.#{tag[1]}.#{tag[2]+1}"
- run "make -C .. nversion VERSION='#{new_tag}'"
- run "hg commit -m 'update version to #{new_tag}'"
- run "hg tag -m 'version #{new_tag}' -r stable #{new_tag}"
- run "hg push -r stable"
-end
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 <frank-fischer@shadow-soft.de>
-;; Maintainer: Frank Fischer <frank-fischer@shadow-soft.de>
-;; 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 <http://www.gnu.org/licenses/>.
-
-;;; 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
generated by cgit v1.2.3 (git 2.46.0) at 2026-08-04 10:54:06 +0000