;; ----------------------------
;; Podstawowa konfiguracja pakietów i MELPA
;; ----------------------------

(require 'package)

;; Dodaj repozytoria
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
                         ("gnu" . "https://elpa.gnu.org/packages/")
                         ("org" . "https://orgmode.org/elpa/")))

;; Inicjalizuj system pakietów
(package-initialize)

;; Odśwież listę pakietów, jeśli jest pusta
(unless package-archive-contents
  (package-refresh-contents))

      
;; Funkcja do instalowania pakietów
(defun ensure-package-installed (&rest packages)
  "Ensure that the given PACKAGES are installed.
Missing packages are automatically installed."
  (dolist (package packages)
    (unless (package-installed-p package)
      (package-install package))))





;; Instalacja wymaganych pakietów
(ensure-package-installed
 'use-package
 'magit
 'blacken
 'lsp-mode
 'lsp-ui
 'flycheck
 'company
 'jupyter
 'treemacs
 'winum
 'lsp-treemacs)

;; Wczytaj i skonfiguruj `use-package`
(unless (package-installed-p 'use-package)
  (package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)



;; Przełączanie się między oknami
(use-package winum
  :ensure t
  :config
  (winum-mode))





;; ----------------------------
;; Konfiguracja org-mode
;; ----------------------------

;; Definicja ścieżek dla Windows i Linux
(setq my-org-agenda-windows-path "C:/Users/TwojaNazwaUżytkownika/Documents/org/")
(setq my-org-agenda-linux-path "~/Nextcloud/todo/")

;; Definicja ścieżek do pliku todo.org
(setq my-todo-file-windows "C:/Users/TwojaNazwaUżytkownika/Documents/org/todo.org")
(setq my-todo-file-linux "~/Nextcloud/todo/todo.org")

;; Funkcja ustawiająca odpowiednią ścieżkę na podstawie systemu
(defun my-set-org-agenda-files ()
  "Ustaw pliki agendy Org w zależności od systemu operacyjnego."
  (setq org-agenda-files
        (directory-files-recursively
         (if (eq system-type 'windows-nt)
             my-org-agenda-windows-path
           my-org-agenda-linux-path)
         "\\.org$")))

;; Wywołaj funkcję przy starcie Emacs
(my-set-org-agenda-files)

;; Funkcja otwierająca plik todo.org
(defun my-open-todo-file ()
  "Otwórz plik todo.org w zależności od systemu operacyjnego."
  (interactive)
  (let ((todo-file (if (eq system-type 'windows-nt)
                       my-todo-file-windows
                     my-todo-file-linux)))
    (if (file-exists-p todo-file)
        (find-file todo-file)
      (message "Plik todo.org nie istnieje: %s" todo-file))))

;; Włącz org-mode automatycznie dla plików .org
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))

;; Włącz folding w org-mode (skróty klawiszowe)
(setq org-startup-folded t) ;; Start with folded headlines
(setq org-hide-leading-stars t) ;; Ukrywanie gwiazdek poza pierwszym poziomem
(setq org-ellipsis "⤵") ;; Znak na końcu zwiniętych sekcji


;; Ustawienia klawisza TAB w org-mode przy użyciu Evil
(add-hook 'org-mode-hook
          (lambda ()
            (evil-define-key 'normal org-mode-map (kbd "TAB") 'org-cycle)
            (evil-define-key 'normal org-mode-map (kbd "S-TAB") 'org-shifttab)))


;; Podświetlanie składni i elementów w org-mode
(setq org-fontify-whole-heading-line t) ;; Podświetlaj cały nagłówek
(setq org-fontify-done-headline t) ;; Podświetlaj ukończone nagłówki
(setq org-fontify-quote-and-verse-blocks t) ;; Podświetlaj bloki cytatów i wierszy

;; Automatyczne podświetlanie kodu w blokach źródłowych
(setq org-src-fontify-natively t)
(setq org-src-tab-acts-natively t)

;; Wsparcie dla hierarchicznego folding w org-mode
(setq org-cycle-separator-lines 2) ;; Próg zwijania między sekcjami

;; Wygląd i czytelność w org-mode
(setq org-hide-emphasis-markers t) ;; Ukryj znaki formatowania (*bold*, /italic/)
(setq org-pretty-entities t) ;; Wyświetl symbole matematyczne jako unicode
(setq org-highlight-latex-and-related '(latex script entities)) ;; Podświetlaj LaTeX

;; Współpraca z tytułami i nagłówkami
(setq org-startup-indented t) ;; Włącz automatyczne wcięcia
(setq org-indent-mode-turns-on-hiding-stars t) ;; Ukryj gwiazdki w nagłówkach

;; Funkcje dodatkowe
(setq org-log-done 'time) ;; Zapisuj czas oznaczenia zadania jako DONE
(setq org-return-follows-link t) ;; ENTER podąża za linkami



;; ----------------------------
;; Instalacja i konfiguracja LSP dla Python
;; ----------------------------
(use-package lsp-mode
  :ensure t
  :hook ((python-mode . lsp)) ;; Automatyczne uruchamianie LSP w Python-mode
  :commands lsp
  :config
  ;; Ustawienia LSP
  (setq-default flycheck-disabled-checkers '(python-pylint python-flake8))
  (setq lsp-headerline-breadcrumb-enable t) ;; Breadcrumb w nagłówku
  (setq lsp-completion-provider :capf) ;; Włączenie podpowiedzi capf
  (setq lsp-enable-snippet t) ;; Włączenie snippetów w podpowiedziach
  (setq lsp-pyright-auto-import-completions t) ;; Automatyczne podpowiedzi importów
  (setq lsp-pyright-diagnostic-mode "workspace") ;; Diagnostyka w kontekście projektu
  (setq lsp-pylsp-plugins-pyflakes-enabled nil) ;; Wyłącz pyflakes
  (setq lsp-diagnostics-provider :none) ;; Wyłącz diagnostykę LSP na rzecz Flycheck
  (setq lsp-pylsp-plugins-ruff-enabled t)     ;; Użyj flake8 zamiast pyflakes


   ;; Ścieżka do interpretera Python
  (setq lsp-pyright-python-executable-cmd "python3"))



(use-package lsp-ui
  :ensure t
  :hook (lsp-mode . lsp-ui-mode)
  :config
  ;; Ustawienia lsp-ui
  (setq lsp-ui-doc-enable t) ;; Dokumentacja w wyskakującym oknie
  (setq lsp-ui-doc-position 'at-point)
  (setq lsp-ui-sideline-enable t) ;; Diagnostyka w wierszu kodu
  (setq lsp-ui-sideline-show-hover t) ;; Podpowiedzi w wierszu
  (setq lsp-ui-sideline-show-code-actions t)) ;; Akcje kodu


;; ;; ----------------------------
;; ;; Flycheck - konfiguracja diagnostyki
;; ;; ----------------------------
(use-package flycheck
  :ensure t
  :hook (lsp-mode . flycheck-mode)
  :config
  ;; Priorytet diagnostyki LSP
  (setq flycheck-check-syntax-automatically '(save mode-enabled))
  (setq flycheck-highlighting-mode 'lines)
  (setq flycheck-indication-mode 'right-fringe))

(use-package lsp-ui-flycheck
  :after (lsp-mode flycheck)
  :ensure nil)

(defun set-flycheck-executables ()
  "Set Flycheck executables to use from the active Python virtual environment."
  (when (and (boundp 'pyvenv-virtual-env) pyvenv-virtual-env)
    (let* ((flake8-path (concat pyvenv-virtual-env
                                (if (eq system-type 'windows-nt)
                                    "/Scripts/flake8.exe"   ; Ścieżka na Windows
                                  "/bin/flake8")))         ; Ścieżka na Linux/Mac
           (pylint-path (concat pyvenv-virtual-env
                                (if (eq system-type 'windows-nt)
                                    "/Scripts/pylint.exe"   ; Ścieżka na Windows
                                  "/bin/pylint"))))        ; Ścieżka na Linux/Mac
      (when (file-executable-p flake8-path)
        (flycheck-set-checker-executable 'python-flake8 flake8-path))
      (when (file-executable-p pylint-path)
        (flycheck-set-checker-executable 'python-pylint pylint-path)))))
(add-hook 'flycheck-before-syntax-check-hook #'set-flycheck-executables)










;; Obsługa wirtualnych środowisk Python (pyvenv)
;; ----------------------------
(use-package pyvenv
  :ensure t
  :config
  ;; Automatyczna aktywacja środowiska venv w katalogu projektu
  (defun my-auto-activate-venv ()
    "Automatycznie aktywuj venv w bieżącym katalogu projektu."
    (let ((venv-path (locate-dominating-file default-directory "venv")))
      (when venv-path
        (pyvenv-activate (expand-file-name "venv" venv-path))
        (setq lsp-pyright-python-executable-cmd (expand-file-name "bin/python" venv-path)))))
  (add-hook 'python-mode-hook #'my-auto-activate-venv)

  ;; Dodanie informacji o aktywnym venv do modeline
  (defun my-get-current-venv ()
    "Zwraca nazwę aktywnego środowiska wirtualnego."
    (if (and (boundp 'pyvenv-virtual-env) pyvenv-virtual-env)
        (propertize (concat "venv: " (file-name-nondirectory (directory-file-name pyvenv-virtual-env)))
                    'face '(:foreground "green"))
      "No venv"))

  (setq-default mode-line-format
                (append mode-line-format
                        '((:eval (my-get-current-venv))))))

;; Skróty klawiszowe dla pyvenv
(global-set-key (kbd "C-c v a") 'pyvenv-activate)    ;; Aktywuj środowisko
(global-set-key (kbd "C-c v d") 'pyvenv-deactivate) ;; Dezaktywuj środowisko
(global-set-key (kbd "C-c v w") 'pyvenv-workon)     ;; Przełącz środowisko (workon)

;; ----------------------------
;; System podpowiedzi: Company
;; ----------------------------
(use-package company
  :ensure t
  :hook (lsp-mode . company-mode)
  :config
  (setq company-idle-delay 0.2) ;; Opóźnienie podpowiedzi
  (setq company-minimum-prefix-length 1) ;; Minimalna długość prefiksu dla podpowiedzi
  (setq company-selection-wrap-around t)) ;; Zawijanie w menu podpowiedzi

;; ----------------------------
;; Magit i zarządzanie projektami
;; ----------------------------
(use-package magit
  :ensure t
  :config
  (setq magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))

(use-package treemacs
  :ensure t
  :config
  (global-set-key (kbd "C-c t") 'treemacs) ;; Skrót do otwierania Treemacs
  (setq treemacs-position 'right) ;; Pozycja drzewa po prawej stronie
  (setq treemacs-follow-mode t) ;; Automatyczne śledzenie otwartego pliku
  (setq treemacs-filewatch-mode t) ;; Automatyczne odświeżanie
  (setq treemacs-git-mode 'deferred)) ;; Obsługa Git w Treemacs

(use-package lsp-treemacs
  :ensure t
  :after (lsp-mode treemacs)
  :config
  (lsp-treemacs-sync-mode 1))

;; ----------------------------
;; Ulepszenia interfejsu: which-key
;; ----------------------------
(use-package which-key
  :ensure t
  :config
  (which-key-mode)
  (setq which-key-idle-delay 0.5) ;; Opóźnienie wyświetlania podpowiedzi
  (setq which-key-idle-secondary-delay 0.1))

;; ----------------------------
;; Konfiguracja Evil i lidera (leader key)
;; ----------------------------
(use-package evil
  :ensure t
  :config
  (evil-mode 1))

(use-package evil-leader
  :ensure t
  :config
  (global-evil-leader-mode)
  (evil-leader/set-leader "<SPC>")
  (evil-leader/set-key
    "g g" 'magit-status
    "o o" 'my-open-todo-file
    "o f" 'org-overview
    "o l" 'org-agenda-list
    "o i" 'org-clock-in
    "o s" 'org-clock-out
    "o r" 'org-clock-report
    "g a" 'magit-remote-add
    "f f" 'find-file
    "b b" 'switch-to-buffer
    "b m" 'buffer-menu
    "b w" 'buffer-menu-open
    "t t" 'treemacs
    "t a" 'treemacs-add-project-to-workspace
    "t r" 'treemacs-remove-project-from-workspace
    "t c" 'treemacs-copy-file
    "t f" 'treemacs-create-file
    "t m" 'treemacs-rename-file
    "l l" 'toggle-truncate-lines
    "l n" 'display-line-numbers-mode
    "j s" 'jupyter-run-server-repl
    "j a" 'jupyter-repl-associate-buffer
    "s e" 'eshell
    "e l" 'flycheck-list-errors
    "n n" 'narrow-to-region
    "n w" 'widen
    "a" 'mark-whole-buffer
    "TAB" (lambda () (interactive) (switch-to-buffer (other-buffer)))
    "1" 'winum-select-window-1
    "2" 'winum-select-window-2
    "3" 'winum-select-window-3
    "4" 'winum-select-window-4
    "5" 'winum-select-window-5))

(which-key-add-key-based-replacements
  "<SPC> g" "Magit"
  "<SPC> e" "Errors"
  "<SPC> n" "Narrow"
  "<SPC> f" "Files"
  "<SPC> b" "Buffers"
  "<SPC> t" "Treemacs"
  "<SPC> l" "Lines"
  "<SPC> j" "Jupyter"
  "<SPC> s" "Shell"
  "<SPC> o" "Org"
  )


;; Utwórz mapę klawiszy dla "SPC"
(define-prefix-command 'my-space-prefix)
(define-key evil-normal-state-map (kbd "SPC") 'my-space-prefix)

;; Dodaj mapowanie "SPC 0" do Treemacs
(define-key my-space-prefix (kbd "0") 'my-treemacs-select-or-open)

;; Funkcja, która przełącza się na okno Treemacs lub je otwiera
(defun my-treemacs-select-or-open ()
  "Przełącz się na okno Treemacs lub otwórz Treemacs, jeśli nie jest aktywne."
  (interactive)
  (if (treemacs-get-local-window)
      (treemacs-select-window)
    (treemacs)))

;; ----------------------------
;; Dodanie obsługi komentowania za pomocą "gc"
;; ----------------------------
(use-package evil-commentary
  :ensure t
  :after evil
  :config
  (evil-commentary-mode))


;; ----------------------------
;; Wygląd: Motyw i minimalistyczny interfejs
;; ----------------------------
(use-package gruvbox-theme
  :ensure t
  :config
  (load-theme 'gruvbox-dark-medium t))

(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(setq inhibit-startup-message t)


;; ----------------------------
;; Formatowanie kodu z Black
;; ----------------------------
(use-package blacken
  :ensure t
  :hook (python-mode . blacken-mode)
  :config
  (setq blacken-line-length 75))


;; ----------------------------
;; Podsumowanie i test
;; ----------------------------
(recentf-mode 1)
(setq recentf-max-menu-items 25) ;; Maksymalna liczba plików na liście
(global-set-key (kbd "C-c r") 'recentf-open-files) ;; Skrót do ostatnich plików

;; ----------------------------
;; Other keys
;; ----------------------------
(global-set-key (kbd "C-c e") 'eshell)
(global-set-key (kbd "C-c d") 'flycheck-list-errors)

(global-set-key (kbd "C-c j s") 'jupyter-run-server-repl)       ;; Połącz się z serwerem
(global-set-key (kbd "C-c j a") 'jupyter-repl-associate-buffer) ;; Powiąż bufor z REPL
(global-set-key (kbd "C-c j b") 'jupyter-eval-buffer)           ;; Wykonaj cały bufor


(setq initial-scratch-message (concat ";; Aby otworzyć org daj na SPC o o \n"
                                      ";; Aby otworzyć ostatnie pliki daj na C-c r\n"
                                      ";; Aby otworzyć treemacs daj na C-c t \n"
                                      ";; Aktywacja środowiska pyenv C-c v a \n"
                                      ";; Eshell C-c e \n"
                                      ";; Pokaż błędy flycheck C-c d \n"
                                      "\n"
                                      ";;Jupyter \n"
                                      ";;Wykonaj Połącz się z serwerem C-c j s \n"
                                      ";;Powiazanie bufora REPL C-c j a \n"
                                      ";;Wykonaj cały bufor C-c j b \n"
                                      ";;Wykkonaj region C-c C-c \n"))
(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.
 '(package-selected-packages
   '(evil-commentary yasnippet which-key vterm request pyvenv polymode neotree magit lsp-ui lsp-treemacs jupyter highlight-indentation gruvbox-theme evil-org evil-leader deferred company anaphora)))
(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.
 )
(put 'narrow-to-region 'disabled nil)