Author: grant

Remove Every Source Block Results

Sometimes you accidentally evaluate your entire Org-Mode document resulting in result blocks everywhere. Maybe you can’t easily revert the change so you are stuck with a ton of code you don’t need. Here is a function to remove all of your result blocks. It is pretty good for documents that you probably never wanted to evaluate in the first place: 

(defconst help/org-special-pre "^\s*#[+]")
(defun help/org-2every-src-block (fn)
  "Visit every Source-Block and evaluate `FN'."
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let ((case-fold-search t))
      (while (re-search-forward (concat help/org-special-pre "BEGIN_SRC") nil t)
        (let ((element (org-element-at-point)))
          (when (eq (org-element-type element) 'src-block)
            (funcall fn element)))))
    (save-buffer)))
(define-key org-mode-map (kbd "s-]") (lambda () (interactive)
                                       (help/org-2every-src-block
                                        'org-babel-remove-result)))

(Screencast) Building A Little UI To Manage Buffers

(use-package eyebrowse
  :ensure t
  :config
  (setq eyebrowse-wrap-around t)
  (eyebrowse-mode t)
  (defhydra help/hydra-left-side/eyebrowse (:color blue :hint nil)
    "
current eyebrowse slot: %(eyebrowse--get 'current-slot)
 _j_ previous _k_ last _l_ next _u_ close _i_ choose _o_ rename _q_ quit
   _a_ 00 _s_ 01 _d_ 02 _f_ 03 _g_ 04 _z_ 05 _x_ 06 _c_ 07 _v_ 08 _b_ 09"
    ("j" #'eyebrowse-prev-window-config :exit nil)
    ("k" #'eyebrowse-last-window-config)
    ("l" #'eyebrowse-next-window-config :exit nil)
    ("u" #'eyebrowse-close-window-config :exit nil)
    ("i" #'eyebrowse-switch-to-window-config)
    ("o" #'eyebrowse-rename-window-config :exit nil)
    ("q" nil)
    ("a" #'eyebrowse-switch-to-window-config-0)
    ("s" #'eyebrowse-switch-to-window-config-1)
    ("d" #'eyebrowse-switch-to-window-config-2)
    ("f" #'eyebrowse-switch-to-window-config-3)
    ("g" #'eyebrowse-switch-to-window-config-4)
    ("z" #'eyebrowse-switch-to-window-config-5)
    ("x" #'eyebrowse-switch-to-window-config-6)
    ("c" #'eyebrowse-switch-to-window-config-7)
    ("v" #'eyebrowse-switch-to-window-config-8)
    ("b" #'eyebrowse-switch-to-window-config-9))
  (global-set-key (kbd "C-M-e") #'help/hydra-left-side/eyebrowse/body))

Passion & Compassion. Action & Compaction.

Your passions are the things that you know in your heart that every one ought to experience. The feeling inside your heart when you find humanity without them, where it drives you to act, inspire and serve them to achieve it themselves is compassion. Compassion is passion’s companion.

Action is everything. Action is the difference between trying and not trying, so at least do something. Action is the nature of this universe, it’s physics and our responsibility to the world. Compaction takes your values and beliefs, distills them to their most simple and essential form. It is the crucible that takes you from undecided to emboldened to not only believe but also to act with complete conviction. Compaction is actions companion. Compaction illuminates your core beliefs so what you share is true. So now emboldened by your heart and your conscience.

The Opposite Of Afraid Isn't Fearless It Is Emboldened

Fearless is a great equalizer. It keeps its recipient humble. It draws her back to humanity of which we are all members. The fearless still fears but she fears less. The outcome is surprising: the fearless become emboldened and that is surprising and inspiring.

The emboldened do what they believe is right in the face of all obstacles. Simple but not simplistic she acts from her heart and her conscience without compromise. No matter the gender, race, religion, country or origin or political party (and the list goes on), fearlessness and the emboldened conscience unite us all no matter what we face. We are in it together. Hear, hear!

Looking For Tips On Making Emacs Screencasts

When I produce an Emacs screencast it takes four or five hours. That is after producing a handful that I’ve published and a few that I threw away. Over time I expect the process to get shorter but it is still pretty long.

There are a lot of Emacs screencasters out there. In addition to the tips there:

How long do you spend producing your screencasts and what are you tips and tricks to get the most production value in the least time?