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
(flyspell-buffer)))
(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/.
;;; Supply a random fortune cookie as the *scratch* message.
@ -122,7 +122,7 @@ selectively."
(newline-and-indent)))
(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)
(delq nil
(mapcar (lambda (mode)
@ -442,8 +442,8 @@ Each paragraph stand on its line."
(fill-region (region-beginning) (region-end) nil)))
(defun ambrevar/youtube-dl-at-point (&optional url)
"Run 'youtube-dl' over thr URL at point.
If URL is non nil, use that instead."
"Run 'youtube-dl' over the URL at point.
If URL is non-nil, use that instead."
(interactive)
(setq url (or url (thing-at-point-url-at-point)))
(let ((eshell-buffer-name "*youtube-dl*"))