daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

remove some unicode for terminal compatibility

Browse Source 
fully deactivating might be (set-terminal-coding-system 'iso-latin-1)
This commit is contained in:
Daniel Weschke
2022-02-22 16:39:48 +01:00
parent 3bc17d82de
commit 4ca87469a6
9 changed files with 48 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
settings/completion-settings.el
View File

@@ -34,7 +34,7 @@
;; valid actions.
(use-package ivy
:load-path (lambda() (concat config-dir "lisp/ivy"))
:delight (ivy-mode "Ⓘ") ;; Ⓘ i
:delight (ivy-mode "Ivy") ;; \u24BE i
:defer 0.1
;; Ivy-based interface to standard commands
:bind (("C-s" . swiper)
@@ -115,7 +115,7 @@
(use-package company
:load-path (lambda() (concat config-dir "lisp/company"))
:delight (company-mode "Ⓒ") ;; Ⓒ c
:delight (company-mode "Co") ;; \u24B8 c
;;:bind (("C-M-i" . company-complete))
:bind (([remap completion-at-point] . company-complete)
:map lisp-interaction-mode-map
@@ -180,7 +180,7 @@ Possible PACKAGE values are `company'."
(use-package yasnippet ;; https://elpa.gnu.org/packages/yasnippet.html
:defer 1
:delight (yas-minor-mode "Ⓨ") ;; Ⓨ y
:delight (yas-minor-mode "Ys") ;; \u24CE y
;; see also variable yas-snippet-dirs, the yasnippet-snippets
;; collection dir is added via require 'yasnippet-snipets
:config

48
settings/gui-settings.el
View File

@@ -18,24 +18,24 @@
(use-package emacs
:delight
(auto-fill-function "↵")
(compilation-shell-minor-mode "Ⓒｓ")
(eldoc-mode "Ⓔ") ;; Ⓔ e
(visual-line-mode "↩") ;; " Wrap"
(whitespace-mode "␣") ;; "␣ _ ws"
(auto-fill-function "Fa") ;; "\u21B5"
(compilation-shell-minor-mode "Csh") ;; "\u24B8\uFF53"
(eldoc-mode "Ed") ;; \u24BA e
(visual-line-mode "Vl") ;; " Wrap" "\u21A9"
(whitespace-mode "Ws") ;; "\u2423 \u005F ws"
;; major modes
(calendar-mode "🅒ａｌ") ;; "Calendar" "📆"
(css-mode "🅒SS") ;; "CSS"
(emacs-lisp-mode "🅛ｅ") ;; "EL 🅛⒠"
(eshell-mode "🅢ｅ") ;; "Esh 🅔⒮"
(fundamental-mode "🅕") ;; "F " ;; not working
(help-mode "🅗") ;; "H "
(Info-mode "🅘") ;; "I " ;; not working
(latex-mode "🅛ａ") ;; "LaTeX "
(lisp-interaction-mode "🅛ｉ") ;; "LI 🅛⒤"
(messages-mode "🅜") ;; "M " ;; not working
(messages-buffer-mode "🅜") ;; "M " ;; not working
(inferior-python-mode "🅟ｉ") ;; "IPy 🅟⒤"
(calendar-mode "Ca") ;; "Calendar" "\u01F4C6" "\u01F152\uFF41\uFF4C"
(css-mode "Css") ;; "CSS"" "\u01F152ss
(emacs-lisp-mode "El") ;; "EL" "\u01F15B\uFF45"
(eshell-mode "Esh") ;; "Esh" "\u01F162\uFF45
(fundamental-mode "Fu") ;; "F " "\u01F155" ;; not working
(help-mode "H") ;; "H " "\u01F157"
(Info-mode "I") ;; "I " "\u01F158" ;; not working
(latex-mode "La") ;; "LaTeX " "\u01F15B\uFF41"
(lisp-interaction-mode "Lii") ;; "LI \u01F15B\u24A4" "\u01F15B\uFF49
(messages-mode "M") ;; "M " "\u01F15C" ;; not working
(messages-buffer-mode "M") ;; "M " "\u01F15C" ;; not working
(inferior-python-mode "Pyi") ;; "IPy \u01F15F\u24A4" "\u01F15F\uFF49"
:hook
(prog-mode . display-fill-column-indicator-mode)
(help-mode . visual-line-mode)
@@ -163,14 +163,14 @@ DISPLAY-START: `integer', e.g. 3820"
(use-package doc-view
:defer t
:delight (doc-view-mode "🅓ｏｃ") ;; "DocView"
:delight (doc-view-mode "Doc") ;; "DocView" "\u01F153\uFF4F\uFF43"
:config
(setq doc-view-continuous t))
(use-package restart-emacs)
(use-package page-break-lines
:delight (page-break-lines-mode "Ⓟｂ")
:delight (page-break-lines-mode "Pb") ;; "\u24C5\uFF42"
:config
(add-to-list 'page-break-lines-modes 'ledger-mode)
(global-page-break-lines-mode))
@@ -190,7 +190,7 @@ DISPLAY-START: `integer', e.g. 3820"
(use-package dashboard
:load-path (lambda() (concat config-dir "lisp/dashboard"))
:delight (dashboard-mode "🅓")
:delight (dashboard-mode "Db") ;; "\u01F153
:config
;; because we use `use-package' include `use-package-statistics' if computed
(defun my-dashboard-init-info ()
@@ -386,7 +386,7 @@ See also `dashboard-insert-section' for the sequence of elements."
(dashboard-setup-startup-hook))
(use-package indent-guide
:delight (indent-guide-mode "Ⓘｇ")
:delight (indent-guide-mode "Ig") ;; "\u24BE\uFF47"
:hook (prog-mode . indent-guide-mode) ;; problem if used in notmuch
:config
(set-face-attribute 'indent-guide-face nil :foreground "DarkSlateGray") ;; foreground #535353
@@ -397,7 +397,7 @@ See also `dashboard-insert-section' for the sequence of elements."
;; problem when using 'character in elisp it inserts the guide characters when inserting text before guide characters
;; (use-package highlight-indent-guides
;; :delight (highlight-indent-guides-mode "Ⓘｇ")
;; :delight (highlight-indent-guides-mode "\u24BE\uFF47")
;; :hook (prog-mode . highlight-indent-guides-mode)
;; :config
;; (setq highlight-indent-guides-method 'character) ;; 'fill 'character 'bitmap
@@ -407,7 +407,7 @@ See also `dashboard-insert-section' for the sequence of elements."
;; )
(use-package rainbow-mode
:delight (rainbow-mode "Ⓡ") ;; " Rbow"
:delight (rainbow-mode "Rb") ;; " Rbow" "\u24C7"
:commands rainbow-mode)
(use-package focus
@@ -420,7 +420,7 @@ See also `dashboard-insert-section' for the sequence of elements."
)
(use-package virtual-auto-fill
:delight (virtual-auto-fill-mode "Ⓥｆ")
:delight (virtual-auto-fill-mode "Fv") ;; "\u24CB\uFF46"
:commands virtual-auto-fill-mode
;;:hook (help-mode . virtual-auto-fill-mode)
)

4
settings/ledger-settings.el
View File

@@ -16,8 +16,8 @@
(use-package ledger-mode
:load-path (lambda() (concat config-dir "lisp/ledger-mode"))
:delight
(ledger-mode "🅛ｄ") ; "Le "
(ledger-report-mode "🅛dr") ; "LeR 🅖⒭"
(ledger-mode "Le") ; "Le " "\u01F15B\uFF44"
(ledger-report-mode "Ler") ; "LeR \u01F156\u24AD" "\01F15B
:commands ledger-mode
:mode "\\.ledger\\'"
:config

18
settings/mail-settings.el
View File

@@ -113,10 +113,10 @@ be set according to this variable."
;; [\] `mu4e-headers-query-prev' - go back to previous search query
(use-package mu4e
:delight
(mu4e-main-mode "🅜ｍ")
(mu4e-headers-mode "🅜ｈ") ;; will be overwitten with `mu4e~headers-search-execute'
(mu4e-view-mode "🅜ｖ")
(mu4e~update-mail-mode "🅜ｕ")
(mu4e-main-mode "Mum") ;; "\u01F15C\uFF4D"
(mu4e-headers-mode "Muh") ;; "\u01515C\uFF48" will be overwitten with `mu4e~headers-search-execute'
(mu4e-view-mode "Muv") ;; "\u01F15C\uFF56"
(mu4e~update-mail-mode "Muu") ;; "\u01F15C\uFF55"
:commands mu4e
:config
;; allow to display emoji in the subject lines of the emails
@@ -287,11 +287,11 @@ MSG is a message p-list from mu4e."
(use-package notmuch
:delight
(notmuch-hello-mode "🅝ｈ")
(notmuch-message-mode "🅝ｍ")
(notmuch-search-mode "🅝ｓ")
(notmuch-show-mode "🅝ｗ")
(notmuch-tree-mode "🅝ｔ")
(notmuch-hello-mode "Nmh") ;; "\u01F15D\uFF48"
(notmuch-message-mode "Nmm") ;; "\u01F15D\uFF4D"
(notmuch-search-mode "Nms") ;; "\u01F15D\uFF53"
(notmuch-show-mode "Nmv") ;; "\u01F15D\uFF57"
(notmuch-tree-mode "Nmt") ;; "\u01F15D\uFF54"
:commands notmuch
:config
(set-face-attribute 'notmuch-tag-flagged nil :foreground "#b1951d")

8
settings/org-settings.el
View File

@@ -247,7 +247,7 @@ Example defines
;; conflict.
(use-package org
:load-path (lambda () (list (concat config-dir "lisp/org")))
:delight (org-mode "🅞") ;; "Org "
:delight (org-mode "Org") ;; "Org " "\u01F15E"
:defer t
:init
(setq org-export-backends '(ascii html icalendar latex md odt reveal tufte))
@@ -469,7 +469,7 @@ Suggest the URL title as a description for resource."
(use-package org-fancy-priorities
:after (org)
:delight (org-fancy-priorities-mode "Ⓟ") ;; FancyPriorities
:delight (org-fancy-priorities-mode "Fp") ;; FancyPriorities "\u24C5"
:hook (org-mode . org-fancy-priorities-mode)
:config
;; 🅐🅑🅒🅓 🅰🅱🅲🅳 ❗⬆⬇☕ ⚡⮬⮮☕
@@ -525,7 +525,7 @@ Suggest the URL title as a description for resource."
(use-package org-num ;; numbering of headings
:after (org)
:delight (org-num-mode "＃") ;; o#
:delight (org-num-mode "#") ;; o# "\uFF03"
:config
(setq org-num-skip-tags '("ignore"))
(setq org-num-skip-unnumbered t))
@@ -566,7 +566,7 @@ Suggest the URL title as a description for resource."
(use-package org-table-sticky-header
:after (org)
:delight (org-table-sticky-header-mode "Ⓣ") ;; Ⓞt OTSH
:delight (org-table-sticky-header-mode "Tsh") ;; \u24C4t OTSH "\u24C9"
:hook (org-mode . org-table-sticky-header-mode)) ;; must be set before org-sticky-header-mode, maybe orgtbl-show-header can also be used
(use-package org-tempo ;; expand <s to a src block, ...

6
settings/python-settings.el
View File

@@ -8,7 +8,7 @@
;;; Code:
(use-package python
:delight (python-mode "🅟") ;; "Py "
:delight (python-mode "Py") ;; "Py " "\u1F15F"
:commands (python-mode)
:bind (:map python-mode-map
;; swap C-u C-c C-c with C-c C-c, so C-c C-c sends __main__
@@ -100,7 +100,7 @@ process."
(use-package anaconda-mode ;; works with company-mode via company-anaconda
:load-path (lambda() (concat config-dir "lisp/anaconda-mode"))
:after python
:delight (anaconda-mode "Ⓐ") ;; Ⓐ a
:delight (anaconda-mode "A") ;; \u24B6 a
:bind (([remap anaconda-mode-show-doc] . my-anaconda-mode-show-doc)) ;; M-?
:hook (python-mode
(python-mode . anaconda-eldoc-mode)) ;; if cursor is between function's parenthesis show parameter in echo area
@@ -137,7 +137,7 @@ process."
;; https://github.com/naiquevin/sphinx-doc.el
;; enable the sphinx-doc-mode and bind the interactive function sphinx-doc to C-c M-d.
(use-package sphinx-doc
:delight (sphinx-doc-mode "Ⓢ") ;; Ⓢ s
:delight (sphinx-doc-mode "Sph") ;; \u24C8 s
:hook (python-mode . sphinx-doc-mode))
(provide 'python-settings)

2
settings/syntax-checking-settings.el
View File

@@ -23,7 +23,7 @@
:load-path (lambda() (concat config-dir "lisp/flycheck"))
:defer 2
:init
(setq flycheck-mode-line-prefix "𝓕") ;; Ⓕ 𝓕 ✈ f ;; other flycheck settings see syntax-checking-settings.el
(setq flycheck-mode-line-prefix "F") ;; \u24BB \u01D4D5 \u2708 f ;; other flycheck settings see syntax-checking-settings.el
(setq flycheck-mode-line '(:eval (concat (flycheck-mode-line-status-text) " ")))
:config
(setq-default flycheck-disabled-checkers '(python-flake8)) ;; disable the python-flake8 checker. This will make the next checker which is python-pylint to be used.

1
settings/theme-settings.el
View File

@@ -53,6 +53,7 @@
(setq inhibit-compacting-font-caches t)
(use-package emojify
:if window-system
:commands emojify-mode
:load-path (lambda() (concat config-dir "lisp/emojify"))
:hook (after-init . global-emojify-mode)

2
settings/which-key-settings.el
View File

@@ -9,7 +9,7 @@
;; https://github.com/justbur/emacs-which-key#manual-activation
;;(setq which-key-show-early-on-C-h t) ;; Allow C-h to trigger which-key before it is done automatically
(use-package which-key
:delight (which-key-mode "Ⓚ") ;; Ⓚ K
:delight (which-key-mode "K") ;; \u24C0 K
:init
(setq which-key-idle-delay 1.0)
(setq which-key-idle-secondary-delay 0.05)