workgroups2 Changeset - 606efc7fe1a1

Changeset - 606efc7fe1a1

Parent rev.

Child rev.

[Not reviewed]

0 2 0

Sergey Pashinin - 11 years ago 2014-08-23 13:54:14
sergey@pashinin.com

Removed unused functions

2 files changed with 0 insertions and 36 deletions:

src/workgroups-buf.el

src/workgroups-utils-basic.el

0 comments (0 inline, 0 general)

src/workgroups-buf.el

➞

Show inline comments

     (string (wg-bufobj-uid-or-add (wg-get-buffer bufobj)))))
 (defun wg-reset-buffer (buffer)
   "Return BUFFER.
 Currently only sets BUFFER's `wg-buffer-uid' to nil."
   (with-current-buffer buffer (setq wg-buffer-uid nil)))
 ;;; buffer-list-filter commands
 (defun wg-next-buffer-internal (buffer-list &optional prev noerror)
   "Switch to the next buffer in Workgroups' filtered buffer list."
   (when buffer-list
     (let* ((cur (current-buffer))
            (next (or (wg-cyclic-nth-from-elt cur buffer-list (if prev -1 1))
                      (car buffer-list))))
       (unless (eq cur next)
         (switch-to-buffer next)
         (unless prev (bury-buffer cur))
         next))))
 (defun wg-next-buffer (&optional prev)
   "Switch to the next buffer in Workgroups' filtered buffer list.
 In the post-command message the current buffer is rotated to the
 middle of the list to more easily see where `wg-previous-buffer'
 will take you."
   (interactive)
   (let ((command (if prev 'previous-buffer 'next-buffer)))
     (if (not (wg-filter-buffer-list-p))
         (call-interactively (wg-prior-mapping workgroups-mode command))
       (wg-with-buffer-list-filters command
         (awhen (wg-filtered-buffer-list) (wg-next-buffer-internal it prev))
         (wg-message (wg-buffer-command-display))))))
 (defun wg-update-buffer-in-buf-list (&optional buffer)
   "Update BUFFER's corresponding buf in `wg-buf-list'.
 BUFFER nil defaults to `current-buffer'."
   (let ((buffer (or buffer (current-buffer))))
     (wg-when-let ((uid (wg-buffer-uid buffer))
                   (old-buf (wg-find-buf-by-uid uid))
                   (new-buf (wg-buffer-to-buf buffer)))
       (setf (wg-buf-uid new-buf) (wg-buf-uid old-buf))
       (wg-asetf (wg-buf-list) (cons new-buf (remove old-buf it))))))
 (defun wg-update-buf-list (&optional buffer-list)
   "Update all bufs in `wg-buf-list' corresponding to buffers in BUFFER-LIST."

src/workgroups-utils-basic.el

➞

Show inline comments

       (length (setf ,seq-place (cl-remove ,item ,seq-place ,@keys)))))
 (defmacro wg-pushnew-p (item seq-place &rest keys)
   "If ITEM is not a `member' of SEQ-PLACE, push it to SEQ-PLACE and return t.
 Otherwise return nil.  KEYS can be any keyword args accepted by `pushnew'."
   `(< (length ,seq-place)
       (length (cl-pushnew ,item ,seq-place ,@keys))))
 (defun wg-take (list n)
   "Return a list of the first N elts in LIST."
   (butlast list (- (length list) n)))
 (defun wg-rnth (n list)
   "Return the Nth element of LIST, counting from the end."
   (nth (- (length list) n 1) list))
 (defun wg-take-until-fail (pred list)
   "Take elements from LIST up to the first element on which PRED fails."
   (let (taken)
     (catch 'result
       (dolist (elt list (nreverse taken))
         (if (funcall pred elt) (push elt taken)
           (throw 'result (nreverse taken)))))))
 (defun wg-range (start end)
   "Return a list of integers from START up to but not including END."
   (let (accum)
     (dotimes (i (- end start) (nreverse accum))
       (push (+ start i) accum))))
 (defun wg-rotate-list (list &optional offset)
   "Rotate LIST by OFFSET.  Positive OFFSET rotates left, negative right."
   (when list
     (let ((split (mod (or offset 1) (length list))))
       (append (nthcdr split list) (wg-take list split)))))

0 comments (0 inline, 0 general)