Skip to content

Instantly share code, notes, and snippets.

@miyamuko
Created June 3, 2010 04:17
Show Gist options
  • Save miyamuko/423449 to your computer and use it in GitHub Desktop.
Save miyamuko/423449 to your computer and use it in GitHub Desktop.
;; monday.l の置換ルールを適当に追加できるようにした。
--- monday.l.orig Thu Jun 3 11:00:49 2010
+++ monday.l Thu Jun 3 11:04:16 2010
@@ -147,6 +147,16 @@
("november" . "december")
("december" . "january")))
+(defvar *monday-alist-list*
+ (list *monday-bool-alist*
+ *monday-bool2-alist*
+ *monday-bool3-alist*
+ *monday-c++-alist*
+ *monday-sw-alist*
+ *monday-week-alist*
+ *monday-week2-alist*
+ *monday-month-alist*))
+
(defun monday-increase () (interactive) (monday-inc ))
(defun monday-decrease () (interactive) (monday-inc t))
@@ -155,14 +165,9 @@
(multiple-value-bind (bool str)
(monday-current-string-or-number)
(if (and bool str) (monday-numeric-inc str dec)
- (or (monday-toggle str *monday-bool-alist* dec)
- (monday-toggle str *monday-bool2-alist* dec)
- (monday-toggle str *monday-bool3-alist* dec)
- (monday-toggle str *monday-c++-alist* dec)
- (monday-toggle str *monday-sw-alist* dec)
- (monday-toggle str *monday-week-alist* dec)
- (monday-toggle str *monday-week2-alist* dec)
- (monday-toggle str *monday-month-alist* dec)))))
+ (dolist (alist *monday-alist-list*)
+ (when (monday-toggle str alist dec)
+ (return t))))))
(defun monday-toggle (str alist &optional (dec nil))
(let* ((beg (region-beginning))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment