added AGENTS.md

doomdir/config.el

@@ -31,9 +31,6 @@
 
 
 ;;; projectile find file - quick switcher
-(after! evil
-  (map! :gnv "C-e" #'projectile-find-file)
-)
 (after! 'better-jumper
   (map! :gnv "C-i" #'projectile-find-file)
 )
@@ -158,7 +155,7 @@
   :config
   (emms-all) ;; Loads stable EMMS features
   (setq emms-source-file-default-directory "~/work/music/"
-        emms-player-list '(emms-player-vlc))
+        emms-player-list '(emms-player-mpv))
 )
 
 ;;; infrasonic
@@ -166,72 +163,145 @@
 (defvar my-subsonic-client
   (infrasonic-make-client :url "tunes.c2vi.dev")
 )
-(defun my-play-playlist (playlist-id)
-  "Fetch a Subsonic playlist by PLAYLIST-ID using infrasonic.el and load it into EMMS."
-  (interactive "sEnter Subsonic Playlist ID: ")
-  (message "Fetching Subsonic playlist %s..." playlist-id)
+(defun my-pick-song ()
+  (interactive)
+  (let* (
+     (playlist (infrasonic-get-playlist my-subsonic-client "6ad5avelak6Lnu2yEbWwjj"))
+     (entries (cdr (assoc 'entry playlist)))
+     (candidates (list))
+     (urls '())
+     (void (dolist (song entries)
+      (let* (
+        (artist (cdr (assoc 'artist song)))
+        (cropped-artist (truncate-string-to-width artist 50))
+        (title (cdr (assoc 'title song)))
+        (id (cdr (assoc 'id song)))
+        (line (format "%-50s - %s" cropped-artist title))
+        (stream-url (infrasonic-get-stream-url my-subsonic-client id))
+      )
+        (add-to-list 'candidates line)
+        (push (cons line stream-url) urls)
+      )
+     ))
+     (completion-result (completing-read "Select track: " candidates))
+     (url (cdr (assoc completion-result urls)))
+    )
+    (emms-play-url url)
+  )
+)
+
+(defun my-load-playlist ()
+  (interactive)
+  (emms-playlist-mode-go)
+  (emms-playlist-clear)
 
   (let* (
-      (playlist-id "6I9sKLo2NfnyzdtShKwreO")
+      (playlist-id "6ad5avelak6Lnu2yEbWwjj")
       (playlist (infrasonic-get-playlist
         my-subsonic-client
         playlist-id
       ))
       (entries (cdr (assoc 'entry playlist)))
       (track-count 0)
+      (void (dolist (track entries)
+          (let* (
+            (track-id (cdr (assoc 'id track)))
+            (title (cdr (assoc 'title track)))
+            (artist (cdr (assoc 'artist track)))
+            (stream-url (infrasonic-get-stream-url my-subsonic-client track-id))
+            (emmstrack (emms-track 'url stream-url))
+          )
+            ;(message title)
+            (emms-track-set emmstrack 'info-title title)
+            (emms-track-set emmstrack 'info-artist artist)
+            (funcall emms-playlist-insert-track-function emmstrack)
+          )
+      ))
     )
-
-    (dolist (track entries)
-      (let* (
-        (track-id (cdr (assoc 'id track)))
-        (stream-url (infrasonic-get-stream-url my-subsonic-client track-id))
-      )
-        ;(emms-add-url stream-url)
-        ;(emms-add-track
-           ;(emms-track 'url stream-url))
-        ;(setq track-count (1+ track-count))
-        ;(emms-playlist-select-first)
-        ;(emms-start)
-      )
     )
-        entries
-        (infrasonic-get-stream-url my-subsonic-client "7id7XzpofiHmnJPqfORA0O")
-  )
-
-     (lambda (playlist-data)
-       ;; This callback executes on a successful API response
-       (let*
-           (
-
-         ;; Ensure EMMS is ready and clear old queue if desired
-         (emms-playlist-ensure-playlist-buffer)
-
-         ;; 3. Loop through every track returned by the API
-         (dolist (track entries)
-           (let* ((track-id (plist-get track :id))
-                  ;; Generate the authenticated streaming URL using infrasonic
-                  (stream-url (infrasonic-stream-url client track-id)))
-
-             ;; 4. Insert the URL track directly into the EMMS track ecosystem
-             (emms-add-track
-              (emms-track 'url stream-url))
-             (setq track-count (1+ track-count))))
-
-         (message "Successfully loaded %d tracks into EMMS from playlist!" track-count)
-
-         ;; 5. Start playback immediately if nothing is playing
-         (unless emms-player-playing-p
-           (emms-playlist-select-first)
-           (emms-start))))
-
-     ;; Error callback handling
-     (lambda (error-data)
-       (error "Infrasonic playlist fetch failed: %S" error-data)))
 )
-(defun my-play-work () (interactive)(my-play-playlist "6I9sKLo2NfnyzdtShKwreO"))
 
 
 
+;;; my finder
+(defun my/obsidian--extra-files ()
+  "Return Markdown files from additional directories."
+  (let ((directory "~/notes/reference"))
+    (when (file-directory-p directory)
+      (directory-files-recursively
+       (expand-file-name directory)
+       "\\.md\\'"))))
+
+(defun my/obsidian--candidate-data ()
+  "Return `(DISPLAY . FILE)' candidates for the Obsidian finder."
+  (let (result)
+
+    ;; Files known to obsidian.el.
+    (maphash
+     (lambda (file metadata)
+       (let* ((tags (gethash 'tags metadata))
+              (aliases (gethash 'aliases metadata))
+              (title (file-name-base file))
+              (display
+               (concat
+                title
+                (when aliases
+                  (format "  [%s]" (string-join aliases ", ")))
+                (when tags
+                  (format "  #%s"
+                          (string-join tags " #"))))))
+         (push (cons display file) result)))
+     obsidian-vault-cache)
+
+    ;; Files in the additional directory.
+    (dolist (file (my/obsidian--extra-files))
+      (unless (assoc (file-name-base file) result)
+        (push (cons (file-name-base file) file) result)))
+
+    result))
+
+(defun my-switcher ()
+  "Fuzzy-find all my stuff"
+  (interactive)
+
+  ;; Make sure obsidian.el's cache is current.
+  ;;(obsidian-update)
+
+  (let* ((data (my/obsidian--candidate-data))
+         (candidates (mapcar #'car data))
+         (choice
+          (completing-read
+           "things: "
+           candidates
+           nil
+           nil                         ; allow a new/non-existing note
+           nil
+           nil
+           nil)))
+
+    (if-let ((file (cdr (assoc choice data))))
+        ;; Existing note.
+        (find-file file)
+
+      ;; New note.
+      (let ((file
+             (expand-file-name
+              (if (string-suffix-p ".md" choice)
+                  choice
+                (concat choice ".md"))
+              (expand-file-name obsidian-inbox-directory
+                                obsidian-directory))))
+        (make-directory (file-name-directory file) t)
+        (find-file file)
+        )
+      )
+    )
+)
+(after! evil
+  (map! :gnv "C-e" #'my-switcher)
+)
+
+
 
 
 ;;; scratch
@@ -240,17 +310,8 @@
   (lookup-key corfu-map (kbd "C-i"))
   (define-key corfu-map (kbd "C-i") 'my/corfu-insert-first)
 
-  (plz 'get "https://tunes.c2vi.dev")
-      (infrasonic-get-playlist
-        my-subsonic-client
-        "6I9sKLo2NfnyzdtShKwreO"
-      )
-  (infrasonic-ping my-subsonic-client)
-  (infrasonic-api-call my-subsonic-client "ping" nil (lambda () (message "hi")) (lambda (e) (message e)))
-  (shell-command-to-string "curl https://tunes.c2vi.dev")
-
-  (emms-play-url "https://tunes.c2vi.dev/rest/stream.view?u=c2vi&t=618e0d04594b0e72c865d7989b6dad38&s=5b08708ee057af16caab55db98c3dd03&v=1.16.1&c=infrasonic&f=json&id=7id7XzpofiHmnJPqfORA0O")
-
 
+  (emms-insert-url "https://tunes.c2vi.dev/rest/stream.view?u=c2vi&t=59248d02914f93abee797adcf0f14d6a&s=8a3988f950895ee7bd87e17651e65eb1&v=1.16.1&c=infrasonic&f=json&id=0FnN5Sb3mCItKdIiJZcG7x")
+  (message emms-playlist-buffer)
 
 )