svragv/k9core
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added required file lmao

Browse source
This commit is contained in:
(≧◡≦) 2025-03-13 20:26:26 +01:00
parent a82f981d84
commit e489e29a4b
4 changed files with 361 additions and 134 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
LICENSE
View file

@ -1,10 +1,13 @@
KILL-9 PUBLIC LICENSE
Copyleft (ɔ) All Rights Reversed
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
Version 2, December 2004
Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
This WORK is hereby relinquished of all associated ownership, attribution and copy
rights, and redistribution or use of any kind, with or without modification, is
permitted without restriction subject to the following conditions:
Everyone is permitted to copy and distribute verbatim or modified
copies of this license document, and changing it is allowed as long
as the name is changed.
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
1. Redistributions of this work must retain the entirety of this license
AND source code.
2. No further restrictions of ANY kind may be applied.
0. You just DO WHAT THE FUCK YOU WANT TO.

223
config.org
View file

@ -73,6 +73,11 @@ C-c n for indent-buffer. I don't use the rest.
(add-hook 'html-mode-hook
(lambda ()
(set-fill-column 100)))
(add-hook 'markdown-mode-hook
(lambda ()
(set-fill-column 75)))
(defun indent-buffer ()
(interactive)
(save-excursion
@ -89,7 +94,12 @@ it. I don't think i'd ever use the overwritten.
(global-set-key (kbd "M-m") 'mark-whole-buffer)
(global-set-key (kbd "C-c m") 'man)
(define-key org-mode-map (kbd "C-c p") 'org-publish-current-file)
<<<<<<< HEAD
(set-frame-font "Monospace 12")
||||||| parent of 5575988 (no se ni que he hecho)
(set-frame-font "Hack 17")
=======
>>>>>>> 5575988 (no se ni que he hecho)
#+END_SRC
* No idea
@ -143,7 +153,7 @@ Functions I wrote because emacs lisp is cool and useful.
(setq org-publish-project-alist
'(("suragu.net"
:base-directory "~/docs/qorg_qorg/"
:publishing-directory "~/docs/mounts/sites/suragu.net"
:publishing-directory "~/docs/mounts/suragu"
:section-numbers nil
:publishing-function org-html-publish-to-html
:table-of-contents nil
@ -183,7 +193,10 @@ Functions I wrote because emacs lisp is cool and useful.
(setq cmd-str (concat prog-name " " file-name))
(shell-command cmd-str)))
(defun sosa/repos ()
(interactive)
(dired "/home/diego/Escritorio/zpool/repos/"))
(global-set-key (kbd "C-c r") 'sosa/repos)
#+end_src
* Programs
Emacs customization, Here is where most of the configuration is.
@ -234,9 +247,7 @@ minibuffer.
Flycheck is a syntax validator and lintern for programming.
#+BEGIN_SRC emacs-lisp
(use-package flycheck
:ensure t
:init
(add-hook 'after-init-hook #'global-flycheck-mode))
:ensure t)
#+END_SRC
And for raku
#+BEGIN_SRC emacs-lisp
@ -266,11 +277,26 @@ And to have multiple buffers
#+END_SRC
** Theme
#+begin_src emacs-lisp
<<<<<<< HEAD
(use-package "base16-theme"
||||||| parent of 5575988 (no se ni que he hecho)
(use-package "exotica-theme"
=======
(use-package "zweilight-theme"
>>>>>>> 5575988 (no se ni que he hecho)
:ensure t
<<<<<<< HEAD
:init(load-theme 'base16-black-metal-bathory t)
)
||||||| parent of 5575988 (no se ni que he hecho)
:init(load-theme 'exotica t)
)
=======
:init(load-theme 'zweilight t))
(set-frame-font "Inconsolata 15")
>>>>>>> 5575988 (no se ni que he hecho)
(set-cursor-color "purple")
#+end_src
** ctrlf
So, you know, C-s in emacs sucks, so this is a repleacement for that.
@ -281,8 +307,6 @@ So, you know, C-s in emacs sucks, so this is a repleacement for that.
:init
(ctrlf-mode +1))
#+END_SRC
** Company and Irony
Some shit for autocompletion and that kind of shit.
** Programming language things
*** Lisp
@ -304,8 +328,17 @@ I use LSP for perl.
(setq perl-indent-level 5)
(defalias 'perl-mode 'cperl-mode)
(add-hook 'perl-mode-hook (lambda ()
<<<<<<< HEAD
(lsp)
(irony-mode -1)))
(load-file "~/.config/emacs/perltidy.el")
||||||| parent of 5575988 (no se ni que he hecho)
(lsp)
(irony-mode -1)))
=======
(lsp)))
(load-file "~/.config/emacs/perltidy.el")
>>>>>>> 5575988 (no se ni que he hecho)
#+END_SRC
*** C*
This use c-eldoc mode so it prints the function's prototype in the
@ -318,14 +351,13 @@ to. LSP is also used for further Programming.
(add-hook 'c-mode-hook 'c-turn-on-eldoc-mode))
(setq c-default-style "k&r")
(add-hook 'c-mode-hook (lambda ()
(lsp)
(irony-mode -1)))
(lsp)))
#+END_SRC
*** Raku
Raku, the cornerstone of any well designed programming language.
#+begin_src emacs-lisp
(setq raku-indent-offset 5)
(setq raku-exec-path "/usr/bin/raku")
(setq raku-exec-path "/home/diego/.local/bin/raku")
#+end_src
*** HTML & CSS offset
#+begin_src emacs-lisp
@ -404,6 +436,10 @@ Now let's make the thing lysergic
(set-face-foreground dired-mark-face "green")
(set-face-foreground dired-marked-face "blue")
#+end_src
Good sorting
#+begin_src emacs-lisp
(setq dired-listing-switches "-aBhl --group-directories-first")
#+end_src
** kill ring popup
#+BEGIN_SRC emacs-lisp
(use-package popup-kill-ring
@ -418,7 +454,6 @@ Scroll by lines rather than by pages.
(setq scroll-step 1)
(setq scroll-conservatively 10000)
(setq auto-window-vscroll nil)
(scroll-bar-mode 1)
#+end_src
** Shell
#+begin_src emacs-lisp
@ -444,7 +479,7 @@ Multiple cursors :DD
#+begin_src emacs-lisp
(use-package "multiple-cursors"
:ensure t
:bind ("C-c q" . 'mc/mark-next-like-this))
:bind ("C-x q" . 'mc/mark-next-like-this))
#+end_src
@ -502,9 +537,6 @@ Le language server
#+begin_src emacs-lisp
(use-package "lsp-mode"
:ensure t)
(use-package "lsp-ui"
:ensure t
:init(add-hook 'lsp-mode-hook 'lsp-ui-mode))
#+end_src
** Hooks
I am tired of =M-x auto-fill-mode= in some modes
@ -544,7 +576,9 @@ thankfully there's this thing.
(set-face-font 'org-level-1 "IBM Plex Mono 16")
(set-face-font 'org-level-2 "IBM Plex Mono 15")
(set-face-font 'org-level-3 "IBM Plex Mono 14")
(set-face-font 'org-level-4 "IBM Plex Mono 14")
(set-face-font 'org-level-5 "IBM Plex Mono 14")
(setq org-hide-emphasis-markers t)
#+end_src
** zzz-to-char
It's like ace-whatever but for zapping characters.
@ -563,107 +597,6 @@ Better \*help\* buffer
:bind ("C-h v". #'helpful-variable)
:bind ("C-h k". #'helpful-key))
#+end_src
** Treemacs
Sidebar xdxd
#+begin_src emacs-lisp
(use-package treemacs
:ensure t
:defer t
:init
(with-eval-after-load 'winum
(define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
:config
(progn
(setq treemacs-collapse-dirs (if treemacs-python-executable 3 0)
treemacs-deferred-git-apply-delay 0.5
treemacs-directory-name-transformer #'identity
treemacs-display-in-side-window t
treemacs-eldoc-display 'simple
treemacs-file-event-delay 5000
treemacs-file-extension-regex treemacs-last-period-regex-value
treemacs-file-follow-delay 0.2
treemacs-file-name-transformer #'identity
treemacs-follow-after-init t
treemacs-expand-after-init t
treemacs-find-workspace-method 'find-for-file-or-pick-first
treemacs-git-command-pipe ""
treemacs-goto-tag-strategy 'refetch-index
treemacs-indentation 2
treemacs-indentation-string " "
treemacs-is-never-other-window nil
treemacs-max-git-entries 5000
treemacs-missing-project-action 'ask
treemacs-move-forward-on-expand nil
treemacs-no-png-images nil
treemacs-no-delete-other-windows t
treemacs-project-follow-cleanup nil
treemacs-persist-file (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
treemacs-position 'left
treemacs-read-string-input 'from-child-frame
treemacs-recenter-distance 0.1
treemacs-recenter-after-file-follow nil
treemacs-recenter-after-tag-follow nil
treemacs-recenter-after-project-jump 'always
treemacs-recenter-after-project-expand 'on-distance
treemacs-litter-directories '("/node_modules" "/.venv" "/.cask")
treemacs-show-cursor nil
treemacs-show-hidden-files t
treemacs-silent-filewatch nil
treemacs-silent-refresh nil
treemacs-sorting 'alphabetic-asc
treemacs-select-when-already-in-treemacs 'move-back
treemacs-space-between-root-nodes t
treemacs-tag-follow-cleanup t
treemacs-tag-follow-delay 1.5
treemacs-text-scale nil
treemacs-user-mode-line-format nil
treemacs-user-header-line-format nil
treemacs-wide-toggle-width 70
treemacs-width 25
treemacs-width-increment 1
treemacs-width-is-initially-locked t
treemacs-workspace-switch-cleanup nil)
;; The default width and height of the icons is 22 pixels. If you are
;; using a Hi-DPI display, uncomment this to double the icon size.
;;(treemacs-resize-icons 44)
(treemacs-follow-mode t)
(treemacs-filewatch-mode t)
(treemacs-fringe-indicator-mode 'always)
(pcase (cons (not (null (executable-find "git")))
(not (null treemacs-python-executable)))
(`(t . t)
(treemacs-git-mode 'deferred))
(`(t . _)
(treemacs-git-mode 'simple)))
(treemacs-hide-gitignored-files-mode nil))
:bind
(:map global-map
("M-0" . treemacs-select-window)
("C-x t 1" . treemacs-delete-other-windows)
("C-x t t" . treemacs)
("C-x t d" . treemacs-select-directory)
("C-x t B" . treemacs-bookmark)
("C-x t C-t" . treemacs-find-file)
("C-x t M-t" . treemacs-find-tag)))
(use-package treemacs-projectile
:after (treemacs projectile)
:ensure t)
(use-package treemacs-icons-dired
:hook (dired-mode . treemacs-icons-dired-enable-once)
:ensure t)
(use-package treemacs-tab-bar ;;treemacs-tab-bar if you use tab-bar-mode
:after (treemacs)
:ensure t
:config (treemacs-set-scope-type 'Tabs))
#+end_src
** Projectile
Projectile is a project manager which helps you with git and stuff.
@ -680,8 +613,14 @@ written in Perl.
#+begin_src emacs-lisp
(use-package "ack"
:ensure t
)
:ensure t)
#+end_src
** whitespace-cleanup-mode
Useful for makefiles.
#+begin_src emacs-lisp
(use-package "whitespace-cleanup-mode"
:ensure t
:init(add-hook 'after-init-hook 'whitespace-cleanup-mode))
#+end_src
** Nyancat
Yes.
@ -691,7 +630,46 @@ Yes.
:init(nyan-mode))
#+end_src
<<<<<<< HEAD
** Orderless
#+begin_src emacs-lisp
(use-package orderless
:ensure t
:custom
(completion-styles '(orderless basic))
(completion-category-overrides '((file (styles basic partial-completion)))))
#+end_src
** web-mode
#+begin_src emacs-lisp
(use-package web-mode
:ensure t
:config
(define-key web-mode-map (kbd "C-c C-e") 'web-mode-element-close)
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(define-key web-mode-map (kbd "C-c C-o") 'web-mode-element-insert))
#+end_src
||||||| parent of 5575988 (no se ni que he hecho)
=======
** Orderless
#+begin_src emacs-lisp
(use-package orderless
:ensure t
:custom
(completion-styles '(orderless basic))
(completion-category-overrides '((file (styles basic partial-completion)))))
#+end_src
** web-mode
#+begin_src emacs-lisp
(use-package web-mode
:ensure t
:config
(define-key web-mode-map (kbd "C-c C-e") 'web-mode-element-close)
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(define-key web-mode-map (kbd "C-c C-o") 'web-mode-element-insert))
#+end_src
>>>>>>> 5575988 (no se ni que he hecho)
* Vertico
Better interactive selection minibuffer. Alternative to ido and
helm. This also installs =marginalia-mode=. So you can have further
@ -709,16 +687,12 @@ information of the commands, files and stuff in the minibuffer.
;; Different scroll margin
(setq vertico-scroll-margin 10)
;; Show more candidates
(setq vertico-count 10)
;; Grow and shrink the Vertico minibuffer
(setq vertico-resize nil)
;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
(setq vertico-cycle nil))
;; Persist history over Emacs restarts. Vertico sorts by history position.
(use-package savehist
:init
@ -825,8 +799,7 @@ create it in case you accidentally killed the buffer)
(setq doom-modeline-time-icon nil)
(setq doom-modeline-env-version t)
(setq doom-modeline-env-python-executable "python")
(setq doom-modeline-env-perl-executable "perl")
)
(setq doom-modeline-env-perl-executable "perl"))
#+end_src

2
init.el
View file

@ -1 +1 @@
(org-babel-load-file "~/.emacs.d/config.org")
(org-babel-load-file "~/.config/emacs/config.org")

251
perltidy.el Normal file
View file

@ -0,0 +1,251 @@
;;; perltidy.el --- Tidy perl code
;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
;;
;; Author: Ye Wenbin <wenbinye@gmail.com>
;; Maintainer: Kirill Babikhin <mrakobes86reg@yandex.ru>
;; Created: 22 Dec 2007
;; Version: 0.05
;; Keywords: tools, convenience, languages
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; As the PBP(Perl Best Practice) suggest, put this to your ~/.perltidyrc:
;; ## .perltidyrc --- configuration for perltidy
;; # Max line width is 78 cols
;; -l=78
;; # Indent level is 4 cols
;; -i=4
;; # Continuation indent is 4 cols
;; -ci=4
;; # Output to STDOUT
;; -st
;; # Errors to STDERR
;; -se
;; # Maximal vertical tightness
;; -vt=2
;; # No extra indentation for closing brackets
;; -cti=0
;; # Medium parenthesis tightness
;; -pt=1
;; # Medium brace tightness
;; -bt=1
;; # Medium square bracket tightness
;; -sbt=1
;; # Medium block brace tightness
;; -bbt=1
;; # No space before semicolons
;; -nsfs
;; # Don't outdent long quoted strings
;; -nolq
;; # Break before all operators
;; -wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
;; Put this file into your load-path and the following into your ~/.emacs:
;; (require 'perltidy)
;;; Code:
(eval-when-compile
(require 'cl))
(defgroup perltidy nil
"Tidy perl code using perltidy"
:group 'tools
:group 'pde)
(defcustom perltidy-program "perltidy"
"*Program name of perltidy"
:type 'string
:group 'perltidy)
(defcustom perltidy-program-params
'(;; I/O control
"--standard-output"
"--standard-error-output"
"--force-read-binary"
"--quiet"
;; FORMATTING OPTIONS
"--no-check-syntax"
)
"*perltidy run options"
:type 'list
:group 'perltidy)
(defcustom perltidy-rcregex "\\.perltidyrc"
"perltidyrc file regex"
:type 'string
:group 'perltidy)
(defmacro perltidy-save-point (&rest body)
(declare (indent 0) (debug t))
`(let ((old-point (point)))
,@body
(goto-char old-point)))
;;;###autoload
(defun perltidy-region (beg end)
"Tidy perl code in the region."
(interactive "r")
(or (get 'perltidy-program 'has-perltidy)
(if (executable-find perltidy-program)
(put 'perltidy-program 'has-perltidy t)
(error "Seem perltidy is not installed")))
(perltidy-save-point
(let ((old-perltidy-env (getenv "PERLTIDY"))
(remote? (tramp-tramp-file-p buffer-file-name))
(perltidyrc (perltidy-find-perltidyrc buffer-file-truename))
(perltidyrc-remote (expand-file-name "perltidyrc-remote" temporary-file-directory))
(perltidy-run-list perltidy-program-params)
)
(if (and (bound-and-true-p remote?)
perltidyrc)
(progn
(require 'tramp-sh)
(tramp-sh-handle-copy-file perltidyrc perltidyrc-remote t)
(setq perltidyrc perltidyrc-remote)))
(if perltidyrc
(setq perltidy-run-list
(append perltidy-run-list
(list (concat "-pro=" perltidyrc)))))
(apply #'call-process-region
(append (list beg end perltidy-program
t
t
t
)
perltidy-run-list)))
t))
;;;###autoload
(defun perltidy-buffer ()
"Call perltidy for whole buffer."
(interactive)
(perltidy-region (point-min) (point-max)))
;;;###autoload
(defun perltidy-subroutine ()
"Call perltidy for subroutine at point."
(interactive)
(save-excursion
(let ((current-point (point))
b e)
(setq b (progn (beginning-of-defun) (point)))
(when (and
(looking-at "\\s-*sub\\s-+")
(< b current-point)
(> (save-excursion
(setq e (progn (end-of-defun) (point))))
current-point))
(perltidy-region b e)))))
;;;###autoload
(defun perltidy-dwim-safe (arg)
"Perltidy Do What I Mean safe.
If region is active call perltidy on the region.
If inside subroutine, call perltidy on the subroutine,
otherwise stop."
(interactive "P")
(let ((buf (current-buffer))
beg end)
(cond ((and mark-active transient-mark-mode)
(setq beg (region-beginning)
end (region-end)))
((save-excursion
(let ((current-point (point))
b e)
(setq b (progn (beginning-of-defun) (point)))
(when (and
(looking-at "\\s-*sub\\s-+")
(< b current-point)
(> (save-excursion
(setq e (progn (end-of-defun) (point))))
current-point))
(setq beg b
end e)))))
(t (setq beg nil
end nil)))
(if (and beg
end)
(progn
(perltidy-region beg end)
(font-lock-fontify-buffer)))))
;;;###autoload
(defun perltidy-dwim (arg)
"Perltidy Do What I Mean.
If region is active call perltidy on the region.
If inside subroutine, call perltidy on the subroutine,
otherwise call perltidy for whole buffer."
(interactive "P")
(let ((buf (current-buffer))
beg end)
(cond ((and mark-active transient-mark-mode)
(setq beg (region-beginning)
end (region-end)))
((save-excursion
(let ((current-point (point))
b e)
(setq b (progn (beginning-of-defun) (point)))
(when (and
(looking-at "\\s-*sub\\s-+")
(< b current-point)
(> (save-excursion
(setq e (progn (end-of-defun) (point))))
current-point))
(setq beg b
end e)))))
(t (setq beg (point-min)
end (point-max))))
(perltidy-region beg end)
(font-lock-fontify-buffer)))
(defun perltidy-find-perltidyrc (&optional dir rcregex)
(unless dir (setq dir (buffer-file-name)))
(unless rcregex (setq rcregex perltidy-rcregex))
(setq dir (file-name-directory dir))
(let (rcfile)
(catch 'my-tag
(locate-dominating-file
dir
(lambda (parent)
(let ((rc (car (ignore-errors (directory-files parent t rcregex))))
(pparent (file-name-directory (directory-file-name parent))))
(setq rcfile rc)
(cond ((equal parent
pparent)
(if (= (length rc) 0)
(throw 'my-tag rc)
(throw 'my-tag nil)))
((and (= (length rc) 0)
(file-exists-p (expand-file-name "lib" pparent))
(file-directory-p (expand-file-name "lib" pparent)))
(setq rcfile (car (ignore-errors (directory-files pparent t rcregex))))
(throw 'my-tag rcfile))
(t rc))))))
rcfile))
(provide 'perltidy)
;;; perltidy.el ends here