momomo5717

(require 'cl-lib)

(defvar google-translate--bit-v-len 32)

(defun google-translate--bit-v-2comp (v)
  "Return the two's complement of V."
  (let* ((vc (vconcat v))
         (len (length vc)))
    ;; Complement of v

momomo5717

(defun direx:find-file-at-point-1 ()
  (let* ((item (direx:item-at-point))
         (name (if item (direx:file-full-name (direx:item-tree item))
                 default-directory)))
    (if (file-directory-p name) name (direx:directory-dirname name))))

(defun direx:find-file-at-point ()
  (interactive)
  (let ((default-directory (direx:find-file-at-point-1)))
    (call-interactively 'find-file)))

momomo5717

(defun direx:jump-to-directory-at-point! (goto-root-item-p)
  (interactive "P")
  (when (eq major-mode 'direx:direx-mode)
    (let* ((item (direx:item-at-point!))
           (name (direx:file-full-name (direx:item-tree item)))
           (dir (if (file-directory-p name) name
                  (direx:directory-dirname name))))
      (if (not (file-exists-p dir))
          (error "%s not found" dir)
        (direx:find-directory dir)

momomo5717

(defun elscreen-renumber-internal ()
  (cl-loop for i from 0 for s in (sort (elscreen-get-screen-list) '<) do
      (when (/= i s) 
        (setf (car (assoc s (elscreen-get-conf-list 'screen-property))) i
              (car (member s (elscreen-get-conf-list 'screen-history))) i
              (car (assoc s (elscreen-get-screen-to-name-alist-cache))) i))))
              
(defun elscreen-renumber ()
  (interactive)
  (elscreen-renumber-internal)