From c8661d9e3f6a125f26eaf615c0d8e4f9fd7c3ea5 Mon Sep 17 00:00:00 2001
From: rawley <rawleyfowler@proton.me>
Date: Thu, 3 Jul 2025 21:03:24 -0600
Subject: [PATCH] 0_0

---
 init.el | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/init.el b/init.el
index b0e7b21..b2cc68e 100644
--- a/init.el
+++ b/init.el
@@ -10,7 +10,7 @@
 (setq visible-bell nil)
 (setq ring-bell-function 'ignore)
 (setq shell-file-name "/bin/bash")
-(setq shell-command-switch "-ic")
+(setq shell-command-switch "-c")
 (setq indent-tabs-mode nil)
 (setq require-final-newline t)
 (setq frame-inhibit-implied-resize t)
@@ -28,6 +28,8 @@
 (add-to-list 'image-types 'svg)
 (setq require-final-newline t)
 
+(set-face-attribute 'default nil :height 120)
+
 ;; Stupid bold font for no reason, BEGONE!
 (mapc
    (lambda (face)
@@ -97,12 +99,7 @@
 
 ;; The best linter/code checker ever made
 (use-package flycheck
-  :init (global-flycheck-mode)
-  :config
-  (setq flycheck-perl-include-path ; Lookup our local Perl libs.
-	(add-to-list
-	 'flycheck-perl-include-path
-	 "~/perl5/lib/perl5/")))
+  :init (global-flycheck-mode))
 
 ;; Generic completion
 (use-package ivy
@@ -203,19 +200,22 @@
 (setq perltidy-on-save t)
 (require 'perl-mode)
 (require 'cperl-mode)
+(require 'projectile)
 (setq cperl-set-style "linux")
 (setq cperl-highlight-variables-indiscriminately t)
 (defalias 'perl-mode 'cperl-mode)
 (setq cperl-indent-parens-as-block t)
 
-(let ((rf-perl-version (shell-command-to-string "perl -e 'print $]'")))
-  '((cperl-mode
-        (flycheck-perl-include-path . (concat "~/perl5/perlbrew/perls/perl-"
-                        'rf-perl-version
-                        "lib"
-                        'rf-perl-version))
-        (when (projectile-project-p)
-          (flycheck-perl-include-path . (concat (projectile-project-root) "/lib"))))))
+;; Set Perl include path
+(setq flycheck-perl-include-path '())
+
+;;; This is kinda ugly, assuming you use perlbrew its fine :)
+(when (file-directory-p "~/perl5/perlbrew")
+  (let ((rf-perl-version (shell-command-to-string "source ~/.bashrc && perl -e 'print($^V =~ s/v//r)' 2> /dev/null")))
+    (add-to-list 'flycheck-perl-include-path (concat "~/perl5/perlbrew/perls/perl-" rf-perl-version "/lib/" rf-perl-version))))
+(add-hook 'cperl-mode-hook
+          (lambda ()
+            (add-to-list 'flycheck-perl-include-path (concat (projectile-project-root) "lib"))))
 
 (eval-after-load 'cperl-mode
   '(progn
@@ -232,9 +232,10 @@
                          :slant       'italic
                          )
      ))
+
 ;;;; END cperl-mode
 
-(custom-set-variables
+(custom-set-variables)
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.