;; -*- mode: emacs-lisp; lexical-binding: t -*- ;; This file is loaded by Spacemacs at startup. ;; It must be stored in your home directory. (defun dotspacemacs/layers () "Layer configuration: This function should only modify configuration layer settings." (setq-default ;; Base distribution to use. This is a layer contained in the directory ;; `+distribution'. For now available distributions are `spacemacs-base' ;; or `spacemacs'. (default 'spacemacs) dotspacemacs-distribution 'spacemacs ;; Lazy installation of layers (i.e. layers are installed only when a file ;; with a supported type is opened). Possible values are `all', `unused' ;; and `nil'. `unused' will lazy install only unused layers (i.e. layers ;; not listed in variable `dotspacemacs-configuration-layers'), `all' will ;; lazy install any layer that support lazy installation even the layers ;; listed in `dotspacemacs-configuration-layers'. `nil' disable the lazy ;; installation feature and you have to explicitly list a layer in the ;; variable `dotspacemacs-configuration-layers' to install it. ;; (default 'unused) dotspacemacs-enable-lazy-installation 'unused ;; If non-nil then Spacemacs will ask for confirmation before installing ;; a layer lazily. (default t) dotspacemacs-ask-for-lazy-installation t ;; List of additional paths where to look for configuration layers. ;; Paths must have a trailing slash (i.e. "~/.mycontribs/") dotspacemacs-configuration-layer-path '() ;; List of configuration layers to load. dotspacemacs-configuration-layers '(swift shell yaml themes-megapack nginx toml html python javascript pandoc ;; ---------------------------------------------------------------- ;; Example of useful layers you may want to use right away. ;; Uncomment some layer names and press `SPC f e R' (Vim style) or ;; `M-m f e R' (Emacs style) to install them. ;; ---------------------------------------------------------------- auto-completion (auto-completion :variables auto-completion-enable-snippets-in-popup t auto-completion-enable-help-tooltip t auto-completion-use-company-box t auto-completion-enable-sort-by-usage t) ;; better-defaults emacs-lisp git helm lsp markdown multiple-cursors org (org :variables org-enable-bootstrap-support t org-enable-jira-support t ;; org-enable-roam-support t ;; org-enable-roam-ui t ;; org-roam-completion-everywhere t ;; this does not work weel with my current font ;; org-enable-modern-support t ) ;; (shell :variables ;; shell-default-height 30 ;; shell-default-position 'bottom) ;; spell-checking syntax-checking ;; version-control treemacs docker terraform ) ;; List of additional packages that will be installed without being wrapped ;; in a layer (generally the packages are installed only and should still be ;; loaded using load/require/use-package in the user-config section below in ;; this file). If you need some configuration for these packages, then ;; consider creating a layer. You can also put the configuration in ;; `dotspacemacs/user-config'. To use a local version of a package, use the ;; `:location' property: '(your-package :location "~/path/to/your-package/") ;; Also include the dependencies as they will not be resolved automatically. ;; as ofr Oct2024, MS Outlook does not support getting selected message via AppleScript ;; more here: https://forum.keyboardmaestro.com/t/new-outlook-applescript/31296 dotspacemacs-additional-packages '( org-mac-link org-alert ;org-caldav ;org-protocol ) ;; A list of packages that cannot be updated. dotspacemacs-frozen-packages '() ;; A list of packages that will not be installed and loaded. dotspacemacs-excluded-packages '() ;; Defines the behaviour of Spacemacs when installing packages. ;; Possible values are `used-only', `used-but-keep-unused' and `all'. ;; `used-only' installs only explicitly used packages and deletes any unused ;; packages as well as their unused dependencies. `used-but-keep-unused' ;; installs only the used packages but won't delete unused ones. `all' ;; installs *all* packages supported by Spacemacs and never uninstalls them. ;; (default is `used-only') dotspacemacs-install-packages 'used-only)) (defun dotspacemacs/init () "Initialization: This function is called at the very beginning of Spacemacs startup, before layer configuration. It should only modify the values of Spacemacs settings." ;; This setq-default sexp is an exhaustive list of all the supported ;; spacemacs settings. (setq-default ;; If non-nil then enable support for the portable dumper. You'll need to ;; compile Emacs 27 from source following the instructions in file ;; EXPERIMENTAL.org at to root of the git repository. ;; ;; WARNING: pdumper does not work with Native Compilation, so it's disabled ;; regardless of the following setting when native compilation is in effect. ;; ;; (default nil) dotspacemacs-enable-emacs-pdumper nil ;; Name of executable file pointing to emacs 27+. This executable must be ;; in your PATH. ;; (default "emacs") dotspacemacs-emacs-pdumper-executable-file "emacs" ;; Name of the Spacemacs dump file. This is the file will be created by the ;; portable dumper in the cache directory under dumps sub-directory. ;; To load it when starting Emacs add the parameter `--dump-file' ;; when invoking Emacs 27.1 executable on the command line, for instance: ;; ./emacs --dump-file=$HOME/.emacs.d/.cache/dumps/spacemacs-27.1.pdmp ;; (default (format "spacemacs-%s.pdmp" emacs-version)) dotspacemacs-emacs-dumper-dump-file (format "spacemacs-%s.pdmp" emacs-version) ;; Maximum allowed time in seconds to contact an ELPA repository. ;; (default 5) dotspacemacs-elpa-timeout 5 ;; Set `gc-cons-threshold' and `gc-cons-percentage' when startup finishes. ;; This is an advanced option and should not be changed unless you suspect ;; performance issues due to garbage collection operations. ;; (default '(100000000 0.1)) dotspacemacs-gc-cons '(100000000 0.1) ;; Set `read-process-output-max' when startup finishes. ;; This defines how much data is read from a foreign process. ;; Setting this >= 1 MB should increase performance for lsp servers ;; in emacs 27. ;; (default (* 1024 1024)) dotspacemacs-read-process-output-max (* 1024 1024) ;; If non-nil then Spacelpa repository is the primary source to install ;; a locked version of packages. If nil then Spacemacs will install the ;; latest version of packages from MELPA. Spacelpa is currently in ;; experimental state please use only for testing purposes. ;; (default nil) dotspacemacs-use-spacelpa nil ;; If non-nil then verify the signature for downloaded Spacelpa archives. ;; (default t) dotspacemacs-verify-spacelpa-archives t ;; If non-nil then spacemacs will check for updates at startup ;; when the current branch is not `develop'. Note that checking for ;; new versions works via git commands, thus it calls GitHub services ;; whenever you start Emacs. (default nil) dotspacemacs-check-for-update nil ;; If non-nil, a form that evaluates to a package directory. For example, to ;; use different package directories for different Emacs versions, set this ;; to `emacs-version'. (default 'emacs-version) dotspacemacs-elpa-subdirectory 'emacs-version ;; One of `vim', `emacs' or `hybrid'. ;; `hybrid' is like `vim' except that `insert state' is replaced by the ;; `hybrid state' with `emacs' key bindings. The value can also be a list ;; with `:variables' keyword (similar to layers). Check the editing styles ;; section of the documentation for details on available variables. ;; (default 'vim) dotspacemacs-editing-style 'vim ;; If non-nil show the version string in the Spacemacs buffer. It will ;; appear as (spacemacs version)@(emacs version) ;; (default t) dotspacemacs-startup-buffer-show-version t ;; Specify the startup banner. Default value is `official', it displays ;; the official spacemacs logo. An integer value is the index of text ;; banner, `random' chooses a random text banner in `core/banners' ;; directory. A string value must be a path to an image format supported ;; by your Emacs build. ;; If the value is nil then no banner is displayed. (default 'official) dotspacemacs-startup-banner 'official ;; Scale factor controls the scaling (size) of the startup banner. Default ;; value is `auto' for scaling the logo automatically to fit all buffer ;; contents, to a maximum of the full image height and a minimum of 3 line ;; heights. If set to a number (int or float) it is used as a constant ;; scaling factor for the default logo size. dotspacemacs-startup-banner-scale 'auto ;; List of items to show in startup buffer or an association list of ;; the form `(list-type . list-size)`. If nil then it is disabled. ;; Possible values for list-type are: ;; `recents' `recents-by-project' `bookmarks' `projects' `agenda' `todos'. ;; List sizes may be nil, in which case ;; `spacemacs-buffer-startup-lists-length' takes effect. ;; The exceptional case is `recents-by-project', where list-type must be a ;; pair of numbers, e.g. `(recents-by-project . (7 . 5))', where the first ;; number is the project limit and the second the limit on the recent files ;; within a project. dotspacemacs-startup-lists '((recents . 5) (projects . 7)) ;; True if the home buffer should respond to resize events. (default t) dotspacemacs-startup-buffer-responsive t ;; Show numbers before the startup list lines. (default t) dotspacemacs-show-startup-list-numbers t ;; The minimum delay in seconds between number key presses. (default 0.4) dotspacemacs-startup-buffer-multi-digit-delay 0.4 ;; If non-nil, show file icons for entries and headings on Spacemacs home buffer. ;; This has no effect in terminal or if "all-the-icons" package or the font ;; is not installed. (default nil) dotspacemacs-startup-buffer-show-icons nil ;; Default major mode for a new empty buffer. Possible values are mode ;; names such as `text-mode'; and `nil' to use Fundamental mode. ;; (default `text-mode') dotspacemacs-new-empty-buffer-major-mode 'text-mode ;; Default major mode of the scratch buffer (default `text-mode') dotspacemacs-scratch-mode 'text-mode ;; If non-nil, *scratch* buffer will be persistent. Things you write down in ;; *scratch* buffer will be saved and restored automatically. dotspacemacs-scratch-buffer-persistent nil ;; If non-nil, `kill-buffer' on *scratch* buffer ;; will bury it instead of killing. dotspacemacs-scratch-buffer-unkillable nil ;; Initial message in the scratch buffer, such as "Welcome to Spacemacs!" ;; (default nil) dotspacemacs-initial-scratch-message nil ;; List of themes, the first of the list is loaded when spacemacs starts. ;; Press `SPC T n' to cycle to the next theme in the list (works great ;; with 2 themes variants, one dark and one light) dotspacemacs-themes '(spacemacs-dark spacemacs-light) ;; Set the theme for the Spaceline. Supported themes are `spacemacs', ;; `all-the-icons', `custom', `doom', `vim-powerline' and `vanilla'. The ;; first three are spaceline themes. `doom' is the doom-emacs mode-line. ;; `vanilla' is default Emacs mode-line. `custom' is a user defined themes, ;; refer to the DOCUMENTATION.org for more info on how to create your own ;; spaceline theme. Value can be a symbol or list with additional properties. ;; (default '(spacemacs :separator wave :separator-scale 1.5)) dotspacemacs-mode-line-theme '(spacemacs :separator wave :separator-scale 1.5) ;; If non-nil the cursor color matches the state color in GUI Emacs. ;; (default t) dotspacemacs-colorize-cursor-according-to-state t ;; Default font or prioritized list of fonts. This setting has no effect when ;; running Emacs in terminal. The font set here will be used for default and ;; fixed-pitch faces. The `:size' can be specified as ;; a non-negative integer (pixel size), or a floating-point (point size). ;; Point size is recommended, because it's device independent. (default 10.0) ;; commented out on 30.7.2025 - seems not to have effect ;; dotspacemacs-default-font '("Source Code Pro for Powerline" ;; :height 180 ;; :weight normal ;; :width normal) ;; The leader key (default "SPC") dotspacemacs-leader-key "SPC" ;; The key used for Emacs commands `M-x' (after pressing on the leader key). ;; (default "SPC") dotspacemacs-emacs-command-key "SPC" ;; The key used for Vim Ex commands (default ":") dotspacemacs-ex-command-key ":" ;; The leader key accessible in `emacs state' and `insert state' ;; (default "M-m") dotspacemacs-emacs-leader-key "M-m" ;; Major mode leader key is a shortcut key which is the equivalent of ;; pressing ` m`. Set it to `nil` to disable it. (default ",") dotspacemacs-major-mode-leader-key "," ;; Major mode leader key accessible in `emacs state' and `insert state'. ;; (default "C-M-m" for terminal mode, "" for GUI mode). ;; Thus M-RET should work as leader key in both GUI and terminal modes. ;; C-M-m also should work in terminal mode, but not in GUI mode. dotspacemacs-major-mode-emacs-leader-key (if window-system "" "C-M-m") ;; These variables control whether separate commands are bound in the GUI to ;; the key pairs `C-i', `TAB' and `C-m', `RET'. ;; Setting it to a non-nil value, allows for separate commands under `C-i' ;; and TAB or `C-m' and `RET'. ;; In the terminal, these pairs are generally indistinguishable, so this only ;; works in the GUI. (default nil) dotspacemacs-distinguish-gui-tab nil ;; Name of the default layout (default "Default") dotspacemacs-default-layout-name "Default" ;; If non-nil the default layout name is displayed in the mode-line. ;; (default nil) dotspacemacs-display-default-layout nil ;; If non-nil then the last auto saved layouts are resumed automatically upon ;; start. (default nil) dotspacemacs-auto-resume-layouts t ;; If non-nil, auto-generate layout name when creating new layouts. Only has ;; effect when using the "jump to layout by number" commands. (default nil) dotspacemacs-auto-generate-layout-names nil ;; Size (in MB) above which spacemacs will prompt to open the large file ;; literally to avoid performance issues. Opening a file literally means that ;; no major mode or minor modes are active. (default is 1) dotspacemacs-large-file-size 1 ;; Location where to auto-save files. Possible values are `original' to ;; auto-save the file in-place, `cache' to auto-save the file to another ;; file stored in the cache directory and `nil' to disable auto-saving. ;; (default 'cache) dotspacemacs-auto-save-file-location 'cache ;; Maximum number of rollback slots to keep in the cache. (default 5) dotspacemacs-max-rollback-slots 5 ;; If non-nil, the paste transient-state is enabled. While enabled, after you ;; paste something, pressing `C-j' and `C-k' several times cycles through the ;; elements in the `kill-ring'. (default nil) dotspacemacs-enable-paste-transient-state nil ;; Which-key delay in seconds. The which-key buffer is the popup listing ;; the commands bound to the current keystroke sequence. (default 0.4) dotspacemacs-which-key-delay 0.4 ;; Which-key frame position. Possible values are `right', `bottom' and ;; `right-then-bottom'. right-then-bottom tries to display the frame to the ;; right; if there is insufficient space it displays it at the bottom. ;; It is also possible to use a posframe with the following cons cell ;; `(posframe . position)' where position can be one of `center', ;; `top-center', `bottom-center', `top-left-corner', `top-right-corner', ;; `top-right-corner', `bottom-left-corner' or `bottom-right-corner' ;; (default 'bottom) dotspacemacs-which-key-position 'bottom ;; Control where `switch-to-buffer' displays the buffer. If nil, ;; `switch-to-buffer' displays the buffer in the current window even if ;; another same-purpose window is available. If non-nil, `switch-to-buffer' ;; displays the buffer in a same-purpose window even if the buffer can be ;; displayed in the current window. (default nil) dotspacemacs-switch-to-buffer-prefers-purpose nil ;; Whether side windows (such as those created by treemacs or neotree) ;; are kept or minimized by `spacemacs/toggle-maximize-window' (SPC w m). ;; (default t) dotspacemacs-maximize-window-keep-side-windows t ;; If non-nil a progress bar is displayed when spacemacs is loading. This ;; may increase the boot time on some systems and emacs builds, set it to ;; nil to boost the loading time. (default t) dotspacemacs-loading-progress-bar t ;; If non-nil the frame is fullscreen when Emacs starts up. (default nil) ;; (Emacs 24.4+ only) dotspacemacs-fullscreen-at-startup nil ;; If non-nil `spacemacs/toggle-fullscreen' will not use native fullscreen. ;; Use to disable fullscreen animations in OSX. (default nil) dotspacemacs-fullscreen-use-non-native nil ;; If non-nil the frame is maximized when Emacs starts up. ;; Takes effect only if `dotspacemacs-fullscreen-at-startup' is nil. ;; (default t) (Emacs 24.4+ only) dotspacemacs-maximized-at-startup t ;; If non-nil the frame is undecorated when Emacs starts up. Combine this ;; variable with `dotspacemacs-maximized-at-startup' to obtain fullscreen ;; without external boxes. Also disables the internal border. (default nil) dotspacemacs-undecorated-at-startup nil ;; A value from the range (0..100), in increasing opacity, which describes ;; the transparency level of a frame when it's active or selected. ;; Transparency can be toggled through `toggle-transparency'. (default 90) dotspacemacs-active-transparency 90 ;; A value from the range (0..100), in increasing opacity, which describes ;; the transparency level of a frame when it's inactive or deselected. ;; Transparency can be toggled through `toggle-transparency'. (default 90) dotspacemacs-inactive-transparency 90 ;; A value from the range (0..100), in increasing opacity, which describes the ;; transparency level of a frame background when it's active or selected. Transparency ;; can be toggled through `toggle-background-transparency'. (default 90) dotspacemacs-background-transparency 90 ;; If non-nil show the titles of transient states. (default t) dotspacemacs-show-transient-state-title t ;; If non-nil show the color guide hint for transient state keys. (default t) dotspacemacs-show-transient-state-color-guide t ;; If non-nil unicode symbols are displayed in the mode line. ;; If you use Emacs as a daemon and wants unicode characters only in GUI set ;; the value to quoted `display-graphic-p'. (default t) dotspacemacs-mode-line-unicode-symbols t ;; If non-nil smooth scrolling (native-scrolling) is enabled. Smooth ;; scrolling overrides the default behavior of Emacs which recenters point ;; when it reaches the top or bottom of the screen. (default t) dotspacemacs-smooth-scrolling t ;; Show the scroll bar while scrolling. The auto hide time can be configured ;; by setting this variable to a number. (default t) dotspacemacs-scroll-bar-while-scrolling t ;; Control line numbers activation. ;; If set to `t', `relative' or `visual' then line numbers are enabled in all ;; `prog-mode' and `text-mode' derivatives. If set to `relative', line ;; numbers are relative. If set to `visual', line numbers are also relative, ;; but only visual lines are counted. For example, folded lines will not be ;; counted and wrapped lines are counted as multiple lines. ;; This variable can also be set to a property list for finer control: ;; '(:relative nil ;; :visual nil ;; :disabled-for-modes dired-mode ;; doc-view-mode ;; markdown-mode ;; org-mode ;; pdf-view-mode ;; text-mode ;; :size-limit-kb 1000) ;; When used in a plist, `visual' takes precedence over `relative'. ;; (default nil) dotspacemacs-line-numbers nil ;; Code folding method. Possible values are `evil', `origami' and `vimish'. ;; (default 'evil) dotspacemacs-folding-method 'evil ;; If non-nil and `dotspacemacs-activate-smartparens-mode' is also non-nil, ;; `smartparens-strict-mode' will be enabled in programming modes. ;; (default nil) dotspacemacs-smartparens-strict-mode nil ;; If non-nil smartparens-mode will be enabled in programming modes. ;; (default t) dotspacemacs-activate-smartparens-mode t ;; If non-nil pressing the closing parenthesis `)' key in insert mode passes ;; over any automatically added closing parenthesis, bracket, quote, etc... ;; This can be temporary disabled by pressing `C-q' before `)'. (default nil) dotspacemacs-smart-closing-parenthesis nil ;; Select a scope to highlight delimiters. Possible values are `any', ;; `current', `all' or `nil'. Default is `all' (highlight any scope and ;; emphasis the current one). (default 'all) dotspacemacs-highlight-delimiters 'all ;; If non-nil, start an Emacs server if one is not already running. ;; (default nil) dotspacemacs-enable-server nil ;; Set the emacs server socket location. ;; If nil, uses whatever the Emacs default is, otherwise a directory path ;; like \"~/.emacs.d/server\". It has no effect if ;; `dotspacemacs-enable-server' is nil. ;; (default nil) dotspacemacs-server-socket-dir nil ;; If non-nil, advise quit functions to keep server open when quitting. ;; (default nil) dotspacemacs-persistent-server t ;; List of search tool executable names. Spacemacs uses the first installed ;; tool of the list. Supported tools are `rg', `ag', `pt', `ack' and `grep'. ;; (default '("rg" "ag" "pt" "ack" "grep")) dotspacemacs-search-tools '("rg" "ag" "pt" "ack" "grep") ;; The backend used for undo/redo functionality. Possible values are ;; `undo-fu', `undo-redo' and `undo-tree' see also `evil-undo-system'. ;; Note that saved undo history does not get transferred when changing ;; your undo system. The default is currently `undo-fu' as `undo-tree' ;; is not maintained anymore and `undo-redo' is very basic." dotspacemacs-undo-system 'undo-fu ;; Format specification for setting the frame title. ;; %a - the `abbreviated-file-name', or `buffer-name' ;; %t - `projectile-project-name' ;; %I - `invocation-name' ;; %S - `system-name' ;; %U - contents of $USER ;; %b - buffer name ;; %f - visited file name ;; %F - frame name ;; %s - process status ;; %p - percent of buffer above top of window, or Top, Bot or All ;; %P - percent of buffer above bottom of window, perhaps plus Top, or Bot or All ;; %m - mode name ;; %n - Narrow if appropriate ;; %z - mnemonics of buffer, terminal, and keyboard coding systems ;; %Z - like %z, but including the end-of-line format ;; If nil then Spacemacs uses default `frame-title-format' to avoid ;; performance issues, instead of calculating the frame title by ;; `spacemacs/title-prepare' all the time. ;; (default "%I@%S") dotspacemacs-frame-title-format "%I@%S" ;; Format specification for setting the icon title format ;; (default nil - same as frame-title-format) dotspacemacs-icon-title-format nil ;; Color highlight trailing whitespace in all prog-mode and text-mode derived ;; modes such as c++-mode, python-mode, emacs-lisp, html-mode, rst-mode etc. ;; (default t) dotspacemacs-show-trailing-whitespace t ;; Delete whitespace while saving buffer. Possible values are `all' ;; to aggressively delete empty line and long sequences of whitespace, ;; `trailing' to delete only the whitespace at end of lines, `changed' to ;; delete only whitespace for changed lines or `nil' to disable cleanup. ;; The variable `global-spacemacs-whitespace-cleanup-modes' controls ;; which major modes have whitespace cleanup enabled or disabled ;; by default. ;; (default nil) dotspacemacs-whitespace-cleanup nil ;; If non-nil activate `clean-aindent-mode' which tries to correct ;; virtual indentation of simple modes. This can interfere with mode specific ;; indent handling like has been reported for `go-mode'. ;; If it does deactivate it here. ;; (default t) dotspacemacs-use-clean-aindent-mode t ;; Accept SPC as y for prompts if non-nil. (default nil) dotspacemacs-use-SPC-as-y nil ;; If non-nil shift your number row to match the entered keyboard layout ;; (only in insert state). Currently supported keyboard layouts are: ;; `qwerty-us', `qwertz-de' and `querty-ca-fr'. ;; New layouts can be added in `spacemacs-editing' layer. ;; (default nil) dotspacemacs-swap-number-row nil ;; Either nil or a number of seconds. If non-nil zone out after the specified ;; number of seconds. (default nil) dotspacemacs-zone-out-when-idle nil ;; Run `spacemacs/prettify-org-buffer' when ;; visiting README.org files of Spacemacs. ;; (default nil) dotspacemacs-pretty-docs nil ;; If nil the home buffer shows the full path of agenda items ;; and todos. If non-nil only the file name is shown. dotspacemacs-home-shorten-agenda-source nil ;; If non-nil then byte-compile some of Spacemacs files. dotspacemacs-byte-compile nil)) (defun dotspacemacs/user-env () "Environment variables setup. This function defines the environment variables for your Emacs session. By default it calls `spacemacs/load-spacemacs-env' which loads the environment variables declared in `~/.spacemacs.env' or `~/.spacemacs.d/.spacemacs.env'. See the header of this file for more information." (spacemacs/load-spacemacs-env) ) (defun dotspacemacs/user-init () "Initialization for user code: This function is called immediately after `dotspacemacs/init', before layer configuration. It is mostly for variables that should be set before packages are loaded. If you are unsure, try setting them in `dotspacemacs/user-config' first." ;; (add-to-list 'load-path "/Users/jetpac/Documents/emacs/tramp-mirror/tramp/lisp") ) (defun dotspacemacs/user-load () "Library to load while dumping. This function is called only while dumping Spacemacs configuration. You can `require' or `load' the libraries of your choice that will be included in the dump." ) (defun dotspacemacs/user-config () "Configuration for user code: This function is called at the very end of Spacemacs startup, after layer configuration. Put your configuration code here, except for variables that should be set before packages are loaded." ;; setting gui font for gui only (defun my/set-gui-font () (when (display-graphic-p) (set-frame-font "MesloLGS Nerd Font-18" t t))) ;; (set-frame-font "Source Code Pro for Powerline-18" t t))) (add-hook 'after-make-frame-functions (lambda (frame) (select-frame frame) (my/set-gui-font))) ;; Also apply font immediately if current frame is GUI (my/set-gui-font) ;; end of setting gui font ;; (require 'tramp) ;; for 24bit colors to work (and extra themes), use TERM=xterm-24bit ;; as described at https://github.com/syl20bnr/spacemacs/wiki/Terminal ;; for pandoc to work (add-to-list 'exec-path "/opt/homebrew/bin") (setenv "PATH" (concat "/opt/homebrew/bin:" (getenv "PATH"))) ;; Proxy toggle function (setq http_proxy "http://www-proxy.uk.oracle.com:80") (defun toggle-proxy () "Toggle proxy settings for Emacs." (interactive) (if (and (boundp 'url-proxy-services) url-proxy-services) (progn (setq url-proxy-services nil) (message "Proxy disabled")) (setq url-proxy-services `(("no_proxy" . "localhost") ("http" . ,http_proxy) ("https" . ,http_proxy))) (message ( concat "Proxy enabled: " http_proxy))) ) ;; Bind proxy toggle function to a key (spacemacs/set-leader-keys "ot" 'toggle-proxy) ;; idea from chatgpt (defun jp/set-dotfiles-environment () "Set environment variables for the dotfiles repository." (interactive) (setenv "GIT_DIR" (expand-file-name "~/.cfg/")) (setenv "GIT_WORK_TREE" (expand-file-name "~")) (message "Dotfiles environment set.")) (defun jp/unset-dotfiles-environment () "Unset environment variables for the dotfiles repository." (interactive) (setenv "GIT_DIR" nil) (setenv "GIT_WORK_TREE" nil) (message "Dotfiles environment unset.")) (global-set-key (kbd " s") 'jp/set-dotfiles-environment) (global-set-key (kbd " u") 'jp/unset-dotfiles-environment) (defun magit-status-dotfiles () "Open Magit with the dotfiles Git configuration." (interactive) (let ((default-directory (expand-file-name "~/"))) (set-dotfiles-environment) (magit-status) (unset-dotfiles-environment))) (with-eval-after-load 'org ;; test from https://superuser.com/questions/452649/org-mode-to-markdown-converter (require 'ox-md nil t) (setq org-directory "~/Documents/org") (setq org-default-notes-file "~/Documents/org/inbox.org") (setq org-duration-format 'h:mm) ;; ================================================================================ ;; config for org-caldav for my nextcloud installation ;; not working to my satisfaction yet - only configured for not used files ;; inspiration from https://www.reddit.com/r/orgmode/comments/8rl8ep/making_orgcaldav_useable/ ;; doc: https://github.com/dengste/org-caldav ;; URL of the caldav server (setq org-caldav-url "https://next.cloud.jetpac.org/remote.php/dav/calendars/jetpac") (setq org-caldav-calendars '((:calendar-id "personal" :files ("~/Documents/org/synced_calendar.org") ;; :inbox ("~/Documents/org/caldav/from-calendar.org") ;; :sync-direction ('org->cal) )) ) ;; config (setq org-icalendar-alarm-time 1) ;; This makes sure to-do items as a category can show up on the calendar (setq org-icalendar-include-todo t) ;; This ensures all org "deadlines" show up, and show up as due dates (setq org-icalendar-use-deadline '(event-if-todo event-if-not-todo todo-due)) ;; This ensures "scheduled" org items show up, and show up as start times (setq org-icalendar-use-scheduled '(todo-start event-if-todo event-if-not-todo)) (setq org-caldav-backup-file "~/Documents/org/caldav/org-caldav-backup.org") (setq org-caldav-save-directory "~/Documents/org/caldav/") ;; ;; calendar ID on server ;; (setq org-caldav-calendar-id "personal") ;; ;; Org filename where new entries from calendar stored (setq org-caldav-inbox "~/Documents/org/caldav/from-calendar.org") ;; ;; Additional Org files to check for calendar events ;; ;; this line breaks the sync! ;; (setq org-caldav-files ("~/Documents/org/caldav/todo.org")) ;; ;; (setq org-caldav-files nil) ;; ;; Usually a good idea to set the timezone manually ;; (setq org-icalendar-timezone "Europe/Prague") ;; ;; sync from org to cal only ;; (setq org-caldav-sync-direction "org->cal") ;; ;; (setq org-caldav-sync-direction "twoway") ;; ================================================================================ ;; Define the custum capture templates (setq org-capture-templates '(("t" "Todo [inbox] clock_in clock_resume " entry (file+headline org-default-notes-file "Tasks") "* TODO %?\n%u\n%a\n" :clock-in t :clock-resume t) ("m" "Meeting [diary] " entry (file+headline org-default-notes-file "Meetings") "* MEETING %? :Meeting:\n%t" :clock-in t :clock-resume t) ("d" "Diary [diary] " entry (file+datetree "~/org/diary.org") "* %?\n%U\n" :clock-in t :clock-resume t) ("i" "Inbox [inbox]" entry (file+headline org-default-notes-file "Capture") "* %?\n Captured: %U\n%i\n %a" :empty-lines 1) ;; ("i" "Idea [inbox] " entry (file org-default-notes-file) ;; "* %? :IDEA: \n%t" :clock-in t :clock-resume t) ("n" "Next Task" entry (file+headline org-default-notes-file "Tasks") "** NEXT %? \nDEADLINE: %t") )) ; original ; (setq org-agenda-files '("~/Documents/org/inbox.org" ; "~/Documents/org/projects.org" ; "~/Documents/org/someday.org" ; "~/Documents/org/calendar.org")) ; testing freeze (setq org-agenda-files '("~/Documents/org/inbox.org" "~/Documents/org/projects.org" "~/Documents/org/work/oracle.org" "~/Documents/org/someday.org" "~/Documents/org/calendar.org" "~/Documents/org/synced_calendar.org" )) (setq org-refile-targets '(("/Users/jetpac/Documents/org/projects.org" :maxlevel . 3) ("/Users/jetpac/Documents/org/inbox.org" :maxlevel . 3) ("/Users/jetpac/Documents/org/work/oracle.org" :maxlevel . 3) ("/Users/jetpac/Documents/org/someday.org" :maxlevel . 3) ("/Users/jetpac/Documents/org/inbox.org" :maxlevel . 3) ("/Users/jetpac/Documents/org/calendar.org" :maxlevel . 2))) ;; Don't include a footer with my contact and publishing information at the bottom of every exported HTML document. (setq org-html-postamble nil) ;; inspiration from https://emacs.stackexchange.com/questions/33179/how-to-fix-columns-of-org-agenda-clock-report (setq org-agenda-clockreport-parameter-plist (quote (:link t :maxlevel 7 :fileskip0 t :compact t :narrow 80 :formula % :match "-home"))) (setq org-agenda-custom-commands '( ("g" "Get Things Done (GTD)" ((agenda "" ( ;; (org-agenda-skip-function ;; '(org-agenda-skip-entry-if 'deadline)) (org-deadline-warning-days 0) (org-agenda-time-grid) ) ) (todo "NEXT" ( ;; (org-agenda-skip-function ;; '(org-agenda-skip-entry-if 'deadline)) (org-agenda-prefix-format " %i %-12:c [%-4e] ") (org-agenda-overriding-header "Tasks\n"))) (agenda "dead" ((org-agenda-entry-types '(:deadline)) ;;(org-agenda-format-date "") (org-deadline-warning-days 7) (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "\\* NEXT")) (org-agenda-overriding-header "Deadlines\n"))) (tags-todo "inbox" ((org-agenda-prefix-format " %?-12t% s") (org-agenda-overriding-header "Inbox\n"))) (tags "CLOSED>=\"\"" ((org-agenda-overriding-header "Completed today\n"))))) ) ) (setq org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "WAIT(w)" "RUNNING(r)" "|" "DONE(d)" "CANCELLED(c)" ))) (setq org-clock-out-remove-zero-time-clocks t) ) ;; with-eval-after-load (with-eval-after-load 'markdown-mode (define-key markdown-mode-map (kbd "C-c x") 'my/markdown-toggle-checkbox)) (setq calendar-week-start-day 1) ;; calendar start on Monday ;; org-alert configuration ;; https://github.com/jwiegley/alert ;; https://www.youtube.com/watch?v=wKTKmE1wLyw (use-package org-alert :config ;; (setq alert-default-style 'notifier) ;; Use terminal-notifier for macOS notifications (setq alert-default-style 'osx-notifier) ;; Use terminal-notifier for macOS notifications (setq org-alert-notify-cutoff 10 ;; Notify 10 minutes before the deadline org-alert-notification-title "Org Alert Reminder!" ) (org-alert-enable)) (defun my/markdown-toggle-checkbox () "Toggle checkbox in markdown list at point." (interactive) (save-excursion (beginning-of-line) (when (looking-at "\\s-*[-*]\\s-+\\[\\([ xX]\\)\\]") (replace-match (if (string= (match-string 1) " ") "x" " ") nil nil nil 1)))) (setq warning-minimum-level :error) ;; 28.4. - terminal clipboard integration ;; (when (and (not (display-graphic-p)) ;; (eq system-type 'darwin)) ;; (defun copy-to-mac-clipboard (text &optional push) ;; (let ((process-connection-type nil)) ;; (let ((proc (start-process "pbcopy" "*Messages*" "pbcopy"))) ;; (process-send-string proc text) ;; (process-send-eof proc)))) ;; (defun paste-from-mac-clipboard () ;; (shell-command-to-string "pbpaste")) ;; (setq interprogram-cut-function 'copy-to-mac-clipboard) ;; (setq interprogram-paste-function 'paste-from-mac-clipboard)) ;; terminal clipboard that should also work on remote systems (defun my/set-clipboard-integration () (cond ;; macOS in terminal (non-GUI mode) – use pbcopy/pbpaste ((and (eq system-type 'darwin) (not (display-graphic-p))) (defun copy-to-mac-clipboard (text &optional push) (let ((process-connection-type nil)) (let ((proc (start-process "pbcopy" "*Messages*" "pbcopy"))) (process-send-string proc text) (process-send-eof proc)))) (defun paste-from-mac-clipboard () (shell-command-to-string "pbpaste")) (setq interprogram-cut-function 'copy-to-mac-clipboard) (setq interprogram-paste-function 'paste-from-mac-clipboard)) ;; All other non-GUI modes (e.g., tmux, remote SSH) – use OSC 52 ((not (display-graphic-p)) (defun copy-to-osc52 (text &optional push) (let ((osc52 (concat "\e]52;c;" (base64-encode-string text t) "\a"))) (send-string-to-terminal osc52))) (setq interprogram-cut-function 'copy-to-osc52) ;; paste not supported with OSC 52, leave interprogram-paste-function nil (message "Using OSC 52 for clipboard integration")))) (my/set-clipboard-integration) ;; set gls as ls on mac/unix, keep ls on linux (cond ;; macOS ((eq system-type 'darwin) (when (executable-find "gls") (setq insert-directory-program (executable-find "gls")))) ;; Linux (GNU ls is the default `ls`) ((or (eq system-type 'gnu/linux) (eq system-type 'linux)) (setq insert-directory-program (executable-find "ls"))) ;; Solaris / other Unixes ((or (eq system-type 'usg-unix-v) (eq system-type 'berkeley-unix) (eq system-type 'unix)) (if (executable-find "gls") (setq insert-directory-program (executable-find "gls")) (setq insert-directory-program (executable-find "ls"))))) ;; org config based on https://doc.norang.ca/org-mode.html ;; punching in/out and other mods (global-set-key (kbd " i") 'bh/punch-in) (global-set-key (kbd " o") 'bh/punch-out) (global-set-key (kbd "") 'org-clock-goto) ;; Resume clocking task when emacs is restarted (org-clock-persistence-insinuate) ;; Save the running clock and all clock history when exiting Emacs, load it on startup (setq org-clock-persist t) ;; Include current clocking task in clock reports (setq org-clock-report-include-clocking-task t) (setq bh/keep-clock-running nil) (defvar bh/organization-task-id "4d2f34b0-92dd-11f0-9319-bdd95275e5c9") (defun bh/find-project-task () "Move point to the parent (project) task if any" (save-restriction (widen) (let ((parent-task (save-excursion (org-back-to-heading 'invisible-ok) (point)))) (while (org-up-heading-safe) (when (member (nth 2 (org-heading-components)) org-todo-keywords-1) (setq parent-task (point)))) (goto-char parent-task) parent-task))) (defun bh/punch-in (arg) "Start continuous clocking and set the default task to the selected task. If no task is selected set the Organization task as the default task." (interactive "p") (setq bh/keep-clock-running t) (if (equal major-mode 'org-agenda-mode) ;; ;; We're in the agenda ;; (let* ((marker (org-get-at-bol 'org-hd-marker)) (tags (org-with-point-at marker (org-get-tags-at)))) (if (and (eq arg 4) tags) (org-agenda-clock-in '(16)) (bh/clock-in-organization-task-as-default))) ;; ;; We are not in the agenda ;; (save-restriction (widen) ; Find the tags on the current task (if (and (equal major-mode 'org-mode) (not (org-before-first-heading-p)) (eq arg 4)) (org-clock-in '(16)) (bh/clock-in-organization-task-as-default))))) (defun bh/punch-out () (interactive) (setq bh/keep-clock-running nil) (when (org-clock-is-active) (org-clock-out)) (org-agenda-remove-restriction-lock)) (defun bh/clock-in-default-task () (save-excursion (org-with-point-at org-clock-default-task (org-clock-in)))) (defun bh/clock-in-parent-task () "Move point to the parent (project) task if any and clock in" (let ((parent-task)) (save-excursion (save-restriction (widen) (while (and (not parent-task) (org-up-heading-safe)) (when (member (nth 2 (org-heading-components)) org-todo-keywords-1) (setq parent-task (point)))) (if parent-task (org-with-point-at parent-task (org-clock-in)) (when bh/keep-clock-running (bh/clock-in-default-task))))))) (defun bh/clock-in-organization-task-as-default () (interactive) (org-with-point-at (org-id-find bh/organization-task-id 'marker) (org-clock-in '(16)))) (defun bh/clock-out-maybe () (when (and bh/keep-clock-running (not org-clock-clocking-in) (marker-buffer org-clock-default-task) (not org-clock-resolving-clocks-due-to-idleness)) (bh/clock-in-parent-task))) (add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append) ) ;; user-config ;; Do not write anything past this comment. This is where Emacs will ;; auto-generate custom variable definitions. (defun dotspacemacs/emacs-custom-settings () "Emacs custom settings. This is an auto-generated function, do not modify its content directly, use Emacs customize menu instead. This function is called at the very end of Spacemacs initialization." (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. '(custom-enabled-themes '(spacemacs-dark)) '(custom-safe-themes '("7fea145741b3ca719ae45e6533ad1f49b2a43bf199d9afaee5b6135fd9e6f9b8" "810691bd221e4639d5ef736b1bd930a7fb32a7c6043a5634e04f86edea973f6d" "a0ac98a1bde5d6336295fd350155a4aac1d63c53c1b3773062271074d16ebeb5" "bbb13492a15c3258f29c21d251da1e62f1abb8bbd492386a673dcfab474186af" "7fd8b914e340283c189980cd1883dbdef67080ad1a3a9cc3df864ca53bdc89cf" default)) '(package-selected-packages '(a ace-jump-helm-line ace-link afternoon-theme aggressive-indent aio alect-themes alert all-the-icons ample-theme ample-zen-theme anaconda-mode anti-zenburn-theme apropospriate-theme auto-compile auto-highlight-symbol auto-yasnippet autothemer badwolf-theme birds-of-paradise-plus-theme blacken bubbleberry-theme bui busybee-theme centered-cursor-mode cherry-blossom-theme chocolate-theme clean-aindent-mode closql clues-theme code-cells code-review color-theme-sanityinc-solarized color-theme-sanityinc-tomorrow column-enforce-mode company company-anaconda company-box company-quickhelp company-shell company-statistics company-terraform company-web concurrent ctable cyberpunk-theme cython-mode dakrone-theme dap-mode darkmine-theme darkokai-theme darktooth-theme deferred define-word devdocs diminish dired-quick-sort disable-mouse django-theme docker dockerfile-mode doom-themes dotenv-mode dracula-theme drag-stuff dumb-jump eat edit-indirect editorconfig ef-themes elisp-def elisp-demos elisp-slime-nav emacsql emmet-mode emojify emr epc esh-help eshell-prompt-extras eshell-z espresso-theme eval-sexp-fu evil-anzu evil-args evil-cleverparens evil-collection evil-easymotion evil-escape evil-evilified-state evil-exchange evil-goggles evil-iedit-state evil-indent-plus evil-lion evil-lisp-state evil-matchit evil-mc evil-nerd-commenter evil-numbers evil-org evil-surround evil-textobj-line evil-tutor evil-unimpaired evil-visual-mark-mode evil-visualstar exotica-theme expand-region eyebrowse eziam-themes fancy-battery farmhouse-themes fish-mode flatland-theme flatui-theme flx-ido flycheck-bashate flycheck-elsa flycheck-package flycheck-pos-tip forge frame-local gandalf-theme gh-md ghub git-link git-messenger git-modes git-timemachine gitignore-templates gntp gnuplot golden-ratio google-translate gotham-theme grandshell-theme gruber-darker-theme gruvbox-theme haml-mode hc-zenburn-theme hcl-mode helm-ag helm-c-yasnippet helm-comint helm-company helm-css-scss helm-descbinds helm-git-grep helm-ls-git helm-lsp helm-make helm-mode-manager helm-org helm-org-rifle helm-projectile helm-purpose helm-pydoc helm-swoop helm-themes helm-xref hemisu-theme heroku-theme hide-comnt hierarchy highlight-indentation highlight-numbers highlight-parentheses hl-todo holy-mode htmlize hungry-delete hybrid-mode impatient-mode importmagic indent-guide info+ inkpot-theme insert-shebang inspector ir-black-theme jazz-theme jbeans-theme js-doc js2-mode js2-refactor json-mode json-navigator json-reformat json-snatcher kaolin-themes light-soap-theme link-hint live-py-mode livid-mode load-env-vars log4e lorem-ipsum lsp-docker lsp-mode lsp-origami lsp-pyright lsp-treemacs lsp-ui lush-theme macrostep madhat2r-theme magit magit-section markdown-mode markdown-toc material-theme minimal-theme modus-themes moe-theme molokai-theme monochrome-theme monokai-theme multi-line multi-term multi-vterm multiple-cursors mustang-theme nameless naquadah-theme nginx-mode noctilux-theme nodejs-repl nose npm-mode obsidian-theme occidental-theme oldlace-theme omtose-phellack-themes open-junk-file org-alert org-caldav org-category-capture org-cliplink org-contrib org-download org-jira org-mac-link org-mime org-pomodoro org-present org-project-capture org-projectile org-rich-yank org-superstar organic-green-theme orgit orgit-forge origami overseer ox-jira ox-twbs pandoc-mode paradox password-generator pcre2el phoenix-dark-mono-theme phoenix-dark-pink-theme pip-requirements pipenv pippel planet-theme poetry popwin pos-tip prettier-js professional-theme pug-mode purple-haze-theme py-isort pydoc pyenv-mode pylookup pytest pythonic pyvenv quickrun railscasts-theme rainbow-delimiters rebecca-theme request restart-emacs reverse-theme sass-mode scss-mode seti-theme shell-pop shfmt simple-httpd skewer-mode slim-mode smeargle smyx-theme soft-charcoal-theme soft-morning-theme soft-stone-theme solarized-theme soothe-theme space-doc spacegray-theme spaceline spacemacs-purpose-popwin spacemacs-whitespace-cleanup sphinx-doc string-edit-at-point string-inflection subatomic-theme subatomic256-theme sublime-themes sunny-day-theme symbol-overlay symon tablist tagedit tango-2-theme tango-plus-theme tangotango-theme tao-theme term-cursor terminal-here tern terraform-mode toc-org toml-mode toxi-theme transient treemacs-evil treemacs-icons-dired treemacs-magit treemacs-persp treemacs-projectile treepy twilight-anti-bright-theme twilight-bright-theme twilight-theme ujelly-theme underwater-theme undo-fu undo-fu-session vi-tilde-fringe vim-powerline volatile-highlights vterm vundo web-beautify web-completion-data web-mode which-key white-sand-theme winum with-editor writeroom-mode ws-butler yaml yaml-mode yapfify yasnippet yasnippet-snippets zen-and-art-theme zenburn-theme zonokai-emacs))) (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. '(default ((t (:background nil))))) )