;;; crafted-osx-config.el --- osx specific config -*- lexical-binding: t -*-

;; Copyright (C) 2022
;; SPDX-License-Identifier: MIT

;; Author: System Crafters Community

;;; Commentary:

;; Make OSX feel more at home

;;; Code:

;;; Titlebar

(defun crafted-osx-transparent-titlebar ()
  "Set the titlebar to be transparent."
  (when (featurep 'ns)
    (interactive)
    (customize-set-variable 'frame-resize-pixelwise t)
    (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))))

;;; Special keys
(when (eq system-type 'darwin)
  (customize-set-variable 'mac-right-option-modifier nil)
  (customize-set-variable 'mac-command-modifier 'super)
  (when (featurep 'ns)
    (customize-set-variable 'ns-function-modifier 'hyper)))

;;; Keybinds

(keymap-global-set "s-W" #'delete-frame) ; ⌘-W = Close window
(keymap-global-set "s-}" #'tab-bar-switch-to-next-tab) ; ⌘-} = Next tab
(keymap-global-set "s-{" #'tab-bar-switch-to-prev-tab) ; ⌘-{ = Previous tab
(keymap-global-set "s-t" #'tab-bar-new-tab) ;⌘-t = New tab
(keymap-global-set "s-w" #'tab-bar-close-tab) ; ⌘-w = Close tab

(unless (version< emacs-version "28")
  (keymap-global-set "s-Z" 'undo-redo)) ; ⌘-Z = Redo

;;; Better compatibility with osx based window managers

(when (featurep 'ns)
  (defun ns-raise-emacs ()
    "Raise Emacs."
    (ns-do-applescript "tell application \"Emacs\" to activate"))
  (defun ns-raise-emacs-with-frame (frame)
    "Raise Emacs and select the provided frame."
    (with-selected-frame frame
      (when (display-graphic-p)
        (ns-raise-emacs))))
  (add-hook 'after-make-frame-functions 'ns-raise-emacs-with-frame)
  (when (display-graphic-p)
    (ns-raise-emacs)))

(provide 'crafted-osx-config)
;;; crafted-osx-config.el ends here