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

Compare commits

base: daniel:3a0b45f037a812c78f610b7009dc4c561e7d8bb5
Branches Tags
daniel:master daniel:pkgs-update
...
compare: daniel:b295a1328b6a781c5437ac6d328e8701960e5720
Branches Tags
daniel:master daniel:pkgs-update

3 Commits
3a0b45f037 ... b295a1328b

Author SHA1 Message Date
Daniel Weschke
b295a1328b add focus mode in menu 2025-06-15 22:56:42 +02:00
Daniel Weschke
79b15d7822 add function to get filename of buffer 2025-06-15 22:55:25 +02:00
Daniel Weschke
a310ee8795 update/fix dashboard 2025-06-15 22:54:08 +02:00
4 changed files with 112 additions and 53 deletions
Expand all files Collapse all files

16
lisp/my/my.el
View File

@@ -282,6 +282,22 @@ Examples:
(my-interpolate (nth 2 (car rgbsteps)) (nth 2 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))
(my-interpolate (nth 3 (car rgbsteps)) (nth 3 (cadr rgbsteps)) position (caar rgbsteps) (caadr rgbsteps))))))
(defun my-filename ()
"Copy the full path of the current buffer into the `kill-ring' and
print it in the message buffer."
(interactive)
(let ((fn (buffer-file-name (window-buffer (minibuffer-selected-window)))))
(kill-new fn)
(message fn)))
(defun my-filename-basename ()
"Copy the basename of the current buffer into the `kill-ring' and
print it in the message buffer."
(interactive)
(let ((fn (file-name-nondirectory (my-filename))))
(kill-new fn)
(message fn)))
(defun my-gui-elements-toggle ()
"Function to toggle gui elements on/off."
(interactive)

2
settings/general-settings.el
View File

@@ -720,6 +720,8 @@ Version 2016-07-13"
:style toggle :selected flycheck-mode :help "flycheck-mode"] ;; flymake supports less languages
["Flyspell" flyspell-mode
:style toggle :selected flyspell-mode :help "flyspell-mode"] ;; uses ispell
["Focus" focus-mode
:style toggle :selected focus-mode :help "focus-mode"]
["HideShow" hs-minor-mode
:style toggle :selected hs-minor-mode :help "hs-minor-mode"]
["Horizontal Scroll Bar" horizontal-scroll-bar-mode

145
settings/gui-settings.el
View File

@@ -105,6 +105,11 @@ DISPLAY-START: `integer', e.g. 3820"
(use-package tab-bar
:defer 0.5
:bind ((:map global-map
(("s-{" . tab-bar-switch-to-prev-tab)
("s-}" . tab-bar-switch-to-next-tab)
("s-t" . tab-bar-new-tab)
("s-w" . tab-bar-close-tab))))
:config
(add-to-list 'tab-bar-format #'tab-bar-format-menu-bar)
(tab-bar-mode)
@@ -230,6 +235,7 @@ DISPLAY-START: `integer', e.g. 3820"
:delight (dashboard-mode "Db") ;; "\u01F153
:config
;; see `dashboad-widget'
(setq dashboard-icon-type 'all-the-icons)
(setq dashboard-page-separator "\n\f\n")
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
@@ -240,60 +246,95 @@ DISPLAY-START: `integer', e.g. 3820"
(agenda . "calendar")
(projects . "rocket")
(registers . "database")))
(setq dashboard-startupify-list
'(dashboard-insert-banner
dashboard-insert-newline
dashboard-insert-banner-title
dashboard-insert-newline
dashboard-insert-init-info
dashboard-insert-newline
dashboard-insert-newline
dashboard-insert-navigator
dashboard-insert-items
dashboard-insert-newline
dashboard-insert-footer))
(if (display-graphic-p)
(require 'all-the-icons)
(let ()
(require 'all-the-icons)
(setq dashboard-navigator-buttons
;; list of lines having list of elements
;; element: (icon title help action face prefix suffix)
;; |------------------------- icon --------------------------------------|---- title ----|------ help ---------|------------- action ---------------------------------------|-face--|prefix|suffix|
`(;; 1st line custom views
(("" "" "space" nil default "" "")
("" "Custom Views:" "custom views" nil default "" "")
(,(all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1) "ELisp" "my-view-elisp" (lambda (&rest _) (my-tab-view-elisp)) dashboard-navigator "" "")
(,(all-the-icons-alltheicon "python" :height 1.0 :v-adjust 0.0) "Python" "my-view-python" (lambda (&rest _) (my-tab-view-python)) dashboard-navigator "" "")
(,(all-the-icons-alltheicon "script" :height 1.0 :v-adjust 0.0) "Shell" "my-view-shell" (lambda (&rest _) (my-tab-view-shell)) dashboard-navigator "" "")
(,(all-the-icons-octicon "file-media" :height 1.0 :v-adjust 0.0) "Gnuplot" "my-view-gnuplot" (lambda (&rest _) (my-tab-view-gnuplot)) dashboard-navigator "" "")
(,(all-the-icons-octicon "file-pdf" :height 1.0 :v-adjust 0.0) "Org-PDF" "my-view-org-pdf" (lambda (&rest _) (my-tab-view-org-pdf)) dashboard-navigator "" "")
)
;; 2nd line major modes 1st part
(("" "" "space" nil default "" "")
("" "Major Modes:" "major modes" nil default "" "")
("" "Deft" "deft" (lambda (&rest _) (deft)) dashboard-navigator "" "")
("" "EShell" "eshell-mode" (lambda (&rest _) (eshell)) dashboard-navigator "" "")
("" "Magit" "magit" (lambda (&rest _) (magit)) dashboard-navigator "" "")
(,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0) "Mu4e" "mu4e" (lambda (&rest _) (mu4e)) dashboard-navigator "" "")
(,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0) "Notmuch" "notmuch" (lambda (&rest _) (notmuch)) dashboard-navigator "" "")
("" "Org-Brain" "org-brain-visualize" (lambda (&rest _) (call-interactively 'org-brain-visualize)) dashboard-navigator "" "")
)
;; 3rd line major modes 2nd part
(("" "" "space" nil default "" "")
("" "Org-Drill" "org-drill" (lambda (&rest _) (org-drill)) dashboard-navigator "" "")
("" "Org-Roam" "org-raom-node-find" (lambda (&rest _) (org-roam-node-find nil "index")) dashboard-navigator "" "")
("" "Powershell" "powershell" (lambda (&rest _) (powershell)) dashboard-navigator "" "")
("" "Shell" "shell" (lambda (&rest _) (shell)) dashboard-navigator "" "")
("" "Treemacs" "treemacs" (lambda (&rest _) (treemacs)) dashboard-navigator "" "")
)
;; 4th line infos
(("" "" "space" nil default "" "")
(,(all-the-icons-material "help_outline" :height 1.1 :v-adjust -0.15) "Help" "?/h" (lambda (&rest _) (describe-mode)) dashboard-navigator "" "")
(,(all-the-icons-material "help_outline" :height 1.1 :v-adjust -0.15) "My-Help" "my-help" (lambda (&rest _) (my-help)) dashboard-navigator "" "")
(,(all-the-icons-material "refresh" :height 1.1 :v-adjust -0.15) "Restart" "restart-emacs" (lambda (&rest _) (restart-emacs)) dashboard-navigator "" "")
))))
(let ()
(setq dashboard-navigator-buttons
;; list of lines having list of elements
;; element: (icon title help action face prefix suffix)
`(;; 1st line custom views
(("" "Custom Views:" "custom views" nil default "" "")
(,(all-the-icons-fileicon "elisp" :height 1.0 :v-adjust -0.1) "ELisp" "my-view-elisp" (lambda (&rest _) (my-tab-view-elisp)) )
(,(all-the-icons-alltheicon "python" :height 1.0 :v-adjust 0.0) "Python" "my-view-python" (lambda (&rest _) (my-tab-view-python)) )
(,(all-the-icons-alltheicon "script" :height 1.0 :v-adjust 0.0) "Shell" "my-view-shell" (lambda (&rest _) (my-tab-view-shell)) )
(,(all-the-icons-octicon "file-media" :height 1.0 :v-adjust 0.0) "Gnuplot" "my-view-gnuplot" (lambda (&rest _) (my-tab-view-gnuplot)) )
(,(all-the-icons-octicon "file-pdf" :height 1.0 :v-adjust 0.0) "Org PDF" "my-view-org-pdf" (lambda (&rest _) (my-tab-view-org-pdf)) ))
;; 2nd line major modes 1st part
(("" "Major Modes:" "major modes" nil default "" "")
("" "Deft" "deft" (lambda (&rest _) (deft)) )
("" "EShell" "eshell-mode" (lambda (&rest _) (eshell)) )
("" "Magit" "magit" (lambda (&rest _) (magit)) )
(,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0) "Mu4e" "mu4e" (lambda (&rest _) (mu4e)) )
(,(all-the-icons-octicon "mail" :height 1.0 :v-adjust 0.0) "Notmuch" "notmuch" (lambda (&rest _) (notmuch)) )
("" "Org-Brain" "org-brain-visualize" (lambda (&rest _) (call-interactively 'org-brain-visualize)) ))
;; 3rd line major modes 2nd part
(("" "Org-Drill" "org-drill" (lambda (&rest _) (org-drill)) )
("" "Powershell" "powershell" (lambda (&rest _) (powershell)) )
("" "Shell" "shell" (lambda (&rest _) (shell)) )
("" "Treemacs" "treemacs" (lambda (&rest _) (treemacs)) ))
;; 4th line infos
((,(all-the-icons-material "help_outline" :height 1.1 :v-adjust -0.15) "Help" "?/h" (lambda (&rest _) (describe-mode)) nil)
(,(all-the-icons-material "refresh" :height 1.1 :v-adjust -0.15) "Restart" "restart-emacs" (lambda (&rest _) (restart-emacs)) nil))))
(setq dashboard-navigator-buttons
;; list of lines having list of elements
;; element: (icon title help action face prefix suffix)
`(;; 1st line custom views
(("" "Custom Views:" "custom views" nil default "" "")
("" "ELisp" "my-view-elisp" (lambda (&rest _) (my-tab-view-elisp)) )
("" "Python" "my-view-python" (lambda (&rest _) (my-tab-view-python)) )
("" "Shell" "my-view-shell" (lambda (&rest _) (my-tab-view-shell)) )
("" "Gnuplot" "my-view-gnuplot" (lambda (&rest _) (my-tab-view-gnuplot)) )
("" "Org PDF" "my-view-org-pdf" (lambda (&rest _) (my-tab-view-org-pdf)) ))
;; 2nd line major modes 1st part
(("" "Major Modes:" "major modes" nil default "" "")
("" "Deft" "deft" (lambda (&rest _) (deft)) )
("" "EShell" "eshell-mode" (lambda (&rest _) (eshell)) )
("" "Magit" "magit" (lambda (&rest _) (magit)) )
("" "Mu4e" "mu4e" (lambda (&rest _) (mu4e)) )
("" "Notmuch" "notmuch" (lambda (&rest _) (notmuch)) )
("" "Org-Brain" "org-brain-visualize" (lambda (&rest _) (call-interactively 'org-brain-visualize)) ))
;; 3rd line major modes 2nd part
(("" "Org-Drill" "org-drill" (lambda (&rest _) (org-drill)) )
("" "Powershell" "powershell" (lambda (&rest _) (powershell)) )
("" "Shell" "shell" (lambda (&rest _) (shell)) )
("" "Treemacs" "treemacs" (lambda (&rest _) (treemacs)) ))
;; 4th line infos
(("" "Help" "?/h" (lambda (&rest _) (describe-mode)) nil)
("" "Restart" "restart-emacs" (lambda (&rest _) (restart-emacs)) nil)))))
;; list of lines having list of elements
;; element: (icon title help action face prefix suffix)
`(;; 1st line custom views
(("" "" "space" nil default "" "")
("" "Custom Views:" "custom views" nil default "" "")
("" "ELisp" "my-view-elisp" (lambda (&rest _) (my-tab-view-elisp)) dashboard-navigator "" "")
("" "Python" "my-view-python" (lambda (&rest _) (my-tab-view-python)) dashboard-navigator "" "")
("" "Shell" "my-view-shell" (lambda (&rest _) (my-tab-view-shell)) dashboard-navigator "" "")
("" "Gnuplot" "my-view-gnuplot" (lambda (&rest _) (my-tab-view-gnuplot)) dashboard-navigator "" "")
("" "Org-PDF" "my-view-org-pdf" (lambda (&rest _) (my-tab-view-org-pdf)) dashboard-navigator "" "")
)
;; 2nd line major modes 1st part
(("" "" "space" nil default "" "")
("" "Major Modes:" "major modes" nil default "" "")
("" "Deft" "deft" (lambda (&rest _) (deft)) dashboard-navigator "" "")
("" "EShell" "eshell-mode" (lambda (&rest _) (eshell)) dashboard-navigator "" "")
("" "Magit" "magit" (lambda (&rest _) (magit)) dashboard-navigator "" "")
("" "Mu4e" "mu4e" (lambda (&rest _) (mu4e)) dashboard-navigator "" "")
("" "Notmuch" "notmuch" (lambda (&rest _) (notmuch)) dashboard-navigator "" "")
("" "Org-Brain" "org-brain-visualize" (lambda (&rest _) (call-interactively 'org-brain-visualize)) dashboard-navigator "" "")
)
;; 3rd line major modes 2nd part
(("" "" "space" nil default "" "")
("" "Org-Drill" "org-drill" (lambda (&rest _) (org-drill)) dashboard-navigator "" "")
("" "Org-Roam" "org-raom-node-find" (lambda (&rest _) (org-roam-node-find nil "index")) dashboard-navigator "" "")
("" "Powershell" "powershell" (lambda (&rest _) (powershell)) dashboard-navigator "" "")
("" "Shell" "shell" (lambda (&rest _) (shell)) dashboard-navigator "" "")
("" "Treemacs" "treemacs" (lambda (&rest _) (treemacs)) dashboard-navigator "" "")
)
;; 4th line infos
(("" "" "space" nil default "" "")
("" "Help" "?/h" (lambda (&rest _) (describe-mode)) dashboard-navigator "" "")
("" "My-Help" "my-help" (lambda (&rest _) (my-help)) dashboard-navigator "" "")
("" "Restart" "restart-emacs" (lambda (&rest _) (restart-emacs)) dashboard-navigator "" "")
)))))
(setq dashboard-items '((recents . 10)
(bookmarks . 5)
;; (projects . 5)

2
settings/shell-settings.el
View File

@@ -12,7 +12,7 @@
(setq sh-basic-offset 2))
(use-package powershell ;; https://melpa.org/#/powershell
:commands powershell-mode)
:commands (powershell powershell-mode))
(use-package eshell-mode
:defer t