added required file lmao

LICENSE

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

config.org

@@ -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
+       :ensure t)
-       :init
-       (add-hook 'after-init-hook #'global-flycheck-mode))
 #+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)
+                              (lsp)))
-                              (irony-mode -1)))
 #+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
 

init.el

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

perltidy.el

@@ -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