update config

This commit is contained in:
2025-06-16 15:16:28 +02:00
parent b295a1328b
commit 5a1ee56a85
9 changed files with 65 additions and 30 deletions

3
init
View File

@@ -47,14 +47,13 @@
(require 'mail-settings) (require 'mail-settings)
;; languages / filetypes ;; languages / filetypes
(require 'plot-settings) ;; gnuplot-mode plantuml-mode (dash) (require 'plot-settings) ;; graphviz-dot gnuplot-mode plantuml-mode (dash)
(require 'ess-settings) ;; requires ess ess-R-data-view ctable popup (require 'ess-settings) ;; requires ess ess-R-data-view ctable popup
(require 'ledger-settings) ;; ledger-mode company-ledger (require 'ledger-settings) ;; ledger-mode company-ledger
(require 'python-settings) ;; requires anaconda-mode pythonic company-anaconda (require 'python-settings) ;; requires anaconda-mode pythonic company-anaconda
(require 'shell-settings) ;; sh-script powershell (require 'shell-settings) ;; sh-script powershell
(require 'web-settings) ;; css js2 php web-mode company-web (require 'web-settings) ;; css js2 php web-mode company-web
(require 'filetype-settings) ;; markdown sql systemd (require 'filetype-settings) ;; markdown sql systemd
(require 'dot-settings) ;; graphviz dot
(require 'polymode-settings) ;; polymode (require 'polymode-settings) ;; polymode
(require 'post-settings) (require 'post-settings)

37
scripts/test/test.org Normal file
View File

@@ -0,0 +1,37 @@
* graphviz dot
#+begin_src dot
digraph G {
main -> parse -> execute;
main -> init;
main -> cleanup;
execute -> make_string;
execute -> printf
init -> make_string;
main -> printf;
execute -> compare;
}
#+end_src
* gnuplot
#+begin_src gnuplot :results silent
reset
set title "Putting it All Together"
set xlabel "X"
set xrange [-8:8]
set xtics -8,2,8
set ylabel "Y"
set yrange [-20:70]
set ytics -20,10,70
f(x) = x**2
g(x) = x**3
h(x) = 10*sqrt(abs(x))
plot f(x) w lp lw 1, g(x) w p lw 2, h(x) w l lw 3
#+end_src

View File

@@ -1,20 +0,0 @@
;;; dot-settings.el --- dot settings -*- lexical-binding: t -*-
;;; Commentary:
;; https://orgmode.org/worg//org-contrib/babel/languages/ob-doc-dot.html
;;; Code:
(use-package graphviz-dot-mode
:after (org)
:commands graphviz-dot-mode
:mode ("\\.gv\\'" "\\.dot\\'")
:init
(setq org-src-lang-modes
(add-to-list 'org-src-lang-modes '("dot" . graphviz-dot)))
:config
(setq graphviz-dot-indent-width 2)
(setq graphviz-dot-preview-extension "svg")
(setq graphviz-dot-view-command "open %s"))
(provide 'dot-settings)
;;; dot-settings.el ends here

View File

@@ -724,6 +724,8 @@ Version 2016-07-13"
:style toggle :selected focus-mode :help "focus-mode"] :style toggle :selected focus-mode :help "focus-mode"]
["HideShow" hs-minor-mode ["HideShow" hs-minor-mode
:style toggle :selected hs-minor-mode :help "hs-minor-mode"] :style toggle :selected hs-minor-mode :help "hs-minor-mode"]
["Highlight Line" hl-line-mode
:style toggle :selected hl-line-mode :help "hl-lien-mode"]
["Horizontal Scroll Bar" horizontal-scroll-bar-mode ["Horizontal Scroll Bar" horizontal-scroll-bar-mode
:style toggle :selected horizontal-scroll-bar-mode :help "horizontal-scroll-bar-mode"] :style toggle :selected horizontal-scroll-bar-mode :help "horizontal-scroll-bar-mode"]
;; ["Ido" ido-mode ;; ["Ido" ido-mode

View File

@@ -8,7 +8,20 @@
;; plantuml-mode https://melpa.org/#/plantuml-mode https://github.com/skuro/plantuml-mode ;; plantuml-mode https://melpa.org/#/plantuml-mode https://github.com/skuro/plantuml-mode
;; dash ;; dash
;; https://orgmode.org/worg//org-contrib/babel/languages/ob-doc-dot.html
;;; Code: ;;; Code:
(use-package graphviz-dot-mode
:commands graphviz-dot-mode
:mode ("\\.gv\\'" "\\.dot\\'")
:init
(with-eval-after-load 'org-src
(add-to-list 'org-src-lang-modes '("dot" . graphviz-dot)))
:config
(setq graphviz-dot-indent-width 2)
(setq graphviz-dot-preview-extension "svg")
(setq graphviz-dot-view-command "open %s"))
(use-package gnuplot (use-package gnuplot
:commands gnuplot-mode :commands gnuplot-mode
:mode "\\.gp\\'") :mode "\\.gp\\'")
@@ -18,13 +31,14 @@
:commands gnuplot-context-sensitive-mode) :commands gnuplot-context-sensitive-mode)
(use-package plantuml-mode (use-package plantuml-mode
:commands (plantuml-mode org-mode) :commands (plantuml-mode)
:init
(with-eval-after-load 'org-src
(add-to-list 'org-src-lang-modes '("plantuml" . plantuml)))
:config :config
;; arch linux aur package path ;; arch linux aur package path
(setq plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar") (setq plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar")
(setq org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar") (setq org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar"))
(with-eval-after-load 'org-src
(setq org-src-lang-modes (add-to-list 'org-src-lang-modes '("plantuml" . plantuml)))))
(provide 'plot-settings) (provide 'plot-settings)
;;; plot-settings.el ends here ;;; plot-settings.el ends here

View File

@@ -16,7 +16,8 @@
(require 'use-package)) ;; requires bind-key (require 'use-package)) ;; requires bind-key
(setq use-package-verbose t) (setq use-package-verbose t)
(setq use-package-compute-statistics t) (setq use-package-compute-statistics t)
(use-package delight) ;; used for use-package :delight, see delight-delighted-modes (use-package delight
:defer t) ;; used for use-package :delight, see delight-delighted-modes, defer b/c of awesome-tray
;; ;;
;; functions ;; functions

View File

@@ -6,7 +6,7 @@
("<up>" . comint-previous-input) ("<up>" . comint-previous-input)
("<down>" . comint-next-input))) ("<down>" . comint-next-input)))
(use-package sh-script (use-package sh-script ;; built-in
:defer t :defer t
:config :config
(setq sh-basic-offset 2)) (setq sh-basic-offset 2))

View File

@@ -13,7 +13,7 @@
;;; Code: ;;; Code:
(use-package css-mode (use-package css-mode
:defer t :commands css-mode
:config :config
(setq css-indent-offset 2)) (setq css-indent-offset 2))

View File

@@ -11,12 +11,14 @@
(use-package which-key (use-package which-key
:delight (which-key-mode "K") ;; \u24C0 K :delight (which-key-mode "K") ;; \u24C0 K
:init :init
(setq which-key-idle-delay 1.0) (setq which-key-idle-delay 0.75)
(setq which-key-idle-secondary-delay 0.05) (setq which-key-idle-secondary-delay 0.05)
;;(setq which-key-unicode-correction 3) ;;(setq which-key-unicode-correction 3)
(when (daemonp) (when (daemonp)
;; problem if using unicodes and emacsclient, the last line of which-key side-frame is cropped. ;; problem if using unicodes and emacsclient, the last line of which-key side-frame is cropped.
(setq which-key-dont-use-unicode t)) (setq which-key-dont-use-unicode t))
;; :hook (after-init . which-key-mode)
;; :hook (before-init . which-key-mode)
:config :config
(which-key-mode) (which-key-mode)
(setq which-key-allow-multiple-replacements t) (setq which-key-allow-multiple-replacements t)