radian-software / radian

🍉 Dotfiles that marry elegance and practicality.
MIT License
490 stars 47 forks source link

Error when rebuilding cider in tty emacs #446

Closed raxod502 closed 4 years ago

raxod502 commented 4 years ago

We get the following when cider is rebuilt during Emacs init, but only in a tty frame using Emacs HEAD:

Debugger entered--Lisp error: (wrong-type-argument numberp nil)
  float(nil)
  color-name-to-rgb("#333333")
  color-lighten-name("#333333" -5)
  (if (equal "unspecified-bg" color) nil (color-lighten-name color (if darkp 5 -5)))
  (let ((color (frame-parameter nil 'background-color)) (darkp (eq (frame-parameter nil 'background-mode) 'dark))) (if (equal "unspecified-bg" color) nil (color-lighten-name color (if darkp 5 -5))))
  cider-scale-background-color()
  ad-Advice-enable-theme(#f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs.  To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode 0x155e496cfc8d>)) #<bytecode 0x1fdf65d0ce93>) user)
  apply(ad-Advice-enable-theme #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs.  To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode 0x155e4a135569>)) #<bytecode 0x1fdf65d0ce93>) user)
  enable-theme(user)
  #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs.  To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode 0x155e4a14b9e9>)) #<bytecode 0x1fdf65d0ce93>)(zerodark)
  ad-Advice-enable-theme(#f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs.  To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode 0x155e49620c91>)) #<bytecode 0x1fdf65d0ce93>) zerodark)
  apply(ad-Advice-enable-theme #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs.  To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode 0x155e495d5fe1>)) #<bytecode 0x1fdf65d0ce93>) zerodark)
  enable-theme(zerodark)
  load-theme(zerodark no-confirm)
  byte-code("\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\315%\210\321\322\323\"\210\306\300\310\311\324DD\325\314\326%\210\327\330!\210\10\203I\0\331..." [radian-color-theme-enable use-package--warning304 straight-current-profile radian-keymap global-map personal-keybindings custom-declare-variable radian-mode-line-left funcall function #f(compiled-function () #<bytecode 0x155e4973e305>) "Composite mode line construct to be shown left-ali..." :type sexp radian-mode-line-right #f(compiled-function () #<bytecode 0x155e4973e29d>) "Composite mode line construct to be shown right-al..." set-default mode-line-format (:eval (replace-regexp-in-string "%" "%%" (radian--mode-line-align (format-mode-line radian-mode-line-left) (format-mode-line radian-mode-line-right)) 'fixedcase 'literal)) #f(compiled-function () #<bytecode 0x155e4973e24d>) "Non-nil means to load the default Radian color the..." boolean straight-register-package (zerodark-theme :host github :repo "NicolasPetton/zerodark-theme") straight-use-package zerodark-theme (lambda (def-tmp-var) (defvar use-package--warning304 def-tmp-var)) #f(compiled-function (keyword err) #<bytecode 0x155e49741821>) (debug error) nil :catch radian-local run-hooks radian-after-init-hook add-to-list safe-local-eval-forms (when (and buffer-file-name (not (eq major-mode 'web-mode)) (string= "ejs" (file-name-extension buffer-file-name))) (web-mode)) (lambda (def-tmp-var) (defvar radian-local--scratchpad-file def-tmp-var "Path to the scratchpad file.")) file-directory-p "~/files/control" expand-file-name "~/files/control/scratchpad/scratchpad.txt" "~/temp/scratchpad.txt" defalias radian-find-use-package-keywords-md #f(compiled-function () (interactive nil) #<bytecode 0x155e49614861>) radian-find-use-package-keywords-md-other-window #f(compiled-function () (interactive nil) #<bytecode 0x155e4961483d>) "e e k" ...] 12)
  load("/home/raxod502/files/control/radian/emacs/radian" nil nomessage)
  (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil))
  (let ((file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix))))
  (unwind-protect (let ((file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file (concat radian-lib-file "c"))) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook))
  (let ((link-target (file-symlink-p (or user-init-file load-file-name buffer-file-name)))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist")) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (unwind-protect (let ((file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw 'stale-bytecode nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn (delete-file ...)) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook)))
  (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let ((link-target (file-symlink-p (or user-init-file load-file-name buffer-file-name)))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist")) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (unwind-protect (let ((file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if (file-newer-than-file-p radian-local-init-file (concat radian-lib-file "c")) (progn (throw ... nil))) (load (file-name-sans-extension radian-lib-file) nil 'nomessage) (setq stale-bytecode nil)) (if stale-bytecode (progn (condition-case nil (progn ...) (error nil)) (load radian-lib-file nil 'nomessage 'nosuffix)))) (run-hooks 'radian--finalize-init-hook))))
  (cond ((and (not after-init-time) radian--init-file-loaded-p)) (alternate-user-emacs-directory (setq alternate-user-emacs-directory (file-name-as-directory alternate-user-emacs-directory)) (setq user-emacs-directory alternate-user-emacs-directory) (setq user-init-file (expand-file-name "init.el" user-emacs-directory)) (load user-init-file 'noerror 'nomessage)) (t (setq radian--init-file-loaded-p t) (defvar radian-minimum-emacs-version "25.2" "Radian Emacs does not support any Emacs version be...") (defvar radian-local-init-file (expand-file-name "init.local.el" user-emacs-directory) "File for local customizations of Radian.") (setq package-enable-at-startup nil) (setq custom-file (expand-file-name (format "custom-%d-%d.el" (emacs-pid) (random)) temporary-file-directory)) (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let ((link-target (file-symlink-p (or user-init-file load-file-name buffer-file-name)))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist")) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (unwind-protect (let ((file-name-handler-alist nil) (load-prefer-newer t) (stale-bytecode t)) (catch 'stale-bytecode (if ... ...) (load ... nil ...) (setq stale-bytecode nil)) (if stale-bytecode (progn ... ...))) (run-hooks 'radian--finalize-init-hook))))))
  (let ((alternate-user-emacs-directory (getenv "USER_EMACS_DIRECTORY"))) (defvar radian--init-file-loaded-p nil "Non-nil if the init-file has already been loaded.\n...") (cond ((and (not after-init-time) radian--init-file-loaded-p)) (alternate-user-emacs-directory (setq alternate-user-emacs-directory (file-name-as-directory alternate-user-emacs-directory)) (setq user-emacs-directory alternate-user-emacs-directory) (setq user-init-file (expand-file-name "init.el" user-emacs-directory)) (load user-init-file 'noerror 'nomessage)) (t (setq radian--init-file-loaded-p t) (defvar radian-minimum-emacs-version "25.2" "Radian Emacs does not support any Emacs version be...") (defvar radian-local-init-file (expand-file-name "init.local.el" user-emacs-directory) "File for local customizations of Radian.") (setq package-enable-at-startup nil) (setq custom-file (expand-file-name (format "custom-%d-%d.el" (emacs-pid) (random)) temporary-file-directory)) (if (version< emacs-version radian-minimum-emacs-version) (error (concat "Radian Emacs requires at least Emacs %s, " "but you are running Emacs %s") radian-minimum-emacs-version emacs-version) (let ((link-target (file-symlink-p ...))) (if link-target nil (error "Init-file %S is not a symlink" this-file)) (defvar radian-lib-file (expand-file-name "radian.el" (file-name-directory link-target)) "File containing main Radian configuration.\nThis fi...") (if (file-exists-p radian-lib-file) nil (error "Library file %S does not exist")) (defvar radian--finalize-init-hook nil "Hook run unconditionally after init, even if it fa...") (unwind-protect (let (... ... ...) (catch ... ... ... ...) (if stale-bytecode ...)) (run-hooks 'radian--finalize-init-hook)))))))
  eval-buffer(#<buffer  *load*-453953> nil "/home/raxod502/.emacs.d/init.el" nil t)  ; Reading at buffer position 5190
  load-with-code-conversion("/home/raxod502/.emacs.d/init.el" "/home/raxod502/.emacs.d/init.el" nil t)
  load("/home/raxod502/.emacs.d/init.el" nil nomessage nosuffix)
  (if (getenv "USER_EMACS_DIRECTORY") nil (defalias 'radian--advice-fix-display-graphic-p #'(lambda (func &optional display) "Fix `display-graphic-p' so it works while loading ..." (if display (funcall func display) initial-window-system))) (advice-add #'display-graphic-p :around #'radian--advice-fix-display-graphic-p) (defalias 'radian--advice-disable-x-resource-application #'(lambda nil "Disable `x-apply-session-resources'.\nNow, `x-apply...")) (advice-add #'x-apply-session-resources :override #'radian--advice-disable-x-resource-application) (load (expand-file-name "init.el" user-emacs-directory) nil 'nomessage 'nosuffix) (advice-remove #'display-graphic-p #'radian--advice-fix-display-graphic-p))
  eval-buffer(#<buffer  *load*> nil "/home/raxod502/.emacs.d/early-init.el" nil t)  ; Reading at buffer position 1946
  load-with-code-conversion("/home/raxod502/.emacs.d/early-init.el" "/home/raxod502/.emacs.d/early-init.el" t t)
  load("/home/raxod502/.emacs.d/early-init" noerror nomessage)
  startup--load-user-init-file(#f(compiled-function () #<bytecode 0x1fdf65e0ee93>))
  command-line()
  normal-top-level()