[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 160/352: Hiotaan tekstipohjaista oikolukuehdotusvalikkoa
From: |
Stefan Monnier |
Subject: |
[elpa] 160/352: Hiotaan tekstipohjaista oikolukuehdotusvalikkoa |
Date: |
Mon, 07 Jul 2014 14:03:31 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit a6c5e69ea274219f977de621115b9f1dd49e90b8
Author: Teemu Likonen <address@hidden>
Date: Mon Aug 2 18:09:25 2010 +0000
Hiotaan tekstipohjaista oikolukuehdotusvalikkoa
---
wcheck-mode.el | 32 ++++++++++++++++++++++++++------
1 files changed, 26 insertions(+), 6 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 098d13c..caf0920 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1137,30 +1137,50 @@ SUGGESTIONS is a list of strings. Return user's choice
(string)."
(chars (append (number-sequence 49 57) (list 48)
(number-sequence 97 122)))
alist)
+
(with-temp-buffer
(setq mode-line-format (list "-- Choose a substitute %-")
cursor-type nil
truncate-lines t)
- (let (suggestion item)
+
+ (let (suggestion string)
(while (and suggestions chars)
(setq suggestion (car suggestions)
suggestions (cdr suggestions)
- item (format " (%c) %s" (car chars) suggestion)
+ string (concat " "
+ (propertize (format "(%c)" (car chars))
+ 'face 'bold)
+ " " suggestion)
alist (cons (cons (car chars) suggestion) alist)
chars (cdr chars))
- (insert item)
+ (insert string)
(when (and suggestions chars
(>= (+ (- (point) (line-beginning-position))
(length (concat " ( ) " (car suggestions))))
(window-width)))
(newline 1))))
(setq buffer-read-only t)
+
(let ((window (split-window-vertically
- (1- (- (count-lines (point-min) (point-max)))))))
+ (1- (- (count-lines (point-min) (point-max))))))
+ (prompt
+ (apply #'propertize
+ (let ((last (caar alist)))
+ (format "Number %s(%s):"
+ (if (memq last (number-sequence ?a ?z))
+ "or letter "
+ "")
+ (cond ((= last ?1) "1")
+ ((memq last (number-sequence ?2 ?9))
+ (format "1-%c" last))
+ ((= last ?0) "1-9,0")
+ ((= last ?a) "1-9,0,a")
+ ((memq last (number-sequence ?b ?z))
+ (format "1-9,0,a-%c" last)))))
+ minibuffer-prompt-properties)))
(set-window-buffer window (current-buffer))
(set-window-dedicated-p window t)
- (cond ((cdr (assq (read-char-exclusive "Enter character:")
- alist)))
+ (cond ((cdr (assq (read-char-exclusive prompt) alist)))
(t (message "Invalid character") nil)))))
(message "No suggestions")
nil))
- [elpa] 144/352: Muutetaan ulkoisen ohjelman argumentit listaksi, (continued)
- [elpa] 144/352: Muutetaan ulkoisen ohjelman argumentit listaksi, Stefan Monnier, 2014/07/07
- [elpa] 162/352: Hiotaan dokumentteja ja merkkijonoja, Stefan Monnier, 2014/07/07
- [elpa] 312/352: Use COPY-SEQUENCE instead of COPY-TREE, Stefan Monnier, 2014/07/07
- [elpa] 308/352: Fix a small typo in README, Stefan Monnier, 2014/07/07
- [elpa] 318/352: Update copyright year in README, Stefan Monnier, 2014/07/07
- [elpa] 273/352: More accurate description for OPERATION-MODE of read-or-skip-faces, Stefan Monnier, 2014/07/07
- [elpa] 274/352: Minor rephrasing in README, Stefan Monnier, 2014/07/07
- [elpa] 292/352: Change README to README.org in a doc string, Stefan Monnier, 2014/07/07
- [elpa] 257/352: Use plural "actions" with the install instruction's autoload, Stefan Monnier, 2014/07/07
- [elpa] 314/352: Add variable and interactive function wcheck-version, Stefan Monnier, 2014/07/07
- [elpa] 160/352: Hiotaan tekstipohjaista oikolukuehdotusvalikkoa,
Stefan Monnier <=
- [elpa] 267/352: Rephrase examples, Stefan Monnier, 2014/07/07
- [elpa] 345/352: Use prefix wcheck-- in internal functions and variables, Stefan Monnier, 2014/07/07
- [elpa] 155/352: Varmistetaan, ettei välilyöntejä tulkita väärin regexpissä, Stefan Monnier, 2014/07/07
- [elpa] 113/352: Muutetaan lukemis- ja maalauspyyntöfunktioiden nimet, Stefan Monnier, 2014/07/07
- [elpa] 333/352: Add a missing "is" to README, Stefan Monnier, 2014/07/07
- [elpa] 262/352: Version 2011.06.29, Stefan Monnier, 2014/07/07
- [elpa] 351/352: Version 2014.6.21, Stefan Monnier, 2014/07/07
- [elpa] 156/352: Tallennetaan ja palautetaan säännöllisten lausekkeiden täsmäystiedot, Stefan Monnier, 2014/07/07
- [elpa] 152/352: Toteutetaan wcheck-combine-overlapping-areas järkevämmin, Stefan Monnier, 2014/07/07
- [elpa] 150/352: Lisätään matalan tason funktiot face-tietojen käsittelyyn, Stefan Monnier, 2014/07/07