Compare commits

..

12 Commits
0.4.1 ... main

Author SHA1 Message Date
c15ea92b09
Remove obsolete variable/function aliases.
All checks were successful
continuous-integration/drone/push Build is passing
2020-05-24 22:06:57 +02:00
06afa1efc4
Clean up .gitignore.
All checks were successful
continuous-integration/drone/push Build is passing
2020-03-25 17:22:12 +01:00
e30883a708
Don't check tags in CI.
All checks were successful
continuous-integration/drone/push Build is passing
2020-03-25 17:14:16 +01:00
0301a3a1ee
Version bump 0.4.3.
All checks were successful
continuous-integration/drone/push Build is passing
2020-03-25 17:12:57 +01:00
6995a7f988
Require Emacs 25.3.
Some checks reported errors
continuous-integration/drone/push Build was killed
Emacs 24.5 doesn't like docstrings on lambdas.
2020-03-25 17:09:05 +01:00
695d28b24c
Merge branch 'ci' into main 2020-03-25 17:08:50 +01:00
31b913666c
Change docker image for CI to flycheck/emacs-cask.
All checks were successful
continuous-integration/drone/push Build is passing
2020-03-25 17:08:37 +01:00
d4c664fed9
Add CI with drone + makem.sh.
All checks were successful
continuous-integration/drone/push Build is passing
2020-03-25 15:58:27 +01:00
c73f35ef9e
Enhance documentation for …-clear-current-register. 2020-03-21 20:25:10 +01:00
e1b620cdde
Give feedback when register(s) is/are cleared. 2020-03-21 19:34:07 +01:00
e42245aa65
Update …--last-register after storing a register. 2020-03-21 19:32:55 +01:00
1c13793033
Ignore error if nth on register-alist item fails.
Text registers are alists, nth > 0 fails on alists.
2020-03-21 12:21:22 +01:00
5 changed files with 1185 additions and 29 deletions

77
.drone.yml Normal file
View File

@ -0,0 +1,77 @@
kind: pipeline
name: Lint package
volumes:
- name: debian-package-cache
host:
path: /var/cache/debian-package-cache
trigger:
event:
exclude:
- tag
steps:
- name: Emacs 26.3
image: flycheck/emacs-cask:26.3
pull: always
environment:
DEBIAN_FRONTEND: noninteractive
LANG: en_US.UTF-8
commands:
- rm /etc/apt/apt.conf.d/docker-clean
- alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
- apt-get update -q
- apt-get install -qq language-pack-en git aspell-en
- ./makem.sh --verbose --sandbox --install-deps --install-linters lint
volumes:
- name: debian-package-cache
path: /var/cache/apt/archives
- name: Emacs master-branch
image: flycheck/emacs-cask:master
pull: always
environment:
DEBIAN_FRONTEND: noninteractive
LANG: en_US.UTF-8
commands:
- rm /etc/apt/apt.conf.d/docker-clean
- alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
- apt-get update -q
- apt-get install -qq language-pack-en git aspell-en
- emacs --version
- ./makem.sh --verbose --sandbox --install-deps --install-linters lint
volumes:
- name: debian-package-cache
path: /var/cache/apt/archives
- name: Emacs 25.3
image: flycheck/emacs-cask:25.3
pull: always
environment:
DEBIAN_FRONTEND: noninteractive
LANG: C
commands:
- rm /etc/apt/apt.conf.d/docker-clean
- alias apt-get='rm -f /var/cache/apt/archives/lock && apt-get'
- apt-get update -q
- apt-get install -qq git
# Some package or its dependency requires Emacs 26.1,
# so we just check if it compiles.
- ./makem.sh --verbose --sandbox compile
volumes:
- name: debian-package-cache
path: /var/cache/apt/archives
- name: notify
image: drillster/drone-email
pull: always
settings:
host: cryptoparty-celle.de
from: drone@tzend.de
username:
from_secret: email_username
password:
from_secret: email_password
when:
status: [ changed, failure ]

2
.gitignore vendored
View File

@ -1,2 +1,2 @@
/flycheck*.el*
*~ *~
*.elc

View File

@ -1,7 +1,7 @@
# register-quicknav - Quickly jump to next/previous register # register-quicknav - Quickly jump to next/previous register
*Author:* tastytea <tastytea@tastytea.de><br> *Author:* tastytea <tastytea@tastytea.de><br>
*Version:* 0.4.1<br> *Version:* 0.4.3<br>
*URL:* [https://schlomp.space/tastytea/register-quicknav](https://schlomp.space/tastytea/register-quicknav)<br> *URL:* [https://schlomp.space/tastytea/register-quicknav](https://schlomp.space/tastytea/register-quicknav)<br>
This package is built on top of `register.el` and allows you to quickly jump This package is built on top of `register.el` and allows you to quickly jump
@ -18,10 +18,6 @@ across all files or individually for each buffer.
## Installation ## Installation
**Note:** The function and variable names were previously separated by “/”
from the namespace. To conform with MELPA rules the separator has been
changed to “-”.
To use `register-quicknav.el`, get it from To use `register-quicknav.el`, get it from
[MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path [MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path
and add the following to your init.el: and add the following to your init.el:

1090
makem.sh Executable file

File diff suppressed because it is too large Load Diff

View File

@ -3,8 +3,8 @@
;; Copyright (C) 2020 tastytea ;; Copyright (C) 2020 tastytea
;; Author: tastytea <tastytea@tastytea.de> ;; Author: tastytea <tastytea@tastytea.de>
;; Version: 0.4.1 ;; Version: 0.4.3
;; Package-Requires: ((emacs "24.3")) ;; Package-Requires: ((emacs "25.3"))
;; Keywords: convenience ;; Keywords: convenience
;; URL: https://schlomp.space/tastytea/register-quicknav ;; URL: https://schlomp.space/tastytea/register-quicknav
@ -37,10 +37,6 @@
;; Installation: ;; Installation:
;; ;;
;; **Note:** The function and variable names were previously separated by “/”
;; from the namespace. To conform with MELPA rules the separator has been
;; changed to “-”.
;;
;; To use `register-quicknav.el', get it from ;; To use `register-quicknav.el', get it from
;; [MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path ;; [MELPA](https://melpa.org/#/register-quicknav) or put it in your load-path
;; and add the following to your init.el: ;; and add the following to your init.el:
@ -88,15 +84,6 @@
(require 'cl-lib) (require 'cl-lib)
(define-obsolete-variable-alias 'register-quicknav/buffer-only
'register-quicknav-buffer-only "0.1.1")
(define-obsolete-function-alias 'register-quicknav/next-register
#'register-quicknav-next-register "0.1.1")
(define-obsolete-function-alias 'register-quicknav/prev-register
#'register-quicknav-prev-register "0.1.1")
(define-obsolete-function-alias 'register-quicknav/clear-current-register
#'register-quicknav-clear-current-register "0.1.1")
(defgroup register-quicknav nil (defgroup register-quicknav nil
"Variables for register-quicknav." "Variables for register-quicknav."
:group 'editing) :group 'editing)
@ -170,7 +157,7 @@ Works on markers and file-queries."
(let ((result)) (let ((result))
(dolist (register register-alist) (dolist (register register-alist)
(if (or (markerp (cdr register)) (if (or (markerp (cdr register))
(eq (nth 1 register) 'file-query)) (ignore-errors (eq (nth 1 register) 'file-query)))
(if register-quicknav-buffer-only (if register-quicknav-buffer-only
(when (register-quicknav--is-current-buffer? register) (when (register-quicknav--is-current-buffer? register)
(push register result)) (push register result))
@ -224,10 +211,12 @@ Works on markers and file-queries."
;;;###autoload ;;;###autoload
(defun register-quicknav-clear-current-register () (defun register-quicknav-clear-current-register ()
"Clear last jumped-to position register from `register-alist'." "Clear last jumped-to position register from `register-alist'.
Deletes the value of `register-quicknav--last-register' from `register-alist'."
(interactive) (interactive)
(setq register-alist (setq register-alist
(delq (register-quicknav--last-register) register-alist))) (delq (register-quicknav--last-register) register-alist))
(message "Cleared register %c." (car (register-quicknav--last-register))))
;;;###autoload ;;;###autoload
(defun register-quicknav-point-to-unused-register () (defun register-quicknav-point-to-unused-register ()
@ -245,6 +234,7 @@ Searches the range between
(if (<= char end) (if (<= char end)
(progn (progn
(point-to-register char) (point-to-register char)
(register-quicknav--last-register (assoc char register-alist))
(message "Position stored in register %c." char)) (message "Position stored in register %c." char))
(message "No unused register in the range %c - %c found." begin end)))) (message "No unused register in the range %c - %c found." begin end))))
@ -252,11 +242,14 @@ Searches the range between
(defun register-quicknav-clear-unused-registers-range () (defun register-quicknav-clear-unused-registers-range ()
"Clear all registers in the range used by `register-quicknav-point-to-unused-register'." "Clear all registers in the range used by `register-quicknav-point-to-unused-register'."
(interactive) (interactive)
(dolist (register register-alist) (let ((begin register-quicknav-unused-registers-begin)
(when (and (>= (car register) register-quicknav-unused-registers-begin) (end register-quicknav-unused-registers-end))
(<= (car register) register-quicknav-unused-registers-end)) (dolist (register register-alist)
(setq register-alist (when (and (>= (car register) begin)
(delq register register-alist))))) (<= (car register) end))
(setq register-alist
(delq register register-alist))))
(message "Cleared unused registers in the range %c - %c." begin end)))
(provide 'register-quicknav) (provide 'register-quicknav)
;;; register-quicknav.el ends here ;;; register-quicknav.el ends here