Emacs configs

buffers-menu.el

(defun my-buffers-list ()
  (interactive)
  (select-window (list-buffers)))

(global-set-key (kbd "C-x C-b") #'my-buffers-list)
      

c-stuff.el

(defun bambucha-style () "Styl"
  (c-set-style "bsd")
  (setq c-basic-offset 4))
(add-hook 'c-mode-common-hook #'bambucha-style)

(defun compile-keybinding () "Bindings do kompilacji"
  (define-key c-mode-base-map (kbd "C-c C-m") 'compile))
(add-hook 'c-mode-common-hook #'compile-keybinding)

(defun make-CR-do-indent () "Ładne łamanie lini z auto wyrównaniem pod RET"
  (define-key c-mode-base-map (kbd "C-m") 'c-context-line-break))
(add-hook 'c-initialization-hook #'make-CR-do-indent)
(setq indent-tabs-mode nil) ;;Indent tylko spacjami

encoding.el

(prefer-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)

fullscreen.el

(defun toggle-fullscreen ()
  (interactive)
  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
  (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)))
(when window-system
  (toggle-fullscreen))

indent-buffer.el

(defun indent-buffer ()
  "indent whole buffer"
  (interactive)
  (delete-trailing-whitespace)
  (indent-region (point-min) (point-max) nil)
  (unless (eql major-mode makefile-mode)
    (untabify (point-min) (point-max))))

one-frame-speedbar.el

(defconst my-speedbar-buffer-name "SPEEDBAR")
(defvar my-speedbar-window nil)

(defun my-speedbar-no-separate-frame ()
  (interactive)

  (defun clean-on-kill-buffer ()
    (when (eq (current-buffer) speedbar-buffer)
      (setq speedbar-frame nil
	    dframe-attached-frame nil
	    speedbar-buffer nil)
      (speedbar-set-timer nil)))

  (when (not (buffer-live-p speedbar-buffer))
    (setq speedbar-buffer (get-buffer-create my-speedbar-buffer-name)
	  speedbar-frame (selected-frame)
	  dframe-attached-frame (selected-frame)
	  speedbar-select-frame-method 'attached
	  speedbar-verbosity-level 0
	  speedbar-last-selected-file nil)
    (set-buffer speedbar-buffer)
    (speedbar-mode)
    (speedbar-reconfigure-keymaps)
    (speedbar-update-contents)
    (speedbar-set-timer 1)
    (add-hook 'kill-buffer-hook #'clean-on-kill-buffer)
    (delete-other-windows  (selected-window))
    (split-window-right (/ (frame-width) 5))
    (setq my-speedbar-window (selected-window)))

  (set-window-buffer (selected-window)
		     (get-buffer my-speedbar-buffer-name))
  (set-window-dedicated-p (selected-window) t))
 
(defun my-speedbar-select ()
  (interactive)
  (select-window my-speedbar-window))
(global-set-key (kbd "C-x O") #'my-speedbar-select)

(defun my-speedbar-ignore-in-other-window ()
  (interactive)
  (let ((next (next-window)))
    (when (eq (window-buffer next) speedbar-buffer)
	(other-window 1))
    (other-window 1)))
(global-set-key (kbd "C-x o") #'my-speedbar-ignore-in-other-window)