daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity
Files
dc04f5ab1a593edfafb454c98c8eb2adffa1b7b0
emacs/lisp/emacs-application-framework/app/netease-cloud-music/eaf-netease-cloud-music.el
Daniel Weschke 2e35b2ef92 update packages
2022-01-04 15:21:47 +01:00

326 lines
14 KiB
EmacsLisp
Raw Blame History

;;; eaf-netease-cloud-music.el --- EAF Netease Cloud Music App -*- lexical-binding: t -*-
;; Author: SpringHan
;; Maintainer: SpringHan
;; This file is not part of GNU Emacs
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, 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 General Public License for more details.
;; For a full copy of the GNU General Public License
;; see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(defcustom eaf-netease-cloud-music-user+list '()
""
:type 'cons)
(defcustom eaf-netease-cloud-music-keybinding
'(("<f12>" . "open_devtools")
("<up>" . "eaf--netease-cloud-music-move-song-up")
("<down>" . "eaf--netease-cloud-music-move-song-down")
("SPC" . "netease-cloud-music-pause-or-continue")
("<return>" . "eaf--netease-cloud-music-switch-enter")
("C-n" . "js_scroll_up")
("C-p" . "js_scroll_down")
("M-v" . "js_scroll_up_page")
("M-V" . "js_scroll_down_page")
("M-<" . "js_scroll_to_begin")
("M->" . "js_scroll_to_bottom")
("M-f" . "netease-cloud-music-switch-next-page")
("M-b" . "netease-cloud-music-switch-prev-page")
("M-n" . "js_scroll_playlist_up")
("M-p" . "js_scroll_playlist_down")
("q" . "netease-cloud-music-back")
("Q" . "netease-cloud-music-quit")
("r" . "netease-cloud-music-change-repeat-mode")
("x" . "netease-cloud-music-kill-current-song")
("/" . "eaf--netease-cloud-music-play-with-index")
("n" . "js_play_next")
("N" . "netease-cloud-music-random-play")
("p" . "js_play_prev")
("P" . "netease-cloud-music-playlist-play")
("c" . "netease-cloud-music-change-lyric-type")
("d" . "eaf--netease-cloud-music-delete-song-from-playlist")
("D" . "netease-cloud-music-delete-playing-song")
("<" . "netease-cloud-music-seek-backward")
(">" . "netease-cloud-music-seek-forward")
("k" . "netease-cloud-music-clear-playlist")
("w" . "eaf--netease-cloud-music-write-mode-enter")
("s" . "eaf--netease-cloud-music-switch-playlist")
("f" . "netease-cloud-music-search-song")
("F" . "netease-cloud-music-search-playlist")
("a" . "eaf--netease-cloud-music-add-to-playlist")
("A" . "netease-cloud-music-switch-add-page")
("C" . "netease-cloud-music-create-playlist")
("m" . "netease-cloud-music-change-playlist-name")
("M" . "netease-cloud-music-delete-playlist")
("g" . "eaf--netease-cloud-music-cancel-search")
("l" . "netease-cloud-music-login")
("e" . "netease-cloud-music-get-recommend-songs")
("E" . "netease-cloud-music-get-recommend-playlists")
("j" . "netease-cloud-music-storage-song")
("J" . "netease-cloud-music-add-storage-to-current-playlist")
("o" . "netease-cloud-music-show-storage")
("O" . "netease-cloud-music-delete-song-from-storage")
("K" . "netease-cloud-music-clear-storage")
)
"The keybinding of EAF Netease Cloud Music."
:type 'cons)
(add-to-list 'eaf-app-binding-alist '("netease-cloud-music" . eaf-netease-cloud-music-keybinding))
(setq eaf-netease-cloud-music-module-path (concat (file-name-directory load-file-name) "buffer.py"))
(add-to-list 'eaf-app-module-path-alist '("netease-cloud-music" . eaf-netease-cloud-music-module-path))
(defun eaf--netease-cloud-music-change-playlist (pid)
"Change the current playlist to PID."
(when (featurep 'netease-cloud-music)
(when (stringp pid)
(setq pid (string-to-number pid)))
(let (playlist)
(cond ((= pid 0)
(setq netease-cloud-music-use-local-playlist t
netease-cloud-music-playlists-songs nil
netease-cloud-music-playlist-id nil)
(when netease-cloud-music-playlist-refresh-timer
(cancel-timer netease-cloud-music-playlist-refresh-timer)
(setq netease-cloud-music-playlist-refresh-timer nil))
(setq playlist netease-cloud-music-playlist))
((and netease-cloud-music-playlists
(netease-cloud-music-alist-cdr
pid netease-cloud-music-playlists))
(setq netease-cloud-music-use-local-playlist nil
netease-cloud-music-playlist-id pid
netease-cloud-music-playlists-songs
(netease-cloud-music-get-playlist-songs
netease-cloud-music-playlist-id))
(setq playlist netease-cloud-music-playlists-songs))
(t (na-error "The pid cannot be found!")))
(eaf-call-async "eval_js_function" eaf--buffer-id
"change_playlist_style"
(json-encode
(if netease-cloud-music-use-local-playlist
0
(1+ (cl-position
(netease-cloud-music-alist-cdr
netease-cloud-music-playlist-id
netease-cloud-music-playlists)
netease-cloud-music-playlists)))))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_playlist" (json-encode-array playlist)))
(when netease-cloud-music-process
(netease-cloud-music-kill-current-song))))
(defun eaf--netease-cloud-music-change-play-status ()
"Change play status."
(let ((icon (pcase netease-cloud-music-process-status
("playing" "pause-circle")
("paused" "play-circle")
(_ "play-circle"))))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_play_icon_status"
(json-encode icon))))
(defun eaf--netease-cloud-music-init ()
"Init the netease-cloud-music."
(when eaf-netease-cloud-music-user+list
(eaf-call-async "eval_js_function" eaf--buffer-id
"update_user_info" (json-encode eaf-netease-cloud-music-user+list)))
(when netease-cloud-music-playlists
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_user_playlists"
(json-encode-array
(netease-cloud-music--cons-to-list
netease-cloud-music-playlists))))
(eaf-call-async "eval_js_function" eaf--buffer-id
"change_playlist_style"
(json-encode
(list (if netease-cloud-music-use-local-playlist
0
(1+ (cl-position
(netease-cloud-music-alist-cdr
netease-cloud-music-playlist-id
netease-cloud-music-playlists)
netease-cloud-music-playlists)))
t)))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_repeat_mode"
(json-encode netease-cloud-music-repeat-mode))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_panel_song_info"
(json-encode
(if netease-cloud-music-process
(list (car netease-cloud-music-current-song)
(nth 1 netease-cloud-music-current-song))
(list "" ""))))
(eaf--netease-cloud-music-change-play-status)
(netease-cloud-music-get-playlist)
(unless (file-exists-p netease-cloud-music-cache-directory)
(make-directory netease-cloud-music-cache-directory))
(when (and (netease-cloud-music--api-downloaded)
(not (netease-cloud-music-api-process-live-p)))
(netease-cloud-music-start-api))
(when (file-exists-p netease-cloud-music-user-loginfo-file)
(let ((loginfo (netease-cloud-music-get-loginfo)))
(when loginfo
(setq netease-cloud-music-phone (car loginfo)
netease-cloud-music-user-password (cdr loginfo)
netease-cloud-music-login-timer
(run-with-timer
1 2
(lambda ()
(if (and netease-cloud-music-user-id
netease-cloud-music-username)
(progn
(cancel-timer netease-cloud-music-login-timer)
(setq netease-cloud-music-login-timer nil))
(netease-cloud-music--get-user-info)
(ignore-errors
(setq netease-cloud-music-playlists
(netease-cloud-music-get-user-playlist
netease-cloud-music-user-id))
(with-current-buffer "eaf-netease-cloud-music"
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_user_playlists"
(json-encode-array
(netease-cloud-music--cons-to-list
netease-cloud-music-playlists))))))))))))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_playlist"
(json-encode-array
(if netease-cloud-music-use-local-playlist
netease-cloud-music-playlist
netease-cloud-music-playlists-songs)))
(eaf--netease-cloud-music--update-song-style))
(defun eaf--netease-cloud-music--update-song-style ()
"Update song style."
(when (string= "playing" netease-cloud-music-process-status)
(eaf-call-async "eval_js_function" eaf--buffer-id
"change_song_style" netease-cloud-music-playlist-song-index)))
(defun eaf--netease-cloud-music-play-with-index ()
"Read index from Minibuffer."
(interactive)
(let* ((index (read-number "Enter the song's index: "))
(song (nth (1- index)
(if netease-cloud-music-use-local-playlist
netease-cloud-music-playlist
netease-cloud-music-playlists-songs))))
(if (null song)
(user-error "[EAF/Netease-Cloud-Music]: The index is error!")
(netease-cloud-music-play
(car song) (nth 1 song) (nth 3 song)))))
(defun eaf--netease-cloud-music-delete-song-from-playlist ()
"Delete song from playlist read from Minibuffer."
(interactive)
(let ((index (read-number "Enter the song's index: ")))
(netease-cloud-music-delete-song-from-playlist (1- index))))
(defun eaf--netease-cloud-music-move-song (up)
"Move the song read from Minibuffer up or down.
If Up is not non-nil, move the song up.Otherwise move it down."
(let ((index (read-number "Enter the song's index: ")))
(if (string= up "True")
(netease-cloud-music-move-up (1- index))
(netease-cloud-music-move-down (1- index)))))
(defun eaf--netease-cloud-music-move-song-up ()
"Move song up."
(interactive)
(eaf--netease-cloud-music-move-song t))
(defun eaf--netease-cloud-music-move-song-down ()
"Move song down."
(interactive)
(eaf--netease-cloud-music-move-song nil))
(defun eaf--netease-cloud-music-write-mode-enter ()
"Enter the write mode."
(interactive)
(switch-to-buffer (get-buffer-create "eaf-netease-cloud-music-write"))
(netease-cloud-music-write-mode))
(defun eaf--netease-cloud-music-switch-enter (&optional index)
"Add current song or playlist into current playlist."
(interactive)
(cond ((null index)
(setq index (1- (read-number "Enter the item's index: "))))
((stringp index)
(setq index (string-to-number index))))
(if (eq netease-cloud-music-search-type 'song)
(netease-cloud-music-switch-enter index)
(netease-cloud-music-playlist-enter index)))
(defun eaf--netease-cloud-music-switch-playlist ()
"Switch playlist by getting index."
(interactive)
(with-current-buffer "eaf-netease-cloud-music"
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_index_style" (json-encode t))
(let ((index (1- (read-number "Enter the playlist's index: "))))
(eaf--netease-cloud-music-change-playlist
(if (= index 0)
index
(cdr (nth (1- index) netease-cloud-music-playlists)))))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_index_style" (json-encode nil))))
(defun eaf--netease-cloud-music-add-to-playlist ()
"Add the search songs or playlists to current playlist."
(interactive)
(if (eq netease-cloud-music-search-type 'song)
(netease-cloud-music-switch-add-to-playlist)
(netease-cloud-music-playlist-add-all)))
(defun eaf--netease-cloud-music-cancel-search ()
"Cancel search."
(interactive)
(eaf-call-async "eval_js_function" eaf--buffer-id
"change_playlist_mode"
(json-encode nil))
(eaf-call-async "eval_js_function" eaf--buffer-id
"set_playlist"
(json-encode-array
(if netease-cloud-music-use-local-playlist
netease-cloud-music-playlist
netease-cloud-music-playlists-songs)))
(netease-cloud-music-adjust-song-index))
;;;###autoload
(defun eaf-open-netease-cloud-music ()
"Open EAF netease cloud music."
(interactive)
(if (ignore-errors (or (featurep 'netease-cloud-music)
(load-library "netease-cloud-music")))
(progn
(setq netease-cloud-music-last-buffer (current-buffer))
(if (get-buffer "eaf-netease-cloud-music")
(switch-to-buffer "eaf-netease-cloud-music")
(eaf-open "eaf-netease-cloud-music" "netease-cloud-music")))
(user-error "[EAF/Netease-Cloud-Music]: You haven't install the package netease-cloud-music.")))
(provide 'eaf-netease-cloud-music)
;;; eaf-netease-cloud-music.el ends here
Reference in New Issue View Git Blame Copy Permalink