Browse Source

Ibuffer human readable sizes along with some other creature comforts

master
Raphael Roberts 6 years ago
parent
commit
a67c568754
  1. 17
      custom.el
  2. 36
      settings.org

17
custom.el

@ -7,7 +7,24 @@
'(custom-safe-themes
(quote
("274fa62b00d732d093fc3f120aca1b31a6bb484492f31081c1814a858e25c72e" default)))
'(dired-listing-switches "-alh")
'(elpy-eldoc-show-current-function nil)
'(hippie-expand-try-functions-list
(quote
(try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-complete-lisp-symbol-partially try-complete-lisp-symbol)))
'(ibuffer-formats
(quote
((mark modified read-only locked " "
(name 18 18 :left :elide)
" "
(size-h 9 -1 :right)
" "
(mode 16 16 :left :elide)
" " filename-and-process)
(mark " "
(name 16 -1)
" " filename))))
'(inhibit-startup-screen t)
'(package-selected-packages
(quote
(kv lispy ibuffer-vc ag string-inflection tiny powershell diffview ivy-hydra window-numbering php-mode swiper mode-line-bell htmlize cython-mode blacken dired-narrow lua-mode browse-kill-ring clipmon free-keys org-link-minor-mode js2-mode js2-refactor xref-js2 python-django visual-regexp-steroids pcre2el vimrc-mode iedit transient magit dracula-theme flycheck elpy ein better-defaults ssh-config-mode yaml-mode apache-mode web-mode undo-tree)))

36
settings.org

@ -1,4 +1,14 @@
* Editing
** IEdit mode
#+BEGIN_SRC emacs-lisp
(use-package iedit
:bind ("C-;" . iedit-mode))
#+END_SRC
** Hippie expand
#+BEGIN_SRC emacs-lisp
(use-package hippie-exp
:bind ("M-/" . hippie-expand))
#+END_SRC
* Unix buffer things
** Platform fixes
** Key bindings
@ -41,8 +51,34 @@
** Tramp
** Webmode
* Minor modes/misc
** IBuffer mode
#+BEGIN_SRC emacs-lisp
(use-package ibbufer-vc
:hook ((ibuffer-mode . ibuffer-vc-set-filter-groups-by-vc-root)))
(use-package ibuffer
:bind (("C-x C-b" . ibuffer))
:config
(define-ibuffer-column size-h
;; Use human readable Size column instead of original one
(:name "Size" :inline t)
(cond ((> (buffer-size) 1000000)
(format "%7.1fM" (/ (buffer-size) 1000000.0)))
((> (buffer-size) 100000)
(format "%7.0fk" (/ (buffer-size) 1000.0)))
((> (buffer-size) 1000)
(format "%7.1fk" (/ (buffer-size) 1000.0)))
(t
(format "%8d" (buffer-size))))))
#+END_SRC
** Lispy
#+BEGIN_SRC emacs-lisp
(use-package lispy
:hook ((emacs-lisp-mode) . lispy-mode))
#+END_SRC
** Window numbering mode
#+BEGIN_SRC emacs-lisp
(use-package window-numbering
:config
(window-numbering-mode))
#+END_SRC
Loading…
Cancel
Save