wordpressテーマ Luxeritasの関連記事ウィジェット作成

funcitons.phpに次の記述をします。

add_filter('widget_text', 'do_shortcode');

子テーマにファイルフォルダを作る

ここではmyphpfilesという名前にする

functions.phpに次のコードを記述します。

function Include_my_php($params = array()) {
 extract(shortcode_atts(array(
 'file' => 'default'
 ), $params));
 ob_start();
 include(STYLESHEETPATH . "/myphpfiles/$file.php"); 
 return ob_get_clean();
} 
add_shortcode('myphp', 'Include_my_php'); 

Luxeritasの親テーマからrelated.phpを探し、子テーマのmyphpfilesフォルダにコピー

テキストウィジェットを作って以下のように記載

[myphp file=’related’]

wordpressのプラグイン EWWW Image Optimizerで画像一括圧縮

EWWW Image Optimizerを普段から使っている場合は、アップロード時に画像が圧縮されているので以下の作業は必要ありません。

メディアの画像を一括で圧縮するには「メディア→一括最適化」に移動し「最適化されていない画像をスキャンする」ボタンを押してください。

f:id:shikaku:20170814075611p:plain

bitnamiのwordpressでは .htaccessの利用は禁止されてる

セキュリティとパフォーマンスの理由から.htaccessファイルは無効になっています。

その代わり htaccess.conf というファイルがあるので、その中に

<Directory "/opt/bitnami/apps/wordpress/htdocs/">
Your code
</Directory>

てな感じで書けば 同等の効果が得られる

vb.net RestSharpで得たJSONデータをJson.NETを使って読む

NugetでRestSharpとJson.NET(Newtonsoft.json)をインストールしてね

        Dim client = New RestClient("https://public.bitbank.cc/")
        Dim request = New RestRequest("btc_jpy/ticker")

        Dim response As IRestResponse
        response = client.Execute(request)
        Dim content = response.Content

        Dim jsonObj As Object = JsonConvert.DeserializeObject(content)
        If jsonObj("data") IsNot Nothing Then
            Dim BTCJPY = jsonObj("data")("last")
        End If