MinasMazar's blog ~ Emacs

I think the video "Returning to the Church (of Emacs)" by Joshua Blais explains it very well ☺️

• minemacs (aims to be as minimal as possible, preferring built-in solutions over using external packages)
• Holymacs (raw version, usefull if you want to experiment the Visit Navigate weblorgs!)
• init.el (real minimal configuration adding only god-mode as modal editing layer)

• Emacs Elisp manual (pdf)
• WikEmacs, EmacsWiki, StackExchange, Reddit
• Awesome Elisp
• online documentation for org-mode 🦄 and worg 🌈
• EmacsTV! 📺

(use-package emacstv
  :vc (:url "https://github.com/emacstv/emacstv.github.io"))

Here's some credits from other adepts for their inspiring work 😁

• Richard Stallman
• Kelvin Hu for his emacs configuration and the idea to write it in a literate style.
• Howard Abrams for his dotfiles.
• Aaron Bieber for his dotfiles and for the wonderful speech Evil Mode: Or, How I Learned to Stop Worrying and Love Emacs that makes me fall in love with Emacs. ;-)
• Protesilaos Stavrou for his comprehensive "dotemacs" (.emacs) for GNU/Linux and the huge amount of posts and videos about Emacs.
• David Wilson for his fantastic System Crafters screencasts!
• Carsten Dominik, creator of org-mode 🦄
• Mike Hamrick for orgdemo2 which is really useful if you want learn a lot of stuff about org-mode.
• Eric H. Neilsen, Jr. for his wonderful org-mode examples and cookbook.
• Omar Polo and Adolfo Villafiorita
• Xah Lee Web, Karthinks

Just press C-h o to get help on those symbols.

• add-file-local-variable (append at bottom of the file) and add-file-local-variable-prop-line (prepend in the first line)
• align-regexp
• auto-mode-alist
• browse-url-generic-program
• browse-url-of-buffer
• command-switch-alist
• completions-max-height
• completion-auto-help
• compilation-scroll-output
• current-time-string
• dired-guess-shell-alist-user
• display-time-day-and-date
• display-time-mode
• epa-pinentry-mode
• format-time-string
• describe-text-properties
• face-remap-add-relative and face-remap-remove-relative to easily modify faces in current buffer
• find-name-dired
• frame-title-format
• image-crop
• imenu-generic-expression
• json-pretty-print-buffer
• make-list and number-sequence
• mm-discouraged-alternatives
• org-agenda-include-diary
• org-agenda-custom-commands
• org-archive-subtree-default
• org-babel-load-file
• org-todo-keywords
• pp-eval-expression
• proced
• project-switch-commands
• shr-inhibit-images
• string-match
• C-x @ prefix allow to reach/remap alt/super/Hyper keys
• C-h R

#+BEGIN_SRC sh :var filename=(buffer-file-name) :exports both
  wc -w $filename
#+END_SRC

Get an element from a vector

;; get a element from vector
(aref ["a" "b" "c"] 0) ; ⇒ "a"
;; get a element from vector
(elt ["a" "b" "c"] 0) ; ⇒ "a"

What's the difference between aref and elt? elt is more general. It works on vector and list. But if you know it's vector, you should use aref, because it's precise and faster.

To find an element

• member
• contains
• seq-find

(seq-find (lambda (val) (= 3 val)) '(1 2 3))

To occur among marked buffers in ibuffer press O.

Download four random images from picsum using an index.

for i in $(number-sequence 1 4) { wget -O wallpaper_$1.jpg https://picsum.photos/1920/1080.jpg }

Possible values for this variable could be chrome --headless --disable-gpu --dump-dom --profile-directory=Default https://stackoverflow.com/

Refs to this SO post try elisp:(completing-read%20%22Prompt:%20%22%20'(i1%20i2%20i3)) and this post; try elisp:(read-from-minibuffer%20%22Prompt:%20%22%20%22initial%22). Take a look at minemacs/demo-function, it can help if you want to write functions with bit more complex interactive prompts.

(defun minemacs/demo-function (url &optional handler)
  "Example function."
  (interactive (list
		  (read-from-minibuffer "URL: ")
		  (completing-read "handler: " '(browse-url-firefox browse-url-chrome))))
   (message (format "url: %s, handler: %s" url handler )))

You can use the wonderful tool regexp-builder. Use string-match to run a regexp and match-string to extract the captures (remember to specify the 2nd arugment as the matched string itself). Example:

(let ((match-data (string-match "\\(\\ca\\{11\\}\\)\$" "https://www.youtube.com/watch?v=JvBfP62HTAM")))
  (match-string 1 "https://www.youtube.com/watch?v=JvBfP62HTAM"))

Here is the syntax used by Emacs for regular expressions. Any character matches itself, except for the list below.

The following characters are special : . * + ? ^ $ \ [

Between brackets [], the following are special : ] - ^

Many characters are special when they follow a backslash – see below.

. any character (but newline)

• previous character or group, repeated 0 or more time
• previous character or group, repeated 1 or more time

? previous character or group, repeated 0 or 1 time ^ start of line $ end of line […] any character between brackets [^..] any character not in the brackets [a-z] any character between a and z \ prevents interpretation of following special char \| or \w word constituent \b word boundary \sc character with c syntax (e.g. \s- for whitespace char) \( \) start\end of group \< \> start\end of word \_< \_> start\end of symbol \` \' start\end of buffer\string \1 string matched by the first group \n string matched by the nth group \{3\} previous character or group, repeated 3 times \{3,\} previous character or group, repeated 3 or more times \{3,6\} previous character or group, repeated 3 to 6 times \= match succeeds if it is located at point *?, +?, and ?? are non-greedy versions of *, +, and ? – see NonGreedyRegexp. Also, \W, \B, and \Sc match any character that does not match \w, \b, and \sc.

Characters are organized by category. Use C-u C-x = to display the category of the character under the cursor.

\ca ascii character \Ca non-ascii character (newline included) \cl latin character \cg greek character Here are some syntax classes that can be used between brackets, e.g. [[:upper:]\|[:digit:]\.].

[:digit:] a digit, same as [0-9] [:alpha:] a letter (an alphabetic character) [:alnum:] a letter or adigit (an alphanumeric character () [:upper:] a letter in uppercase [:space:] a whitespace character, as defined by the syntax table [:xdigit:] an hexadecimal digit [:cntrl:] a control character [:ascii:] an ascii character Syntax classes:

\s- whitespace character \s/ character quote character \sw word constituent \s$ paired delimiter \s_ symbol constituent \s' expression prefix \s. punctuation character \s< comment starter \s( open delimiter character \s> comment ender \s) close delimiter character \s! generic comment delimiter \s" string quote character \s| generic string delimiter \s\ escape character

You can run specified function at specified time and with a specific timeout. Check out the doc for more information.

(run-at-time "11 min" t #'elfeed-update)
(run-at-time "5 hours" t (lambda () (load-theme (seq-random-elt custom-known-themes))))

The list-timers command lists all the currently active timers. There’s only one command available in the buffer displayed: c (timer-list-cancel) that will cancel the timer on the line under point.

(insert (propertize "Red Text" 'font-lock-face '(:foreground "red")))

Code stolen from stackoverflow.

(defun minemacs-clear-buffer ()
  "clear whole buffer add contents to the kill ring"
  (interactive)
  (kill-region (point-min) (point-max)))

(defun minemacs-clear-buffer-permenantly ()
  "clear whole buffer, contents is not added to the kill ring"
  (interactive)
  (delete-region (point-min) (point-max)))

If you'd like to have a smaller font on compialtion buffers

(add-hook 'compilation-mode-hook (lambda () (text-scale-decrease 1)))

Useful function if you want to quick inspect the face under cursor

(defun what-face (pos)
  (interactive "d")
  (let ((face (or (get-char-property pos 'read-face-name)
                  (get-char-property pos 'face))))
    (if face (message "Face: %s" face) (message "No face at %d" pos))))

Get the list of font families (font-family-list); here's the code to set a random font family in the current frame.

(set-face-font 'default (seq-random-elt (font-family-list)))

• request.el

Example stolen from here.

(require 'widget)

(eval-when-compile
  (require 'wid-edit))

(defvar widget-example-repeat)

(defun widget-example ()
  "Create the widgets from the Widget manual."
  (interactive)
  (let ((buffer (switch-to-buffer "*Widget Example*")))
    (with-current-buffer buffer
        (kill-all-local-variables)
        (make-local-variable 'widget-example-repeat)
        (let ((inhibit-read-only t))
          (erase-buffer))
        (remove-overlays)
        (widget-insert "Here is some documentation.\n\n")
        (widget-create 'editable-field
                       :size 13
                       :format "Name: %v " ; Text after the field!
                       "My Name")
        (widget-create 'menu-choice
                       :tag "Choose"
                       :value "This"
                       :help-echo "Choose me, please!"
                       :notify (lambda (widget &rest ignore)
                                 (message "%s is a good choice!"
                                          (widget-value widget)))
                       '(item :tag "This option" :value "This")
                       '(choice-item "That option")
                       '(editable-field :menu-tag "No option" "Thus option"))
        (widget-create 'editable-field
                       :format "Address: %v"
                       "Some Place\nIn some City\nSome country.")
        (widget-insert "\nSee also ")
        (widget-create 'link
                       :notify (lambda (&rest ignore)
                                 (widget-value-set widget-example-repeat
                                                   '("En" "To" "Tre"))
                                 (widget-setup))
                       "other work")
        (widget-insert
         " for more information.\n\nNumbers: count to three below\n")
        (setq widget-example-repeat
              (widget-create 'editable-list
                             :entry-format "%i %d %v"
                             :notify
                             (lambda (widget &rest ignore)
                               (let ((old (widget-get widget
                                                      ':example-length))
                                     (new (length (widget-value widget))))
                                 (unless (eq old new)
                                   (widget-put widget ':example-length new)
                                   (message "You can count to %d." new))))
                             :value '("One" "Eh, two?" "Five!")
                             '(editable-field :value "three")))
        (widget-insert "\n\nSelect multiple:\n\n")
        (widget-create 'checkbox t)
        (widget-insert " This\n")
        (widget-create 'checkbox nil)
        (widget-insert " That\n")
        (widget-create 'checkbox
                       :notify (lambda (&rest ignore) (message "Tickle"))
                       t)
        (widget-insert " Thus\n\nSelect one:\n\n")
        (widget-create 'radio-button-choice
                       :value "One"
                       :notify (lambda (widget &rest ignore)
                                 (message "You selected %s"
                                          (widget-value widget)))
                       '(item "One") '(item "Another One.")
                       '(item "A Final One."))
        (widget-insert "\n")
        (widget-create 'push-button
                       :notify (lambda (&rest ignore)
                                 (if (= (length
                                         (widget-value widget-example-repeat))
                                        3)
                                     (message "Congratulation!")
                                   (error "Three was the count!")))
                       "Apply Form")
        (widget-insert " ")
        (widget-create 'push-button
                       :notify (lambda (&rest ignore)
                                 (widget-example))
                       "Reset Form")
        (widget-insert "\n")
        (use-local-map widget-keymap)
        (widget-setup))
    (pop-to-buffer buffer)))

Drive a graphical Emacs instance via emacsclient.

(defun first-x-frame ()
  (car (filtered-frame-list (lambda (frame) (member (framep frame) '(ns x))))))

(defmacro with-x-frame (body)
  `(let ((frame (first-x-frame)))
    (with-selected-frame frame ,body)))

• Mastering Key-Bindings in Emacs
• Results of Evaluation

• 5 ways to get text from an Emacs buffer

  (let ((start (point-min))
  	  (end (point-max)))
    (buffer-substring start end))