*scratch1*.el

;; wenjun-yan
(defun get-current-minimap-bufrname ()
  (interactive)
  (message minimap-bufname))

;; wenjun-yan
(defun get-minimap-active-minimaps ()
  (interactive)
  (princ minimap-active-minimaps))

(defun get-current-window ()
  (interactive)
  (princ (get-buffer-window (current-buffer))))

(defun get-live-window-list ()
  (interactive)
  (princ (window-list)))

(defun names-of-visible-buffers ()
  (interactive)
  (let ((windows (window-list)) buffers)
    (dolist (win windows buffers)
      (setq buffers (cons (buffer-name (window-buffer win)) buffers)))
    buffers))

(defun string/starts-with (s arg)
  "returns non-nil if string S starts with ARG.  Else nil."
  (cond ((>= (length s) (length arg))
         (string-equal (substring s 0 (length arg)) arg))
        (t nil)))