manateelazycat / awesome-tray Goto Github PK

reproduce

Open a file, we suppose this file content 70 lines

the cursor current at line 1, line number show (1:0 top), this is expected

Press "M->"

i can see (1:0 top) no changed, this is not expected.

i expect to see "(70:0 bottom)"

Press "Ctrl+p", will move one line up,

we see (69:0 99%), this is expected.

solution

It seem like when press "Ctrl+>" or "Ctrl+<", some hook not happen which should update
line number.

Emacs 26.1 + newest commit fdda61e

Thank.

• 问题描述
  你好! 我尝试了您的awesome-tray后, 感觉十分好用. 不过我发现如果打开含有git信息的文档, Emacs就会变得十分卡顿甚至失去相应.

为了防止其他包的干扰结果, 使用emacs -Q最小化启动, 单独载入awesome-tray并打开profiler.
结果如图所示.

似乎CPU大部分时间忙于处理git信息的更新, 而在windows下启动进程比较昂贵, 可能这就是导致卡顿的原因.

• 我的一点点建议
  Git分支信息不同于行号和列号当前时间这种实时更新的信息, 是相对比较固定的. 可以将其缓存下来, 避免了反复调用Git开销严重, 进而导致性能问题

When editing large file (org file with 20000 lines), the location module is very slow. I inspected the code and found out it cause by (line-number-at-pos (point-max)) and (line-number-at-pos). So i try to replace those function with better solution and it get much more faster.

• Original

(defun awesome-tray-module-location-info ()
  (let* ((bottom-line (line-number-at-pos (point-max)))
         (location-percent
          (cond ((equal (line-number-at-pos) 1)
                 "top")
                ((equal (line-number-at-pos) bottom-line)
                 "bottom")
                (t
                 (format "%.f%%" (* (/ (float (line-number-at-pos)) bottom-line) 100))))
          ))
    (format "(%s:%s %s)"
            (line-number-at-pos)
            (current-column)
            location-percent
            )))

• I replace (line-number-at-pos (point-max)) with total-lines-mode and (line-number-at-pos) with (string-to-number (format-mode-line "%l"))

(defun awesome-tray-module-location-info ()
          (let* ((bottom-line (if (numberp total-lines) total-lines (line-number-at-pos (point-max))))
                 (current-line (string-to-number (format-mode-line "%l")))
                 (location-percent
                  (cond ((equal current-line 1)
                         "top")
                        ((equal current-line bottom-line)
                         "bottom")
                        (t
                         (format "%.f%%" (* (/ (float current-line) bottom-line) 100))))
                  ))
            (format "(%s:%s %s)"
                    current-line
                    (current-column)
                    location-percent
                    )))

After Emacs 26, display-line-numbers-mode is super fast even for files larger than 20M, while
awesome-tray-module-location-info is very slow. Is there a way to get the line number using the
native display?

https://lists.gnu.org/archive/html/emacs-devel/2017-06/msg00318.html

Can we also show the filename in the tray instead of having it on top of the buffer?

我没有用 circe 这个包。今天测试一些 face 的时候启用了 “circe” 模块，然后 awesome-tray 报错：

Wrong type argument: listp, "Sorry, something error in awesome tray."

且 Emacs 无法退出，退出时 modeline 会闪，并且重复报这个错。我估计可能是因为 awesome-tray 给一些 minibuffer 相关的函数加了 advice，而退出时 Emacs 还想要 message 什么信息，就一直卡在这个错误里了。

Update: 在开发 evil 模块的时候我发现如果模块的 info 函数出错，awesome-tray 就会报这个错。或许应当使得 info 函数出错时自动用 "" 代替其返回值，这样 info 函数就不需要太细致地处理错误。

Some time ago, I released a post on Emacs China about this function, because I had some problems about it. Now, can you add this function?
Post: https://emacs-china.org/t/awesome-tray-module-add-to-alist/15536

太谢谢大佬啦，这个项目里的显示我这里也是正常的

但是在复杂点的项目里还是显示不出，我比较了下应该是比demo项目中增加了namespace和class，如图

在header文件中

在cpp文件中

图片中代码地址：https://github.com/Peter-Chou/transformer_cpp_tokenizers

大佬有时间的话，麻烦抽空看下，非常感谢啦

Originally posted by @Peter-Chou in #113 (comment)

Awesome-tray works fine with vertico when run via emacs.exe, however when using emacsclientw.exe to connect to a daemon awesome tray inhibits the display of vertico completions. The candidates will appear momentarily, and then be suppressed.

Emacs also throws this message(s) when connecting to the daemon:

Invalid face reference: awesome-tray-module-file-path-face
Invalid face reference: awesome-tray-module-mode-name-face
Invalid face reference: awesome-tray-module-date-face
Invalid face reference: awesome-tray-module-input-method-face

These messages do not appear when running without the daemon.

This occurs if running awesome-tray via the init.el or via M-x.

calendar 在 mode-line 上可以显示一些节日信息，感觉这个功能还挺好的

请问 awesome-tray 能否支持一下对 calendar 的显示呢？

感谢猫哥

在message buffer 中会出现：

tramp-file-name-handler: Not enough arguments for format string
Unable to load color "SystemOrangeColor"
Unable to load color "SystemPinkColor"
Unable to load color "SystemGrayColor"

还没有查到具体的原因是什么

嗯~~~好吧。上图header文件有点歧义 ，我更新下 ：

仔细看图的话会发现：header文件中和cpp文件中其实 class的method belong并没有显示出来。
和面包屑比较并非希望belong变成面包屑，只是想突出下问题。
I hope we are on the same page...

Originally posted by @Peter-Chou in #114 (comment)

I am using following instructions to install awesome tray using use-package and straight, but awesome tray is showing on left side of the minibuffer. How can I resolve this issue.

(use-package awesome-tray
  :straight (:host github
             :repo "manateelazycat/awesome-tray"
             :branch "master")
  :config
  (awesome-tray-mode 1)
  (setq awesome-tray-active-modules '("location" "buffer-name" "git" "mode-name" "evil"))
  )

I would like to change the mode-line-active-color dynamically if a buffer is modified. Actually the only way is to reactivate the mode. I would like to know if there is another way.

In telega, the dividing line will become thicker because telega adds content to it.
I think it is possible to directly hide the modelline and add a dividing line instead of setting the modeline as a dividing line?

Can you add all-the-icons support to awesome-tray? something like major mode icon etc?

before

after

When I use org-clock, the disabled mode-line will be weird. (org-clock-clocked-display in mode-line default)

Awesome-tray-hide-mode-line is not-nil, the thin mode-line become not thin.

I know disable the org-clock-clocked-display will become thin mode-line . But is this normal?

Currently a module can't be added without touching awesome-tray's codebase. Sometimes a user may want to have some private modules to satisfy his/her demand. I suggest we refactor awesome-tray-get-module-info to read the logic from an alist like:

(("git" . '(awesome-tray-module-git-info awesome-tray-module-git-face)
 (...))

so user can push his module name, info function and face into this list. I can do this if you consider it reasonable.

https://emacs-china.org/uploads/default/original/2X/b/be040bc03ecb5498524e54375619035c83448230.png
https://emacs-china.org/uploads/default/original/2X/7/7956809927a5baa60624ccf224230ef608b0b5f8.png

emacs -Q后的最小配置 插件都删了 最后执行 awsome-tray-mode 1 tab图标就会瞬间变小 执行前后https://emacs-china.org/uploads/default/original/2X/3/314d05c6a9a6b58b63ed4e716c8f5272b68b1ca0.png
https://emacs-china.org/uploads/default/original/2X/7/7fcc5897a8bf77b51c46f84dca5fa967aeb64d15.png

最近发现c / c++-ts-mode 中belong信息没法正常显示，大佬有空能帮忙看下吗，在header文件，和cpp文件里都无法正常显示，lsp-mode的breadcrumb显示正常，如图：

截图中用的demo地址： https://github.com/mycpptutorial/helloworld-cmake ， 辛苦大佬啦~

Can this package use in some major mode, not globally?

It doesn't look right...is it just me?

Hey, I noticed the option awesome-tray-info-padding-right had been removed by commit 00047f4.

Without that option the last one character of awesome-tray in my Emacs always goes to the new line, check out the screenshot:

And instead of, we are now using overlay, I want to know how to make the same purpose with overlay.

在使用lsp-bridge时，emacs启动后首先开启的buffer，awesome-tray的modeline表现正常，如图

而当打开文件，lsp-bridge被启动后，modeline就表现异常，貌似两者产生了冲突，如图

lsp-bridge 没有启动的buffer 表现正常，如图：

以下是我的配置：

(use-package lsp-bridge
  :quelpa (lsp-bridge :fetcher github
  		              :repo "manateelazycat/lsp-bridge"
  		              :files ("*"))
  :init (require 'lsp-bridge)
  :config
  (global-lsp-bridge-mode))

(use-package awesome-tray
  :quelpa (awesome-tray :fetcher github
  		                :repo "manateelazycat/awesome-tray"
  		                :files ("*.el"))
  :hook (after-init . awesome-tray-mode)
  :init
  (setq 
        awesome-tray-update-interval 0.6
        awesome-tray-buffer-name-max-length 30
        awesome-tray-file-path-show-filename t
        awesome-tray-buffer-name-buffer-changed t
        awesome-tray-active-modules   '("location" "belong" "buffer-name" "date")
        awesome-tray-essential-modules '("location" "belong" "buffer-name")))

麻烦懒猫大神帮忙看下，是否可以修复 ？非常感谢

一旦想在minibuffer输入，比如使用M-x时，cursor会使minibuffer中间变全白。

不知是否和我其他安装的包有冲突。

移动光标，行列号更新有点滞后，略有卡顿，插件非常棒，感谢大佬。

目前使用过程中, 主要遇到两个问题:

当开启多个 window 时, 鼠标挪到 tray 上面, 看到很多重复的 tray 信息, 体验较差.

和 tabbar.el 在一起不工作

awesome-tray 相关的配置:

(require 'awesome-tray)
(awesome-tray-mode 1)

(provide 'awesome-tray_init)
;;; awesome-tray_init.el ends here

tabbar 相关的配置 (网上抄的)

(when (require 'tabbar nil t)
  (set-face-attribute 'tabbar-default nil
                      :background "gray20"
                      :foreground "gray20"
                      :box '(:line-width 1 :color "gray20" :style nil))
  (set-face-attribute 'tabbar-unselected nil
                      :background "gray30"
                      :foreground "white"
                      :box '(:line-width 5 :color "gray30" :style nil))
  (set-face-attribute 'tabbar-selected nil
                      :background "gray75"
                      :foreground "black"
                      :box '(:line-width 5 :color "gray75" :style nil))
  (set-face-attribute 'tabbar-highlight nil
                      :background "white"
                      :foreground "black"
                      :underline nil
                      :box '(:line-width 5 :color "white" :style nil))
  (set-face-attribute 'tabbar-button nil
                      :box '(:line-width 1 :color "gray20" :style nil))
  (set-face-attribute 'tabbar-separator nil
                      :background "gray20"
                      :height 0.6)
  ;; Enable tabbars globally:
  (tabbar-mode 1)
  (global-set-key [(meta \9)] 'tabbar-backward-tab)
  (global-set-key [(meta \0)] 'tabbar-forward-tab)

  (setq tabbar-buffer-list-function
        (lambda ()
          (remove-if
           (lambda (buffer)
             (or
              (string-match "^\\*.*\\*.*$\\|Scratch.txt" (buffer-name buffer))
              (eql major-mode 'dired-mode))
             )
           (buffer-list))))

  (defun tabbar-buffer-groups ()
    "Return the list of group names the current buffer belongs to.
Return a list of one element based on major mode."
    (list
     (cond
      ((or (get-buffer-process (current-buffer))
           ;; Check if the major mode derives from `comint-mode' or
           ;; `compilation-mode'.
           (tabbar-buffer-mode-derived-p
            major-mode '(comint-mode compilation-mode)))
       "Process"
       )
      ((member (buffer-name)
               '("*scratch*" "*Messages*"))
       "Common"
       )
      ((eq major-mode 'dired-mode)
       "Dired"
       )
      ((memq major-mode
             '(help-mode apropos-mode Info-mode Man-mode))
       "Help"
       )
      ((memq major-mode
             '(rmail-mode
               rmail-edit-mode vm-summary-mode vm-mode mail-mode
               mh-letter-mode mh-show-mode mh-folder-mode
               gnus-summary-mode message-mode gnus-group-mode
               gnus-article-mode score-mode gnus-browse-killed-mode))
       "Mail"
       )
      ((memq major-mode
             '(ruby-mode enh-ruby-mode rhtml-mode feature-mode js2-mode js-mode
                         yaml-mode haml-mode slim-mode css-mode scss-mode coffee-mode
                         markdown-mode sql-mode html-mode handlebars-mode sh-mode
                         python-mode web-mode dockerfile-mode scss-css-mode nginx-mode
                         ))
       "Web Develop"
       )
      ((memq major-mode
             '(dev-mode emacs-lisp-mode makefile-bsdmake-mode
                        nxml-mode conf-unix-mode-hook
                        ))
       "Develop"
       )
      ((memq major-mode
             '(text-mode org-mode
                         ))
       "Text"
       )
      (t
       ;; Return `mode-name' if not blank, `major-mode' otherwise.
       (if (and (stringp mode-name)
                ;; Take care of preserving the match-data because this
                ;; function is called when updating the header line.
                (save-match-data (string-match "[^ ]" mode-name)))
           mode-name
         (symbol-name major-mode))
       ))))
  )

(provide 'tabbar_init)
;;; tabbar_init.el ends here

awesome-tray-enable messages "Enable awesome tray". I put it in my own load theme hook to have correct colors/mode line heights when changing theme, but it's annoying that everytime it messages "Enable awesome tray". I tried this:

(define-advice awesome-tray-enable (:around (fn) fix)
  "Suppress messaging."
  (cl-letf (((symbol-function 'message) #'ignore))
    (funcall fn)))

It works, but somehow it breaks the function message: when calling message, the string show for an instant, but then nil appears in the echo area. This should have something to do with awesome-tray's advices.

Could we:

• Let awesome-tray-enable do not message anything? We know it's loaded since the tray is there.
• Or have a awesome-tray-refresh function for user to put in his/her own hooks?
• Or find a way to make the above advice work without breaking message?

I'm using awesome-tray with doom-emacs and it works awesome and I love it on GUI mode. However, when starting emacs with daemon and using emacsclient to connect to it it looks like awesome-tray interferes somehow. The mini-bufer just does not stays up while I try to complete a file path on it, it keeps hiding itself as seen in the gift below. If I disable awesome-tray or instead of using emacsclient -t -a '' I use emacs -nw everything works as expected.

As title, wish that this package can be added into melpa.

By the way, thanks for making this awesome work, I have waited for a cleaner mode line for a long time, and this package fit my needs perfectly.

OS: Mac OS Big Sur 11.0.1

GNU Emacs 27.1

我在python-ts-mode 中 belong信息可以正常显示：

但是在java-ts-mode中belong信息就没有了：

上面显示是鼠标悬停在springboot 的controller类的方法中，按理belong应该返回内容的呀

大佬有空能看下吗，是不是有什么bug ？

Disabling awesome-tray makes modeline height to be 0.1pt. Documentation states that float number must be used as value for :height to apply it as scaling factor. Anyway, even 1.0 as :height value is not good, because user might have custom :height for modeline, that is exactly my situation

Thanks

I found that I use vr/replace, and my emacs output some undesirable information as follows:

So, I want to know how to prohibit this message which is often nosiy. Thanks.

The org-pomodoro clock (https://github.com/marcinkoziej/org-pomodoro) is not displayed. How would one show this (or any org-mode clock)?

与tabbar有冲突，enable awesome-tray之后，tabbar的标签变的很小。

I have tried to set the line color with (setq awesome-tray-mode-line-active-color "#7BDFCB")

When emacs starts, the line is still red and I get these warnings:

Warning: setting attribute ‘:background’ of face ‘mode-line-buffer-id’: nil value is invalid, use ‘unspecified’ instead.
AppData/Roaming/.emacs.d/awesome-tray/awesome-tray.el: Warning: Pattern t is deprecated.  Use `_' instead [2 times]
Unable to load color "color" [2 times]

edit: those errors seem to be there anyway

What is the correct way I should be setting the color?

Hi, thank for making awesome package. Can you add way to add custom module to traybar (like symon-mode). Thank a lot.

如果能根据char-width-table计算宽度就好了

如题，我打算给 awesome-tray 加一个在亮色背景下自动把文字 face 变暗的功能。我想到下面两种做法：

最简单的实现像是：

(defface awesome-tray-module-awesome-tab-face
  '((((background light))
     :foreground "#731E38" :bold t)
    (t
     :foreground "#E73C70" :bold t))
  "Awesome tab face."
  :group 'awesome-tray)

我可以用一个 darken 函数来把一个颜色变暗，但遗憾的是上述表达式中并不能用函数的返回值作为颜色，所以需要手动一个一个加上去。此外若用户自定义 face，也需要像这样手动来搞，体验不太好。

另一种办法是我们定义一堆空 face，再搞一堆 defcustom 指定各 module 在暗色主题下的前景色（或者处于「中间」的前景色，让用户指定纯度比较高的颜色，在亮暗主题下分别加暗或加亮，这可以讨论）。在 awesome-tray-enable 时根据背景的亮暗再设定 face，类似 awesome-tab 那样。但是这样阵仗有点大。

你怎么看？是否有更好一些的做法？

thoes messages need you to make choice should display in minibuffer, or you dont konw what happed .for example ,emacs is waiting for your type.

The text attributes of the active line indicator and of selected text are the same.

The selected text is always on the active line (with the exception of multi-caret selections), so it is impossible to determine which text is selected when the active line indicator option is used.

When the user chooses to have the active line indicator displayed, the selected text should automatically be modified to ensure that selected text is visibly highlighted.

Hey, when awesome-tray was enabled, the headerline of lsp-mode was messed. Here is the screenshot:

awesome-tray.el line 585, BAT need change to Battery.

If i use hotkeys (C-a C-e or M-b M-f of cursor move C-f C-b), "awesome-tray" all refresh.

Another situation for blinking - "beginning buffer" and "end of buffer". Just press 'up' in begin file, all
data in tray lost (name, mode etc).

Awesome-tab often give us a long project directory like:

Project: /home/kino/.emacs.d/straight/repos/awesome-tray/

It would be better to simply show

Project: awesome-tray

or

Project: .../s/r/awesome-tray/

In fact, I think it's better for "parent-dir" module to show .../s/r/awesome-tray, and "awesome-tab" module can show Project: awesome-tray.