 (define-key ggtags-mode-map (kbd "C-c g u") 'ggtags-update-tags)
 (define-key ggtags-mode-map (kbd "M-,") 'pop-tag-mark)
 
+;; https://www.masteringemacs.org/article/my-emacs-keybindings
+(global-set-key (kbd "C-x C-b") 'ibuffer)
+(global-set-key (kbd "<S-C-left>") 'shrink-window-horizontally)
+(global-set-key (kbd "<S-C-down>") 'shrink-window)
+(global-set-key (kbd "<S-C-right>") (lambda () (interactive) (shrink-window-horizontally -1)))
+(global-set-key (kbd "<S-C-up>") (lambda () (interactive) (shrink-window -1)))
+(global-set-key (kbd "<S-C-up>") (lambda () (interactive) (shrink-window -1)))
+(global-set-key (kbd "C-x C-r") 'ido-recentf-open)
+
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (scroll-bar-mode -1)

(setq scroll-conservatively 10000)

(setq-default indent-tabs-mode nil)

;; Ocaml configuration.
 (push

      (when (and (buffer-file-name) (file-exists-p (buffer-file-name)) (not (buffer-modified-p)))
        (revert-buffer t t t) )))
  (message "Refreshed open files.") )

;; https://www.masteringemacs.org/article/find-files-faster-recent-files-package
(defun ido-recentf-open ()
  "Use `ido-completing-read' to \\[find-file] a recent file"
  (interactive)
  (if (find-file (ido-completing-read "Find recent file: " recentf-list))
      (message "Opening file...")
    (message "Aborting")))
