#+end_src
** Org
#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
-(setq org-directory "/org/")
-(setq org-modern-table-vertical 1)
-(setq org-modern-table t)
-(add-hook 'org-mode-hook #'hl-todo-mode)
-(custom-theme-set-faces!
-'doom-old-hope
-'(org-level-8 :inherit outline-3 :height 1.0)
-'(org-level-7 :inherit outline-3 :height 1.0)
-'(org-level-6 :inherit outline-3 :height 1.1)
-'(org-level-5 :inherit outline-3 :height 1.2)
-'(org-level-4 :inherit outline-3 :height 1.3)
-'(org-level-3 :inherit outline-3 :height 1.4)
-'(org-level-2 :inherit outline-2 :height 1.5)
-'(org-level-1 :inherit outline-1 :height 1.6)
-'(org-document-title :height 1.8 :bold t :underline nil))
+(use-package org
+ :ensure nil ; do not try to install it as it is built-in
+ :config
+ (setq org-M-RET-may-split-line '((default . nil)))
+ (setq org-insert-heading-respect-content t)
+ (setq org-log-done 'time)
+ (setq org-log-into-drawer t)
+ (setq org-directory "/home/ale/org/")
+ (setq org-agenda-files (list org-directory))
+ (setq org-modern-table-vertical 1)
+ (setq org-modern-table t)
+ (add-hook 'org-mode-hook #'hl-todo-mode)
+ (custom-theme-set-faces!
+ 'doom-old-hope
+ '(org-level-8 :inherit outline-3 :height 1.0)
+ '(org-level-7 :inherit outline-3 :height 1.0)
+ '(org-level-6 :inherit outline-3 :height 1.1)
+ '(org-level-5 :inherit outline-3 :height 1.2)
+ '(org-level-4 :inherit outline-3 :height 1.3)
+ '(org-level-3 :inherit outline-3 :height 1.4)
+ '(org-level-2 :inherit outline-2 :height 1.5)
+ '(org-level-1 :inherit outline-1 :height 1.6)
+ '(org-document-title :height 1.8 :bold t :underline nil))
+
+ (setq org-todo-keywords
+ '((sequence "TODO(t)" "WAIT(w!)" "|" "CANCEL(c!)" "DONE(d!)"))))
#+end_src
** Plugins
Se agregan a packages.el, sin embargo la connfiguración va aquí
#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
;; (require 'asciidoc-mode)
#+end_src
+*** colorful-mode
+#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
+(setq global-colorful-mode t)
+#+end_src
+*** company
+este proviene de init.el, la configuración a continuación en teoria añade la funcionalidad de autocompletar en directorios. Para que no extrañe tanto a kakoune
+#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
+(after! company
+(setq company-minimum-prefix-length 1
+ company-idle-delay 0.1
+ company-show-quick-access t
+ company-tooltip-limit 20
+ company-tooltip-align-annotations t)
+
+;; Make company-files a higher priority backend
+(setq company-backends (cons 'company-files (delete 'company-files company-backends)))
+
+;; Better file path completion settings
+(setq company-files-exclusions nil)
+(setq company-files-chop-trailing-slash t)
+
+;; Enable completion at point for file paths
+(defun my/enable-path-completion ()
+ "Enable file path completion using company."
+ (setq-local company-backends
+ (cons 'company-files company-backends)))
+
+;; Enable for all major modes
+(add-hook 'after-change-major-mode-hook #'my/enable-path-completion)
+
+;; Custom file path trigger
+(defun my/looks-like-path-p (input)
+ "Check if INPUT looks like a file path."
+ (or (string-match-p "^/" input) ;; Absolute path
+ (string-match-p "^~/" input) ;; Home directory
+ (string-match-p "^\\.\\{1,2\\}/" input))) ;; Relative path
+
+(defun my/company-path-trigger (command &optional arg &rest ignored)
+ "Company backend that triggers file completion for path-like input."
+ (interactive (list 'interactive))
+ (cl-case command
+ (interactive (company-begin-backend 'company-files))
+ (prefix (when (my/looks-like-path-p (or (company-grab-line "\\([^ ]*\\)" 1) ""))
+ (company-files 'prefix)))
+ (t (apply 'company-files command arg ignored))))
+
+;; Add the custom path trigger to backends
+(add-to-list 'company-backends 'my/company-path-trigger))
+(use-package! company-box
+ :after company
+ :hook (company-mode . company-box-mode)
+ :config
+ (setq company-box-show-single-candidate 'always
+ company-box-max-lines 20
+ company-box-doc-delay 0.5)
+
+ ;; Personalizar colores explícitamente
+ (set-face-attribute 'company-box-background nil :background "#2a2a2a")
+ (set-face-attribute 'company-box-selection nil :background "#3a4a5a" :foreground "#ffffff" :bold t)
+ (set-face-attribute 'company-tooltip-common nil :foreground "#ffaf00"))
+#+end_src
+a ver si ahora sí /org/hsP
*** org-auto-tangle
#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/config.el"
(use-package org-auto-tangle
debería investigar si alguno me ayuda a sugerencias estilo kakoune. SEGUN Claude company es el chido. hay que buscar videos
#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/init.el"
:completion
- ;;company ; the ultimate code completion backend
- (corfu +orderless) ; complete with cap(f), cape and a flying feather!
+ company ; the ultimate code completion backend
+ ;; (corfu +orderless) ; complete with cap(f), cape and a flying feather!
;;helm ; the *other* search engine for love and life
;;ido ; the other *other* search engine...
;;ivy ; a search engine for love and life
#+end_src
#+begin_src emacs-lisp :tangle "/home/ale/.config/doom/packages.el"
(package! asciidoc-mode)
+(package! colorful-mode)
+(package! company-box)
(package! org-auto-tangle)
#+end_src
projects / org.git / commitdiff