;; (defun mk-show-modeline ()
;;   (interactive)
;;   (setq mode-line-format
;;         '(("-" mode-line-mule-info
;;            mode-line-modified
;;            mode-line-frame-identification
;;            mode-line-buffer-identification " "
;;            mode-line-position
;;            mode-line-modes
;;            (which-func-mode
;;             ("" which-func-format "--"))
;;            (global-mode-string
;;             ("--" global-mode-string)) "-%-")))
;;   (defvar mode-line-format-current
;;     (symbol-value 'mode-line-format)))

;; (defun mk-hide-modeline ()
;;   (interactive)
;;   (setq mode-line-format nil))

;; (defun mk-write-mode-enable ()
;;   (setq olivetti-body-width 73)
;;   (olivetti-mode)
;;   (mk-hide-modeline))

;; (defun mk-write-mode-disable ()
;;   (olivetti-mode)
;;   (mk-show-modeline))

(defun me/split-windows-horizontal (count-windows)
  "Split windows horizontal by equal width."
  (interactive "nHow many splits? ")
  (delete-other-windows)
  (let ((width (/ (window-total-width) count-windows)))
    (dotimes (i (1- count-windows))
      (split-window-right (- width)))))

(defun me/split-windows-vertical (count-windows)
  "Split windows vertical by equal width."
  (interactive "nHow many splits? ")
  (delete-other-windows)
  (let ((height (/ (window-total-height) count-windows)))
    (dotimes (i (1- count-windows))
      (split-window-below (- height)))))

(defun me/split-h3 ()
  (interactive)
  (me/split-windows-horizontal 3))

(defun me/split-v3 ()
  (interactive)
  (me/split-windows-vertical 3))

;; Set transparency of emacs
(defun transparency (value)
  "Sets the transparency of the frame window. 0=transparent/100=opaque"
  (interactive "nTransparency Value 0 - 100 opaque: ")
  (set-frame-parameter (selected-frame) 'alpha value))

(defun jnf/magit-browse-pull-request ()
  "In `magit-log-mode', open the associated pull request at point."
  (interactive)
  (let* ((remote-url
          (car
           (git-link--exec "remote" "get-url"
                           (format "%s" (magit-get-current-remote)))))
         (beg (line-beginning-position))
         (end (line-end-position))
         (region (buffer-substring-no-properties beg end)))
    (save-match-data
      (and (string-match "(\\#\\([0-9]+\\))$" region)
           (browse-url-default-macosx-browser
            (concat
             (s-replace ".git" "" remote-url)
             "/pull/"
             (match-string 1 region)))))))

;; (if (display-graphic-p)
;;     (add-hook 'after-init-hook (lambda () (org-agenda-list) (me/split-h3)))
;;   (org-agenda-list))