bug#34639: 26.1; Custom themes break terminal when switching to org-mode

[Vika Shleina <kisik21@fireburn.ru>]

[-- Attachment #1: Type: text/plain, Size: 116 bytes --]


ok sorry I've realized this is a problem with my config so I am
attaching my ~/.emacs here. Maybe that will help.


[-- Attachment #2: .emacs --]
[-- Type: application/octet-stream, Size: 6458 bytes --]

(require 'org)
(require 'notmuch)
(require 'nix-mode)
(require 'ledger-mode)
(require 'linum)
(require 'multi-term)
(require 'auth-source-pass)
(require 'smart-tab)
(auth-source-pass-enable)

(require 'evil)
;;(require 'evil-tabs)
;;(require 'evil-ledger)
;;(require 'org-evil)
;;(require 'evil-org)
(set-default-font "Fira Code 10")

;;(global-evil-tabs-mode t)
(ido-mode 1)
(menu-bar-mode 1)
(xterm-mouse-mode 1)
(global-smart-tab-mode 1)

(add-to-list 'auto-mode-alist '("\\.lgr\\'" . ledger-mode))

(add-hook 'find-file-hook (lambda () (linum-mode 1)))
(setq linum-format "%4d \u2502 ")
(setq linum-disabled-modes-list
      '(
	notmuch-mode
      )) (defun linum-on () (unless (or (minibufferp) (member major-mode linum-disabled-modes-list)) (linum-mode 1)))

(global-set-key (kbd "<mouse-4>") (lambda () "up" (interactive) (evil-previous-line)))
(global-set-key (kbd "<mouse-5>") (lambda () "down" (interactive) (evil-next-line)))
;;(global-k(kbd "<C-M-prior>") (lambda () "previous tab" (interactive) (elscreen-previous)))
;;(global-set-key (kbd "<C-M-next>") (lambda () "next tab" (interactive) (elscreen-next)))
;;(global-set-key (kbd "<header-line> <mouse-4>") (lambda () "previous tab" (interactive) (elscreen-previous)))
;;(global-set-key (kbd "<header-line> <mouse-5>") (lambda () "next tab" (interactive) (elscreen-next)))
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "M-s s") 'vi-search-replace)
(global-set-key
 (kbd "C-c t")
 (lambda () "Switch theme from light to dark and vice versa" (interactive)
   (custom-set-variables
    '(custom-enabled-themes
      (eval (if (equal custom-enabled-themes '(tsdh-dark))
          (quote '(tsdh-light))
        (quote '(tsdh-dark))
        ))
      )
    )
   )
 )

(defun vi-search-replace (arg)
  "Search and optionally replace a regular expression.
ARG has one of the following forms:

REGEXP
  a simple `re-search-forward'
REGEXP/TO-STRING
  replace the next occurence
REGEXP/TO-STRING/g
  replace all remaining occurences using `replace-regexp'"
  (interactive "sregexp/replace: ")
  (let ((args (split-string arg "/")))
    (cond ((= (length args) 1)
	   (apply 're-search-forward args))
	  ((or (= (length args) 2)
	       (string= (third args) ""))
	   (when (re-search-forward (first args))
	     (replace-match (second args))))
	  ((and (= (length args) 3)
		(string= (third args) "g"))
	   (replace-regexp (first args) (second args)))
	  (t (error "Please provide a string of the form REGEXP/TO-STRING/g")))))


(define-key notmuch-search-mode-map "S" (lambda () "mark message as spam" (interactive) (notmuch-show-tag (list "+spam" "-inbox"))))
(define-key notmuch-search-mode-map "d"
    (lambda ()
    "toggle unread tag for message"
    (interactive)
    (if (member "unread" (notmuch-search-get-tags))
	(notmuch-search-tag (list "-unread"))
	(notmuch-search-tag (list "+unread")))))
(define-key notmuch-search-mode-map "D"
    (lambda ()
    "toggle deleted tag for message"
    (interactive)
    (if (member "deleted" (notmuch-search-get-tags))
	(notmuch-search-tag (list "-deleted"))
	(notmuch-search-tag (list "+deleted")))))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 ;;'(ansi-color-faces-vector
 ;;  [default default default italic underline success warning error])
 ;;'(ansi-color-names-vector
 ;;  ["#212526" "#ff4b4b" "#b4fa70" "#fce94f" "#729fcf" "#e090d7" "#8cc4ff" "#eeeeec"])
 '(cua-mode t nil (cua-base))
 ;;'(custom-enabled-themes
 ;;  (eval
 ;;   (if
 ;;     (equal custom-enabled-themes
 ;;            (quote
 ;;             (tsdh-dark)))
 ;;     (quote
 ;;      (quote
 ;;       (tsdh-light)))
 ;;     (quote
 ;;      (quote
 ;;	(tsdh-dark))))))
 '(custom-safe-themes
   (quote
    ("233bb646e100bda00c0af26afe7ab563ef118b9d685f1ac3ca5387856674285d" default)))
 '(erc-autojoin-channels-alist
   (quote
    (("freenode" "#nixos" "#nixos-chat" "#nixos-dev" "#indieweb" "#indieweb-chat" "#indieweb-dev" "#indieweb-meta" "#emacs" "#erc" "#openwrt"))))
 '(erc-lurker-hide-list (quote ("JOIN" "PART" "QUIT")))
 '(erc-lurker-threshold-time 1200)
 '(erc-modules
   (quote
    (autojoin button completion dcc fill irccontrols list match menu move-to-prompt netsplit networks noncommands notifications readonly ring scrolltobottom services stamp track)))
 '(erc-nick "kisik21")
 '(erc-prompt-for-nickserv-password nil)
 '(erc-services-mode t)
 '(erc-user-full-name "Vika")
 '(ido-max-window-height 1)
 '(inhibit-startup-screen t)
 '(initial-buffer-choice "~/Documents/notes.org")
 '(multi-term-program "/run/current-system/sw/bin/bash")
 '(notmuch-saved-searches
   (quote
    ((:name "inbox" :query "tag:inbox" :key "i")
     (:name "list mails" :query "tag:lists" :key "l")
     (:name "unread" :query "tag:unread" :key "u")
     (:name "flagged" :query "tag:flagged" :key "f")
     (:name "sent" :query "tag:sent" :key "t")
     (:name "drafts" :query "tag:draft" :key "d")
     (:name "all mail" :query "*" :key "a"))))
 '(notmuch-search-oldest-first nil)
 '(org-agenda-files (quote ("~/Documents/notes.org")))
 '(org-agenda-start-on-weekday nil)
 '(org-default-notes-file "~/Documents/notes.org")
 '(send-mail-function (quote sendmail-send-it))
 '(sendmail-program "/home/kisik21/.nix-profile/bin/msmtp")
 '(weechat-auto-monitor-buffers
   (quote
    ("freenode.#indieweb" "freenode.#indieweb-dev" "freenode.#indieweb-chat" "freenode.#nixos" "freenode.#nixos-chat" "freenode.#nixos-dev")))
 '(weechat-buffer-kill-buffers-on-disconnect t)
 '(weechat-color-list
   (quote
    (unspecified "black" "dim gray" "dark red" "red" "dark green" "green" "brown" "orange" "blue" "light blue" "dark magenta" "magenta" "dark cyan" "royal blue" "dark gray" "gray")))
 '(weechat-host-default "yuki.fireburn.ru")
 '(weechat-max-nick-length 25)
 '(weechat-modules
   (quote
    (weechat-button weechat-notifications weechat-complete)))
 '(weechat-notification-mode :monitored)
 '(weechat-port-default 9001)
 '(xterm-mouse-mode t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
(put 'scroll-left 'disabled nil)
(erc-tls :server "irc.freenode.net" :port 6697 :nick "kisik21")