(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 start-irc (nick)
  (interactive "sTell me your nick please: ")
  (erc-tls :server "irc.libera.chat"
           :port 6697
           :nick nick
           :full-name "emacs-user"))

(defun me/org-copy-subtree-contents ()
  "Get the content text of the subtree at point and add it to the `kill-ring'.
Excludes the heading and any child subtrees."
  (interactive)
  (if (org-before-first-heading-p)
      (message "Not in or on an org heading")
    (save-excursion
      ;; If inside heading contents, move the point back to the heading
      ;; otherwise `org-agenda-get-some-entry-text' won't work.
      (unless (org-on-heading-p) (org-previous-visible-heading 1))
      (let ((contents (substring-no-properties
                       (org-agenda-get-some-entry-text
                        (point-marker)
                        most-positive-fixnum))))
        (message "Copied: %s" contents)
        (kill-new contents)))))

(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)))))))