mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

emacs.d/lisp/functions.el: Fix typos and broken binding

master
Pierre Neidhardt 2018-08-14 23:01:34 +02:00
parent 02abc0ce94
commit 78b3791f9c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.emacs.d/lisp/functions.el
View File

@ -86,7 +86,7 @@ selectively."
(when flyspell-mode (when flyspell-mode
(flyspell-buffer))) (flyspell-buffer)))
(whitespace-mode 'toggle)) (whitespace-mode 'toggle))
(global-set-key (kbd "<f9>") 'flyspell-and-whitespace-mode) (global-set-key (kbd "<f9>") #'ambrevar/flyspell-and-whitespace-mode)
;;; From https://www.reddit.com/r/emacs/comments/70bn7v/what_do_you_have_emacs_show_when_it_starts_up/. ;;; From https://www.reddit.com/r/emacs/comments/70bn7v/what_do_you_have_emacs_show_when_it_starts_up/.
;;; Supply a random fortune cookie as the *scratch* message. ;;; Supply a random fortune cookie as the *scratch* message.
@ -122,7 +122,7 @@ selectively."
(newline-and-indent))) (newline-and-indent)))
(defun ambrevar/current-minor-modes () (defun ambrevar/current-minor-modes ()
"Return which minor modes are enabled in the current buffer." "Return the list of minor modes enabled in the current buffer."
(interactive) (interactive)
(delq nil (delq nil
(mapcar (lambda (mode) (mapcar (lambda (mode)
@ -442,8 +442,8 @@ Each paragraph stand on its line."
(fill-region (region-beginning) (region-end) nil))) (fill-region (region-beginning) (region-end) nil)))
(defun ambrevar/youtube-dl-at-point (&optional url) (defun ambrevar/youtube-dl-at-point (&optional url)
"Run 'youtube-dl' over thr URL at point. "Run 'youtube-dl' over the URL at point.
If URL is non nil, use that instead." If URL is non-nil, use that instead."
(interactive) (interactive)
(setq url (or url (thing-at-point-url-at-point))) (setq url (or url (thing-at-point-url-at-point)))
(let ((eshell-buffer-name "*youtube-dl*")) (let ((eshell-buffer-name "*youtube-dl*"))