emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Bytecompiler bytecompiler, won't you shut up

Browse source
This commit is contained in:
Henrik Lissner 2019-11-23 00:52:36 -05:00
parent 803da8b3b9
commit 26c8f5c6ef
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
21 changed files with 31 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/autoload/cli.el
View file

@ -113,7 +113,7 @@ Warning: freezes indefinitely on any stdin prompt."
:connection-type 'pipe))
done-p)
(set-process-filter
process (lambda (process output)
process (lambda (_process output)
(princ output (current-buffer))
(princ output)))
(set-process-sentinel

1
core/autoload/files.el
View file

@ -178,6 +178,7 @@ single file or nested compound statement of `and' and `or' statements."
file))
(nth 7 (file-attributes file))))
(defvar w32-get-true-file-attributes)
;;;###autoload
(defun doom-directory-size (dir)
"Returns the size of FILE (in DIR) in kilobytes."

1
core/cli/help.el
View file

@ -43,7 +43,6 @@
(print! (bold "Options:"))
(print-group!
(cl-loop for opt in optlist
for flags = (doom-cli-option-flags opt)
for desc = (doom-cli-option-desc opt)
for args = (doom-cli-option-args opt)
for flagstr = (string-join (doom-cli-option-flags opt) ", ")

2
core/cli/install.el
View file

@ -5,7 +5,7 @@
(noenv-p ["--no-env"] "Don't generate an envvars file (see 'doom help env')")
(noinstall-p ["--no-install"] "Don't auto-install packages")
(nofonts-p ["--no-fonts"] "Don't install (or prompt to install) all-the-icons fonts")
&rest args)
&rest _args)
"Installs and sets up Doom Emacs for the first time.
This command does the following:

2
core/cli/test.el
View file

@ -13,7 +13,7 @@
:bare t
(doom-initialize 'force)
(require 'ansi-color)
(let (files error read-files)
(let (files read-files)
(unless targets
(setq targets
(cons doom-core-dir

1
core/core-cli.el
View file

@ -187,6 +187,7 @@ BODY will be run when this dispatcher is called."
:plist plist
:fn
(lambda (--alist--)
(ignore --alist--)
(let ,(cl-loop for opt in speclist
for optsym = (if (listp opt) (car opt) opt)
unless (memq optsym cl--lambda-list-keywords)

12
modules/editor/evil/autoload/advice.el
View file

@ -158,9 +158,9 @@ more information on modifiers."
;; HACK This ping-ponging between the destination and source windows is to
;; update the window focus history, so that, if you close either split
;; afterwards you won't be sent to some random window.
(let* ((doom-inhibit-switch-window-hooks t)
(origwin (selected-window))
(win (select-window (split-window origwin count 'below))))
(let ((doom-inhibit-switch-window-hooks t)
(origwin (selected-window)))
(select-window (split-window origwin count 'below))
(unless evil-split-window-below
(select-window origwin))
(run-hooks 'doom-switch-window-hook))
@ -177,9 +177,9 @@ more information on modifiers."
;; HACK This ping-ponging between the destination and source windows is to
;; update the window focus history, so that, if you close either split
;; afterwards you won't be sent to some random window.
(let* ((doom-inhibit-switch-window-hooks t)
(origwin (selected-window))
(win (select-window (split-window origwin count 'right))))
(let ((doom-inhibit-switch-window-hooks t)
(origwin (selected-window)))
(select-window (split-window origwin count 'right))
(unless evil-vsplit-window-right
(select-window origwin))
(run-hooks 'doom-switch-window-hook))

2
modules/editor/evil/autoload/evil.el
View file

@ -149,7 +149,7 @@ Widens narrowed buffers first. If BANG, use indirect buffer clones instead."
(doom/narrow-buffer-indirectly beg end)))
;;;###autoload (autoload '+evil:yank-unindented "editor/evil/autoload/evil" nil t)
(evil-define-operator +evil:yank-unindented (beg end type register yank-handler)
(evil-define-operator +evil:yank-unindented (beg end _type _register _yank-handler)
"Saves the (reindented) characters in motion into the kill-ring."
:move-point nil
:repeat nil

4
modules/editor/evil/autoload/textobjects.el
View file

@ -1,12 +1,12 @@
;;; editor/evil/autoload/textobjects.el -*- lexical-binding: t; -*-
;;;###autoload (autoload '+evil:whole-buffer-txtobj "editor/evil/autoload/textobjects" nil nil)
(evil-define-text-object +evil:whole-buffer-txtobj (_count &optional _beg _end type)
(evil-define-text-object +evil:whole-buffer-txtobj (count &optional _beg _end type)
"Text object to select the whole buffer."
(evil-range (point-min) (point-max) type))
;;;###autoload (autoload '+evil:defun-txtobj "editor/evil/autoload/textobjects" nil nil)
(evil-define-text-object +evil:defun-txtobj (_count &optional _beg _end type)
(evil-define-text-object +evil:defun-txtobj (count &optional _beg _end type)
"Text object to select the whole buffer."
(cl-destructuring-bind (beg . end)
(bounds-of-thing-at-point 'defun)

2
modules/editor/evil/config.el
View file

@ -128,7 +128,7 @@ directives. By default, this only recognizes C directives.")
(save-excursion (apply orig-fn args)))
;; In evil, registers 2-9 are buffer-local. In vim, they're global, so...
(defadvice! +evil--make-numbered-markers-global-a (arg)
(defadvice! +evil--make-numbered-markers-global-a (_arg)
:after-until #'evil-global-marker-p
(and (>= char ?2) (<= char ?9)))

1
modules/editor/word-wrap/autoload.el
View file

@ -6,6 +6,7 @@
(defvar +word-wrap--enable-visual-line-mode nil)
(defvar +word-wrap--major-mode-indent-var nil)
(defvar adaptive-wrap-extra-indent)
(defun +word-wrap--adjust-extra-indent-a (orig-fn beg end)
"Contextually adjust extra word-wrap indentation."
(let ((adaptive-wrap-extra-indent (+word-wrap--calc-extra-indent beg)))

2
modules/emacs/ibuffer/config.el
View file

@ -40,7 +40,7 @@
(file-size-human-readable (buffer-size)))
(when (featurep! :completion ivy)
(defadvice! +ibuffer-use-counsel-maybe-a (file &optional wildcards)
(defadvice! +ibuffer-use-counsel-maybe-a (_file &optional _wildcards)
"Use `counsel-find-file' instead of `find-file'."
:override #'ibuffer-find-file
(interactive)

1
modules/emacs/vc/autoload/vc.el
View file

@ -11,6 +11,7 @@
(format "https://%s/%s" (car remote-info) (cadr remote-info))
(error "Remote `%s' is unknown or contains an unsupported URL" remote))))
(defvar git-link-default-branch)
(defvar git-link-open-in-browser)
(defvar git-link-use-commit)
;;;###autoload

2
modules/lang/org/autoload/org-capture.el
View file

@ -134,7 +134,7 @@ project."
(+org--capture-ensure-heading (cdr headings) (1+ initial-level)))))
(defun +org--capture-central-file (file project)
(let ((file (expand-file-name +org-capture-projects-file org-directory)))
(let ((file (expand-file-name file org-directory)))
(set-buffer (org-capture-target-buffer file))
(org-capture-put-target-region-and-position)
(widen)

2
modules/lang/org/autoload/org-refile.el
View file

@ -59,6 +59,6 @@
(user-error "No saved location to refile to"))
(let ((org-refile-keep arg)
(completing-read-function
(lambda (_p coll _pred _rm _ii _h default &rest _)
(lambda (_p _coll _pred _rm _ii _h default &rest _)
default)))
(org-refile)))

3
modules/lang/org/autoload/org.el
View file

@ -68,8 +68,7 @@
1)))
(pcase direction
(`below
(let ((at-eol (>= (point) (1- (line-end-position))))
org-insert-heading-respect-content)
(let (org-insert-heading-respect-content)
(goto-char (line-end-position))
(org-end-of-subtree)
(insert "\n" (make-string level ?*) " ")))

3
modules/lang/org/config.el
View file

@ -140,9 +140,10 @@ background (and foreground) match the current theme."
;; HACK Face specs fed directly to `org-todo-keyword-faces' don't respect
;; underlying faces like the `org-todo' face does, so we define our own
;; intermediary faces that extend from org-todo.
(with-no-warnings
(custom-declare-face '+org-todo-active '((t (:inherit (bold font-lock-constant-face org-todo)))) "")
(custom-declare-face '+org-todo-project '((t (:inherit (bold font-lock-doc-face org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) "")
(custom-declare-face '+org-todo-onhold '((t (:inherit (bold warning org-todo)))) ""))
(setq org-todo-keywords
'((sequence
"TODO(t)" ; A task that needs doing & is ready to do

4
modules/term/eshell/autoload/commands.el
View file

@ -4,10 +4,10 @@
(defun eshell/emacs (&rest files)
"Open a FILES in Emacs.
For folks with a habit of using \"emacs\" to open files, even in eshell."
(if args
(if files
(mapc #'find-file
(mapcar #'expand-file-name
(eshell-flatten-list (reverse args))))
(eshell-flatten-list (reverse files))))
(bury-buffer)))
;;;###autoload
(defalias 'eshell/e #'eshell/emacs)

2
modules/tools/eval/autoload/eval.el
View file

@ -1,7 +1,7 @@
;;; tools/eval/autoload/eval.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +eval-display-results-in-popup (output &optional source-buffer)
(defun +eval-display-results-in-popup (output &optional _source-buffer)
"Display OUTPUT in a popup buffer."
(if (with-temp-buffer
(insert output)

4
modules/tools/eval/autoload/evil.el
View file

@ -16,8 +16,8 @@
(+eval/region-and-replace beg end))
;;;###autoload (autoload '+eval:repl "tools/eval/autoload/evil" nil t)
(evil-define-operator +eval:repl (beg end &optional bang)
(evil-define-operator +eval:repl (_beg _end)
"Open REPL and send the current selection to it."
:move-point nil
(interactive "<r><!>")
(interactive "<r>")
(+eval/open-repl-other-window))

2
modules/tools/eval/autoload/repl.el
View file

@ -49,7 +49,7 @@
buffer)))
(defun +eval-open-repl (prompt-p &optional displayfn)
(cl-destructuring-bind (mode fn . plist)
(cl-destructuring-bind (_mode fn . plist)
(or (assq major-mode +eval-repls)
(list))
(when (or (not fn) prompt-p)