ksqsf

# Kitchen-sink for setting PATHs and other environmental variables.
# Also read by Emacs's exec-path-from-shell, so it has to be very short and fast.

export HOMEBREW_NO_INSTALL_FROM_API=1
export HOMEBREW_NO_AUTO_UPDATE=1
export HOMEBREW_CORE_GIT_REMOTE="https://mirrors.ustc.edu.cn/homebrew-core.git"
export HOMEBREW_BREW_GIT_REMOTE="https://mirrors.ustc.edu.cn/brew.git"
export HOMEBREW_BOTTLE_DOMAIN="https://mirrors.ustc.edu.cn/homebrew-bottles"
export HOMEBREW_API_DOMAIN="https://mirrors.ustc.edu.cn/homebrew-bottles/api"

ksqsf

import requests
import json

# Doc site: https://plugins-doc.logseq.com/ .
# This list is auto-generated from https://github.com/logseq/plugins/tree/master/docs .
apis = [
    'logseq.settings',
    'logseq.updateSettings',
    'logseq.once',
    'logseq.toggleMainUI',

ksqsf

(ql:quickload :dexador) ;; HTTP
(ql:quickload :yason)   ;; JSON

(defun download-bilibili-audio (audio-id)
  (let* ((headers '(("User-Agent" . "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_10_2) AppleWebKit/600.3.18 (KHTML, like Gecko) Version/8.0.3 Safari/600.3.18")
                    ("Referer" . "https://bilibili.com")))
         (cover-json (yason:parse (dex:get (format nil "https://www.bilibili.com/audio/music-service-c/web/song/info?sid=~a" audio-id))))
         (cover-url (gethash "cover" (gethash "data" cover-json)))
         (cover-data (dex:get cover-url))
         (audio-json (yason:parse (dex:get (format nil "https://www.bilibili.com/audio/music-service-c/web/url?sid=~a" audio-id))))

ksqsf

#!/usr/bin/env cargo play -q
//# anyhow = "*"
//# reqwest = {version="*", features=["gzip","blocking"]}
//# serde_json = "*"
fn main() -> anyhow::Result<()> {
    let audio_id = "832257";
    let client = reqwest::blocking::Client::new();
    let body = client.get(format!("https://www.bilibili.com/audio/music-service-c/web/song/info?sid={}", audio_id)).send()?.text()?;
    let resp = &serde_json::from_str::<serde_json::Value>(&body)?["data"]["cover"];
    let cover_url = resp.as_str().unwrap();

ksqsf

#!/usr/bin/env cabal
{- cabal:
build-depends: base, relude, aeson, microlens-aeson, microlens-platform, http-conduit, conduit, conduit-extra, async
-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE NoImplicitPrelude #-}

module Main where

import Control.Concurrent.Async

ksqsf

import requests

#
#  *** 修改这个 ***
#
audio_id = '832257'

# 完事后会下载到一个 m4a 文件和一个 cover.jpg

ksqsf

Keybase proof

I hereby claim:

• I am ksqsf on github.
• I am ksqsf (https://keybase.io/ksqsf) on keybase.
• I have a public key ASDeVaqf2TVkWAwoSMtQcBtMNhw8mKc7r-APIwQe8wSV2Ao

To claim this, I am signing this object:

ksqsf

{-
HOWTO: use 'tellWords' to find possible inputs, guess, and then update 'rules'.
-}
module Main where

import System.IO
import Control.Monad.ST
import Data.Array.MArray
import GHC.Arr

ksqsf

#!/usr/bin/env cabal
{- cabal:
build-depends: base, scalpel, process, async, filepath, directory
ghc-options: -threaded -rtsopts -with-rtsopts=-N
-}
{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Monad

ksqsf

{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE DataKinds #-}

import Control.Monad.IO.Class
import Data.Proxy
import GHC.Exts
import GHC.OverloadedLabels (IsLabel(..))
import GHC.TypeLits