       _b_lock"
   ("l" ar/buffer-sort-lines-ignore-case nil)
   ("o" org-sort-list nil)
-  ("b" ar/sort-current-block nil)
+  ("b" ar/buffer-sort-current-block nil)
   ("q" nil nil :color blue))
 (bind-key "M-s" #'hydra-sort/body)
 

  :config (fullframe ibuffer ibuffer-quit))

(use-package dired
  :config (fullframe dired quit-window))

;; Enhanced list-packages replacement.
(use-package paradox :ensure t

            #'ar/after-prog-mode-text-change
            t t)
  (let ((m org-mode-map))
    (define-key m [f6] #'ar/ox-html-export))
  (setq show-trailing-whitespace t)
  (set-fill-column 1000)
  (ar/org-src-color-blocks-dark)
