今日やった事 - 20240817

;;; macos-sound --- macOS Utility. -*- lexical-binding: t -*-

;; Copyright (C) 2024 TakesxiSximada

;; Author: TakesxiSximada <[email protected]>
;; Maintainer: TakesxiSximada <[email protected]>
;; Version: 3
;; Package-Version: 20240817.0000
;; Package-Requires: ((emacs "29.1"))
;; Date: 2024-08-17

;; This file is not part of GNU Emacs.

;;; License:

;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with this program.  If not, see
;; <https://www.gnu.org/licenses/>.

;;; Code:
(defvar macos-sound-osascript-base-command-list
  '("/usr/bin/osascript" "-e"))

(defvar macos-sound-get-current-volume-level-buffer-name "*macOS Volume: status*")

(defun macos-sound-get-current-volume-level ()
  (with-current-buffer (get-buffer-create macos-sound-get-current-volume-level-buffer-name)
    (erase-buffer)
    (call-process
     "/usr/bin/osascript" nil (get-buffer macos-sound-get-current-volume-level-buffer-name) nil
     "-e" "output volume of (get volume settings)")
    (string-trim
     (buffer-substring-no-properties (point-min) (point-max)))))

(defun macos-sound-mute ()
  (interactive)
  (make-process
   :name "*macOS Volume*"
   :buffer "*macOS Volume*"
   :command `(,@macos-sound-osascript-base-command-list
	      ,(format "set volume with output muted"))))

(defun macos-sound-unmute ()
  (interactive)
  (make-process
   :name "*macOS Volume*"
   :buffer "*macOS Volume*"
   :command `(,@macos-sound-osascript-base-command-list
	      ,(format "set volume without output muted"))))

(defun macos-sound-change-volume (volume-level)
  (interactive (list (completing-read "Volume Level: " '("0" "10" "20" "30" "40" "50" "60"))))
  (make-process
   :name "*macOS Volume*"
   :buffer "*macOS Volume*"
   :command `(,@macos-sound-osascript-base-command-list
	      ,(format "set volume output volume %s" volume-level))))

(provide 'macos-sound)
;;; macos-sound.el ends here