アラートダイアログ上にWebViewで3Dコンテンツを表示（WebGL＋three.js）v3

Posted on 3月 7 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを作成して、さまざまなグラフや3Dアニメーションを表示してきた「箱庭ダイアログ」の１つの到達点、「periodictable」（元素周期表）選択UIの表示デモAppleScriptです。

このデモ、macOS 10.14あたりまでは動いていたのですが、その後のmacOSのアップデートにより、表示されなくなっておりました。

いろいろ調べたところ、macOSの開発者もiOSの開発者も揃いも揃って「表示できない」と言っているのを見て、逆に何か解決策がありそうな気がしてきました。

ローカルに保存しておいた１枚ものの表示用HTML（2020/05に作成したもの）は、当時のSafariで表示できており、WkWebViewでも表示できていました。

現在、この１枚もののHTMLはSafariでもWkWebViewでも表示できないようになっています。
その一方で、three.jsのWebサイトに掲載されているperiodictableのサンプルは現行のSafariで表示でき、操作も行えます。

当初は、これを「SafariとWkWebViewの差」だと思って、WkWebViewをカスタマイズしまくらないとSafariと同等の表示が行えないのではないか？　と考えていました。ただ、探しても探しても答えが見つからず、この方向で情報収集を行っても「無駄」に思えてきました。

そこでにわかに浮上してきたのが、「periodictable」や「three.js」自体がアップデートされている説、です。

WebKit（WkWebView）側のアップデート、およびCDN上のJavaScriptのライブラリのアップデートの相互作用によって表示できなくなったのではないかと、調査の方向を変えてみました。

当時のサンプルHTMLと現在のサンプルHTMLのdiffをとって、読み込むCDN上のライブラリを変更したり、追加することで現行OS上のWkWebView上でも動作するようになりました。

つまり、文字列として与えているHTMLの部分のみ変更しただけで、AppleScript部分とかWkWebViewまわりは一切手をつけていません。わかってしまえば、「なーんだ」という内容ですが、これにはなかなか対応できませんでした。

あとは、クリックした項目のURLイベントをAppleScript側で受信できればなおよいのですが、、、アプリケーションとして独立したものに変更して、AppleScript用語辞書を介して「display periodictable」みたいなコマンドでAppleScript側と値をやりとりするのがよいのかもしれません。

AppleScript名：アラートダイアログ上にWebViewで3Dコンテンツを表示（WebGL＋three.js）v3.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/06/13
–　　Modified on: 2023/03/07
—
–　　Copyright © 2020-2023 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.7"
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSString : a reference to current application’s NSString
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property returnCode : 0

–https://www.cresco.co.jp/blog/entry/7427/
— By sgi-chang @ UX Design Center
set myStr to "<!DOCTYPE html>
<html>

<head>
<title>three.js css3d – cresco xmas inspired by periodic table</title>
<meta charset=＼"utf-8＼">
<meta name=＼"viewport＼" content=＼"width=device-width, user-scalable=no, minimum-scale=1.0, maximum-scale=1.0＼">
<link type=＼"text/css＼" rel=＼"stylesheet＼" href=＼"https://threejs.org/examples/main.css＼">
<style>
a {
color: #8ff;
}

#menu {
position: absolute;
bottom: 20px;
width: 100%;
text-align: center;
}

.element {
width: 120px;
height: 160px;
box-shadow: 0px 0px 12px rgba(0, 255, 255, 0.5);
border: 1px solid rgba(127, 255, 255, 0.25);
font-family: Helvetica, sans-serif;
text-align: center;
line-height: normal;
cursor: default;
}

.element:hover {
box-shadow: 0px 0px 12px rgba(0, 255, 255, 0.75);
border: 1px solid rgba(127, 255, 255, 0.75);
}

.element .number {
position: absolute;
top: 20px;
right: 20px;
font-size: 12px;
color: rgba(127, 255, 255, 0.75);
}

.element .symbol {
position: absolute;
top: 40px;
left: 0px;
right: 0px;
font-size: 60px;
font-weight: bold;
color: rgba(255, 255, 255, 0.75);
text-shadow: 0 0 10px rgba(0, 255, 255, 0.95);
}

.element .details {
position: absolute;
bottom: 15px;
left: 0px;
right: 0px;
font-size: 12px;
color: rgba(127, 255, 255, 0.75);
}

button {
color: rgba(127, 255, 255, 0.75);
background: transparent;
outline: 1px solid rgba(127, 255, 255, 0.75);
border: 0px;
padding: 5px 10px;
cursor: pointer;
}

button:hover {
background-color: rgba(0, 255, 255, 0.5);
}

button:active {
color: #000000;
background-color: rgba(0, 255, 255, 0.75);
}
</style>
</head>

<body>
<script src=＼"https://threejs.org/examples/jsm/libs/tween.module.min.js＼"></script>
<script src=＼"https://threejs.org/examples/jsm/controls/TrackballControls.js＼"></script>
<script src=＼"https://threejs.org/examples/jsm/renderers/CSS3DRenderer.js＼"></script>

<div id=＼"info＼"><a href=＼"http://piyocast.com/as＼" target=＼"_blank＼">AppleScript 3D UI Demonstration</a> By Piyomaru Software</div>
<div id=＼"container＼"></div>
<div id=＼"menu＼">
<button id=＼"table＼">TABLE</button>
<button id=＼"sphere＼">SPHERE</button>
<button id=＼"helix＼">HELIX</button>
<button id=＼"grid＼">GRID</button>
</div>

　　　　<!– Import maps polyfill –>
　　　　<!– Remove this when import maps will be widely supported –>
　　　　<script async src=＼"https://unpkg.com/es-module-shims@1.5.8/dist/es-module-shims.js＼"></script>

　　　　<script type=＼"importmap＼">
　　　　　　{
　　　　　　　　＼"imports＼": {
　　　　　　　　　　＼"three＼": ＼"https://unpkg.com/three@0.142.0/build/three.module.js＼",
　　　　　　　　　　＼"OrbitControls＼": ＼"https://unpkg.com/three@0.142.0/examples/jsm/controls/OrbitControls.js＼"
　　　　　　　　}
　　　　　　}
　　　　</script>
　　　　
<script type=＼"module＼">
import * as THREE from ’https://threejs.org/build/three.module.js’;
import { TWEEN } from ’https://threejs.org/examples/jsm/libs/tween.module.min.js’;
import { TrackballControls } from ’https://threejs.org/examples/jsm/controls/TrackballControls.js’;
import { CSS3DRenderer, CSS3DObject } from ’https://threejs.org/examples/jsm/renderers/CSS3DRenderer.js’;
　　　　
var table = [
＼"1＼", ＼"Hydrogen＼", ＼"1.00794＼", 1, 1,
＼"2＼", ＼"Helium＼", ＼"4.002602＼", 1, 2,
＼"3＼", ＼"Lithium＼", ＼"6.941＼", 1, 3,
＼"4＼", ＼"Beryllium＼", ＼"9.012182＼", 1, 4,
＼"5＼", ＼"Boron＼", ＼"10.811＼", 1, 5,
＼"6＼", ＼"Carbon＼", ＼"12.0107＼", 2, 1,
＼"7＼", ＼"Nitrogen＼", ＼"14.0067＼", 2, 3,
＼"8＼", ＼"Oxygen＼", ＼"15.9994＼", 3, 1,
＼"9＼", ＼"Fluorine＼", ＼"18.9984032＼", 3, 3,
＼"101＼", ＼"Saturday＼", ＼"July＼", 4, 2,
＼"I＼", ＼"Moscovium＼", ＼"(290)＼", 6, 1,
＼"I＼", ＼"Livermorium＼", ＼"(293)＼", 6, 2,
＼"I＼", ＼"Tennessine＼", ＼"(294)＼", 6, 3,
＼"I＼", ＼"Titanium＼", ＼"47.867＼", 6, 4,
＼"I＼", ＼"Vanadium＼", ＼"50.9415＼", 6, 5,
＼"Y＼", ＼"Chromium＼", ＼"51.9961＼", 8, 1,
＼"Y＼", ＼"Manganese＼", ＼"54.938045＼", 9, 2,
＼"Y＼", ＼"Iron＼", ＼"55.845＼", 10, 3,
＼"Y＼", ＼"Cobalt＼", ＼"58.933195＼", 10, 4,
＼"Y＼", ＼"Nickel＼", ＼"58.6934＼", 10, 5,
＼"Y＼", ＼"Copper＼", ＼"63.546＼", 11, 2,
＼"Y＼", ＼"Zinc＼", ＼"65.38＼", 12, 1,
＼"O＼", ＼"Gallium＼", ＼"69.723＼", 14, 1,
＼"O＼", ＼"Copernicium＼", ＼"(285)＼", 14, 2,
＼"O＼", ＼"Nihonium＼", ＼"(286)＼", 14, 3,
＼"O＼", ＼"Oganesson＼", ＼"(294)＼", 14, 4,
＼"O＼", ＼"Neon＼", ＼"20.1797＼", 14, 5,
＼"O＼", ＼"Sodium＼", ＼"22.98976…＼", 15, 1,
＼"O＼", ＼"Magnesium＼", ＼"24.305＼", 15, 5,
＼"O＼", ＼"Aluminium＼", ＼"26.9815386＼", 16, 1,
＼"O＼", ＼"Silicon＼", ＼"28.0855＼", 16, 5,
＼"O＼", ＼"Phosphorus＼", ＼"30.973762＼", 17, 1,
＼"O＼", ＼"Sulfur＼", ＼"32.065＼", 17, 2,
＼"O＼", ＼"Chlorine＼", ＼"35.453＼", 17, 3,
＼"O＼", ＼"Argon＼", ＼"39.948＼", 17, 4,
＼"O＼", ＼"Potassium＼", ＼"39.948＼", 17, 5,
＼"M＼", ＼"Calcium＼", ＼"40.078＼", 1, 7,
＼"M＼", ＼"Scandium＼", ＼"44.955912＼", 1, 8,
＼"M＼", ＼"Roentgenium＼", ＼"(280)＼", 1, 9,
＼"M＼", ＼"Germanium＼", ＼"72.63＼", 1, 10,
＼"M＼", ＼"Lead＼", ＼"207.2＼", 1, 11,　　　　　　
＼"M＼", ＼"Arsenic＼", ＼"74.9216＼", 2, 8,
＼"M＼", ＼"Selenium＼", ＼"78.96＼", 3, 9,
＼"M＼", ＼"Bromine＼", ＼"79.904＼", 3, 10,
＼"M＼", ＼"Krypton＼", ＼"83.798＼", 4, 8,
＼"M＼", ＼"Rubidium＼", ＼"85.4678＼", 5, 7,
＼"M＼", ＼"Strontium＼", ＼"87.62＼", 5, 8,
＼"M＼", ＼"Yttrium＼", ＼"88.90585＼", 5, 9,
＼"M＼", ＼"Zirconium＼", ＼"91.224＼", 5, 10,
＼"M＼", ＼"Niobium＼", ＼"92.90628＼", 5, 11,
＼"A＼", ＼"Molybdenum＼", ＼"95.96＼", 7,8,
＼"A＼", ＼"Technetium＼", ＼"(98)＼", 7, 9,
＼"A＼", ＼"Ruthenium＼", ＼"101.07＼", 7, 10,
＼"A＼", ＼"Rhodium＼", ＼"102.9055＼",7, 11,
＼"A＼", ＼"Palladium＼", ＼"106.42＼", 8, 7,
＼"A＼", ＼"Silver＼", ＼"107.8682＼", 8,9,
＼"A＼", ＼"Cadmium＼", ＼"112.411＼", 9, 7,
＼"A＼", ＼"Indium＼", ＼"114.818＼", 9, 9,
＼"A＼", ＼"Tin＼", ＼"118.71＼", 10, 8,
＼"A＼", ＼"Antimony＼", ＼"121.76＼", 10, 9,
＼"A＼", ＼"Gadolinium＼", ＼"157.25＼", 10, 10,
＼"A＼", ＼"Terbium＼", ＼"158.92535＼", 10, 11,
＼"R＼", ＼"Dysprosium＼", ＼"162.5＼", 12, 7,
＼"R＼", ＼"Holmium＼", ＼"164.93032＼", 12, 8,
＼"R＼", ＼"Erbium＼", ＼"167.259＼", 12, 9,
＼"R＼", ＼"Thulium＼", ＼"168.93421＼", 12, 10,
＼"R＼", ＼"Ytterbium＼", ＼"173.054＼", 12, 11,
＼"R＼", ＼"Lutetium＼", ＼"174.9668＼", 13, 7,
＼"R＼", ＼"Hafnium＼", ＼"178.49＼", 13, 9,
＼"R＼", ＼"Samarium＼", ＼"150.36＼", 14, 7,
＼"R＼", ＼"Europium＼", ＼"151.964＼", 14, 9,
＼"R＼", ＼"Tantalum＼", ＼"180.94788＼", 15, 8,
＼"R＼", ＼"Tungsten＼", ＼"183.84＼", 15, 10,
＼"R＼", ＼"Rhenium＼", ＼"186.207＼", 15, 11,
＼"U＼", ＼"Osmium＼", ＼"190.23＼", 17, 7,
＼"U＼", ＼"Iridium＼", ＼"192.217＼", 17,8,
＼"U＼", ＼"Platinum＼", ＼"195.084＼", 17, 9,
＼"U＼", ＼"Gold＼", ＼"196.966569＼", 17, 10,
＼"U＼", ＼"Mercury＼", ＼"200.59＼", 18, 11,
＼"U＼", ＼"Thallium＼", ＼"204.3833＼", 19, 11,
＼"U＼", ＼"Bismuth＼", ＼"208.9804＼", 20, 7,
＼"U＼", ＼"Polonium＼", ＼"(209)＼", 20, 8,
＼"U＼", ＼"Astatine＼", ＼"(210)＼", 20, 9,
＼"U＼", ＼"Francium＼", ＼"(223)＼", 20, 10,
＼"U＼", ＼"Radium＼", ＼"(226)＼", 22, 9,
＼"U＼", ＼"Actinium＼", ＼"(227)＼", 22, 10,
＼"U＼", ＼"Thorium＼", ＼"232.03806＼", 22, 11,
＼"A＼", ＼"Protactinium＼", ＼"231.0588＼", 22, 7,
＼"A＼", ＼"Uranium＼", ＼"238.02891＼", 23, 9,
＼"A＼", ＼"Neptunium＼", ＼"(237)＼", 23, 8,
＼"A＼", ＼"Plutonium＼", ＼"(244)＼", 23, 9,
＼"A＼", ＼"Americium＼", ＼"(243)＼", 23, 10,
＼"A＼", ＼"Curium＼", ＼"(247)＼", 23, 11,
＼"S＼", ＼"Berkelium＼", ＼"(247)＼", 24, 7,
＼"S＼", ＼"Californium＼", ＼"(251)＼", 24, 8,
＼"S＼", ＼"Einstenium＼", ＼"(252)＼", 24, 9,
＼"S＼", ＼"Fermium＼", ＼"(257)＼", 24, 11,
＼"S＼", ＼"Mendelevium＼", ＼"(258)＼", 25, 7,
＼"S＼", ＼"Nobelium＼", ＼"(259)＼", 25, 9,
＼"S＼", ＼"Lawrencium＼", ＼"(262)＼", 25, 11,
＼"S＼", ＼"Rutherfordium＼", ＼"(267)＼", 26, 7,
＼"S＼", ＼"Dubnium＼", ＼"(268)＼", 26, 9,
＼"S＼", ＼"Seaborgium＼", ＼"(271)＼", 26, 10,
＼"S＼", ＼"Bohrium＼", ＼"(272)＼", 26, 11,
＼"A＼", ＼"Hassium＼", ＼"(270)＼", 27, 8,
＼"B＼", ＼"Meitnerium＼", ＼"(276)＼", 27, 9,
＼"C＼", ＼"Darmstadium＼", ＼"(281)＼", 27, 8,
＼"D＼", ＼"Tellurium＼", ＼"127.6＼", 27, 9,
＼"E＼", ＼"Iodine＼", ＼"126.90447＼", 27, 10,
＼"F＼", ＼"Xenon＼", ＼"131.293＼", 28, 9,
＼"G＼", ＼"Caesium＼", ＼"132.9054＼", 28, 10,
＼"H＼", ＼"Barium＼", ＼"132.9054＼", 28, 11,
＼"I＼", ＼"Lanthanum＼", ＼"138.90547＼", 29, 8,
＼"J＼", ＼"Cerium＼", ＼"140.116＼", 29, 9,
＼"K＼", ＼"Praseodymium＼", ＼"140.90765＼", 29, 10,
＼"L＼", ＼"Neodymium＼", ＼"144.242＼", 29, 8,
＼"M＼", ＼"Promethium＼", ＼"(145)＼", 29, 9,
　　＼"PS＼", ＼"Piyomaru Software＼", ＼"(PiyoPiyo)＼", 29, 10,　　
　　＼"AS＼", ＼"AppleScript＼", ＼"(osalang)＼", 29, 11,　　
];

var camera, scene, renderer;
var controls;
var objects = [];
var targets = { table: [], sphere: [], helix: [], grid: [] };
init();
animate();
　　　　
function init() {
camera = new THREE.PerspectiveCamera(40, window.innerWidth / window.innerHeight, 1, 10000);
camera.position.z = 3000;
scene = new THREE.Scene();
　　　　　　
// table
for (var i = 0; i < table.length; i += 5) {
　　　　　　
var element = document.createElement(’div’);
element.className = ’element’;

　　　　 //element.style.backgroundColor = ’rgba(128,0,64,’ + ( Math.random() * 0.5 + 0.25 ) + ’)’;
　　　　//element.style.backgroundColor = ’rgba(64,0,128,’ + ( Math.random() * 0.5 + 0.25 ) + ’)’;
//element.style.backgroundColor = ’rgba(0,0,0,’ + ( Math.random() * 0.5 + 0.25 ) + ’)’;
element.style.backgroundColor = ’rgba(0,127,127,’ + ( Math.random() * 0.5 + 0.25 ) + ’)’;
//element.style.backgroundColor = ’rgba(18,77,174,’ + (Math.random() * 0.5 + 0.25) + ’)’;

var number = document.createElement(’div’);
number.className = ’number’;
number.textContent = (i / 5) + 1;
element.appendChild(number);
var symbol = document.createElement(’div’);
symbol.className = ’symbol’;
symbol.textContent = table[i];
element.appendChild(symbol);
var details = document.createElement(’div’);
details.className = ’details’;
details.innerHTML = table[i + 1] + ’<br>’ + table[i + 2];
element.appendChild(details);
var object = new CSS3DObject(element);
object.position.x = Math.random() * 4000 – 2000;
object.position.y = Math.random() * 4000 – 2000;
object.position.z = Math.random() * 4000 – 2000;
scene.add(object);
objects.push(object);
//
var object = new THREE.Object3D();
object.position.x = (table[i + 3] * 140) – 1330;
object.position.y = – (table[i + 4] * 180) + 990;
targets.table.push(object);
}
　　　　　　
// sphere
var vector = new THREE.Vector3();
for (var i = 0, l = objects.length; i < l; i++) {
var phi = Math.acos(- 1 + (2 * i) / l);
var theta = Math.sqrt(l * Math.PI) * phi;
var object = new THREE.Object3D();
object.position.setFromSphericalCoords(800, phi, theta);
vector.copy(object.position).multiplyScalar(2);
object.lookAt(vector);
targets.sphere.push(object);
}
　　　　　　
// helix
var vector = new THREE.Vector3();
for (var i = 0, l = objects.length; i < l; i++) {
var theta = i * 0.175 + Math.PI;
var y = – (i * 8) + 450;
var object = new THREE.Object3D();
object.position.setFromCylindricalCoords(900, theta, y);
vector.x = object.position.x * 2;
vector.y = object.position.y;
vector.z = object.position.z * 2;
object.lookAt(vector);
targets.helix.push(object);
}
　　　　　　
// grid
for (var i = 0; i < objects.length; i++) {
var object = new THREE.Object3D();
object.position.x = ((i % 5) * 400) – 800;
object.position.y = (- (Math.floor(i / 5) % 5) * 400) + 800;
object.position.z = (Math.floor(i / 25)) * 1000 – 2000;
targets.grid.push(object);
}
　　　　　　
//
renderer = new CSS3DRenderer();
renderer.setSize(window.innerWidth, window.innerHeight);
document.getElementById(’container’).appendChild(renderer.domElement);
　　　　　　
//
controls = new TrackballControls(camera, renderer.domElement);
controls.minDistance = 500;
controls.maxDistance = 6000;
controls.addEventListener(’change’, render);
　　　　　　
var button = document.getElementById(’table’);
button.addEventListener(’click’, function () {
transform(targets.table, 2000);
}, false);
　　　　　　
var button = document.getElementById(’sphere’);
button.addEventListener(’click’, function () {
transform(targets.sphere, 2000);
}, false);
　　　　　　
var button = document.getElementById(’helix’);
button.addEventListener(’click’, function () {
transform(targets.helix, 2000);
}, false);
　　　　　　
var button = document.getElementById(’grid’);
button.addEventListener(’click’, function () {
transform(targets.grid, 2000);
}, false);
　　　　　　
transform(targets.table, 2000);
//
window.addEventListener(’resize’, onWindowResize, false);
}
　　　　
function transform(targets, duration) {
TWEEN.removeAll();
for (var i = 0; i < objects.length; i++) {
var object = objects[i];
var target = targets[i];
new TWEEN.Tween(object.position)
.to({ x: target.position.x, y: target.position.y, z: target.position.z }, Math.random() * duration + duration)
.easing(TWEEN.Easing.Exponential.InOut)
.start();
new TWEEN.Tween(object.rotation)
.to({ x: target.rotation.x, y: target.rotation.y, z: target.rotation.z }, Math.random() * duration + duration)
.easing(TWEEN.Easing.Exponential.InOut)
.start();
}
new TWEEN.Tween(this)
.to({}, duration * 2)
.onUpdate(render)
.start();
}
　　　　
function onWindowResize() {
camera.aspect = window.innerWidth / window.innerHeight;
camera.updateProjectionMatrix();
renderer.setSize(window.innerWidth, window.innerHeight);
render();
}
　　　　
function animate() {
requestAnimationFrame(animate);
TWEEN.update();
controls.update();
}
　　　　
function render() {
renderer.render(scene, camera);
}
</script>
</body>

</html>"

set paramObj to {myMessage:"WebGL & three.js Test", mySubMessage:"This is a WebGL UI using three.js", htmlStr:myStr}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 1600
　　set aHeight to 900
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script src", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　using terms from scripting additions
　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　end using terms from
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on fetchJSSourceString(aURL)
　　set jsURL to |NSURL|’s URLWithString:aURL
　　set jsSourceString to NSString’s stringWithContentsOfURL:jsURL encoding:(NSUTF8StringEncoding) |error|:(missing value)
　　return jsSourceString
end fetchJSSourceString

on pickUpFromToStr(aStr as string, s1Str as string, s2Str as string)
　　set a1Offset to offset of s1Str in aStr
　　if a1Offset = 0 then return false
　　set bStr to text (a1Offset + (length of s1Str)) thru -1 of aStr
　　set a2Offset to offset of s2Str in bStr
　　if a2Offset = 0 then return false
　　set cStr to text 1 thru (a2Offset – (length of s2Str)) of bStr
　　return cStr as string
end pickUpFromToStr

–リストを任意のデリミタ付きでテキストに
on retArrowText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retArrowText

on array2DToJSONArray(aList)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

★Click Here to Open This Script　

不可視プロセスで表示したNSAlertを最前面に表示

Posted on 1月 28, 2022 by Takaaki Naganoya

コンテクストメニューからAppleScriptを実行するツール「Service Station」を連日こづき回していろいろ試しています。

その中で、Service StationではScript実行をGUIなしの補助プログラムからosascriptコマンドを経由してAppleScriptを実行しているために、AppleScript中でNSAlertによるダイアログ表示をおこなった際に、ダイアログが最前面に表示されないという問題が生じていました。

これを見たedama2さんから、強制的にNSAlertダイアログを最前面に表示させるコードを提供していただいたので、実際にテストに用いたAppleScriptに入れたものをご紹介します。

▲そのまま普通にNSAlertダイアログを表示させたところ。Service Stationによるコンテクストメニューから実行すると、最前面に表示されないという問題があった

▲edama2さんからもたらされたコードを追加したNSAlertダイアログ。Service Stationから実行しても、問題なく最前面に表示される

コードは２行、効き目はばっちり！

--Move to frontmost (By edama2)
current application's NSApplication's sharedApplication()'s setActivationPolicy:(current application's NSApplicationActivationPolicyRegular)
current application's NSApp's activateIgnoringOtherApps:(true)

副作用として、Dockにターミナルのアイコンが表示され、最前面のアプリケーションが「osascript」になってしまいますが、気にならないところでしょう。

Program Name	Name of runtime	Support AppleScript document format	AS Format	NSAlert dialog is displayed in frontmost	Can use GUI Scripting functions	Can call AppleScript Libraries?	Can call AS Library including Frameworks?	Can call Generic Cocoa Functions?	Can use Cocoa system notification functions?
Service Station	osascript	Script/Text Script/Applet	Script/Text Script	No-> Yes	Yes	Yes	No	Yes	No
Script Menu	osascript	Script/Scriptd/Applet	Script/Scriptd	Yes	Yes	Yes	No	Yes	Yes
Shortcuts Events	MacHelper	File Embedded Script	Text	Yes	Yes	Yes	No	Yes	No
Switch Control	Assistive Control	File Embedded Script	Script (archived)	Yes	Yes	No	No	Yes	No
FastScript 3	FastScripts Script Runner	Script/Scriptd/Applet	Script/Scriptd	Yes	Yes	Yes	No	Yes

あれ？　edama2さんのおかげで、Service Stationの弱点が１つなくなりましたよ。Service Stationについては、

（１）「Kind–> Script」「AppleScript」でテキストで書いた「.applescript」しかピックアップできないとかいう気の狂ったようなRulesの仕様は要・修正

（２）実行Scriptにフラットな.scptとテキストの.applescriptしか実行できないのはダメ。バンドル形式の.scptdの実行サポートは必須

（３）大量のAppleScriptをコンテクストメニューに入れると使い勝手が落ちるので、Rulesでもう少しこまかく条件付けできるとよさそう。ただし必須ではない

といったところでしょうか。

AppleScript名：Webダイアログ表示（強制最前面）.scpt

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

my serviceStationDidSelect("", "", "")

on serviceStationDidSelect(targetedURL, selectedItemURLs, menuKind)
　　set aList to {{label:"TEST1", value:403}, {label:"TEST2", value:301}, {label:"TEST3", value:101}, {label:"TEST4", value:65}}
　　set bList to sortRecListByLabel(aList, {"value"}, {false}) of me –降順ソート
　　
　　–https://www.amcharts.com/demos/pie-chart/
　　set myStr to retHTML() of me
　　set jsonStr to array2DToJSONArray(bList) of me as string
　　set aString to current application’s NSString’s stringWithFormat_(myStr, jsonStr) as string
　　set paramObj to {myMessage:"Simple Pie Chart", mySubMessage:"This is a AMCharts test", htmlStr:aString, viewSize:{1000, 550}}
　　
　　my webD’s displayWebDialog(paramObj)
end serviceStationDidSelect

on array2DToJSONArray(aList)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value)
　　set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

–リストに入れたレコードを、指定の属性ラベルの値でソート
on sortRecListByLabel(aRecList as list, aLabelStr as list, ascendF as list)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　
　　set aCount to length of aLabelStr
　　set sortDescArray to current application’s NSMutableArray’s new()
　　repeat with i from 1 to aCount
　　　　set aLabel to (item i of aLabelStr)
　　　　set aKey to (item i of ascendF)
　　　　set sortDesc to (current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabel ascending:aKey)
　　　　(sortDescArray’s addObject:sortDesc)
　　end repeat
　　
　　return (aArray’s sortedArrayUsingDescriptors:sortDescArray) as list
end sortRecListByLabel

script webD
　　—
　　–　　Created by: Takaaki Naganoya
　　–　　Created on: 2020/06/20
　　—
　　–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
　　—
　　use AppleScript
　　use framework "Foundation"
　　use framework "AppKit"
　　use framework "WebKit"
　　use scripting additions
　　property parent : AppleScript
　　
　　property |NSURL| : a reference to current application’s |NSURL|
　　property NSAlert : a reference to current application’s NSAlert
　　property NSString : a reference to current application’s NSString
　　property NSButton : a reference to current application’s NSButton
　　property WKWebView : a reference to current application’s WKWebView
　　property WKUserScript : a reference to current application’s WKUserScript
　　property NSURLRequest : a reference to current application’s NSURLRequest
　　property NSRunningApplication : a reference to current application’s NSRunningApplication
　　property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
　　property WKUserContentController : a reference to current application’s WKUserContentController
　　property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
　　property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd
　　
　　property returnCode : 0
　　
　　
　　on displayWebDialog(paramObj)
　　　　my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true
　　end displayWebDialog
　　
　　on browseStrWebContents:paramObj
　　　　set aMainMes to myMessage of paramObj as string
　　　　set aSubMes to mySubMessage of paramObj as string
　　　　set htmlString to (htmlStr of paramObj) as string
　　　　–set jsDelimList to (jsDelimiters of paramObj) as list
　　　　set webSize to (viewSize of paramObj) as list
　　　　
　　　　copy webSize to {aWidth, aHeight}
　　　　
　　　　–WebViewをつくる
　　　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　　　
　　　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　　　aWebView’s setNavigationDelegate:me
　　　　aWebView’s setUIDelegate:me
　　　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　　　using terms from scripting additions
　　　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　　　end using terms from
　　　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　　　
　　　　–Move to frontmost (By edama2)
　　　　current application’s NSApplication’s sharedApplication()’s setActivationPolicy:(current application’s NSApplicationActivationPolicyRegular)
　　　　current application’s NSApp’s activateIgnoringOtherApps:(true)
　　　　
　　　　— set up alert　　
　　　　set theAlert to NSAlert’s alloc()’s init()
　　　　tell theAlert
　　　　　　its setMessageText:aMainMes
　　　　　　its setInformativeText:aSubMes
　　　　　　its addButtonWithTitle:"OK"
　　　　　　–its addButtonWithTitle:"Cancel"
　　　　　　its setAccessoryView:aWebView
　　　　　　
　　　　　　set myWindow to its |window|
　　　　end tell
　　　　
　　　　— show alert in modal loop
　　　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　　　
　　　　if (my returnCode as number) = 1001 then error number -128
　　　　
　　　　##後始末
　　　　aWebView’s stopLoading()
　　　　set js to "window.open(’about:blank’,’_self’).close();"
　　　　aWebView’s evaluateJavaScript:js completionHandler:(missing value)
　　　　set aWebView to missing value
　　　　
　　end browseStrWebContents:
　　
　　
　　on doModal:aParam
　　　　set (my returnCode) to (aParam’s runModal()) as number
　　end doModal:
　　
　　
　　on viewDidLoad:aNotification
　　　　return true
　　end viewDidLoad:
　　
　　
　　on fetchJSSourceString(aURL)
　　　　set jsURL to |NSURL|’s URLWithString:aURL
　　　　set jsSourceString to NSString’s stringWithContentsOfURL:jsURL encoding:(NSUTF8StringEncoding) |error|:(missing value)
　　　　return jsSourceString
　　end fetchJSSourceString
　　
　　
　　on pickUpFromToStr(aStr as string, s1Str as string, s2Str as string)
　　　　using terms from scripting additions
　　　　　　set a1Offset to offset of s1Str in aStr
　　　　　　if a1Offset = 0 then return false
　　　　　　set bStr to text (a1Offset + (length of s1Str)) thru -1 of aStr
　　　　　　set a2Offset to offset of s2Str in bStr
　　　　　　if a2Offset = 0 then return false
　　　　　　set cStr to text 1 thru (a2Offset – (length of s2Str)) of bStr
　　　　　　return cStr as string
　　　　end using terms from
　　end pickUpFromToStr
　　
　　
　　–リストを任意のデリミタ付きでテキストに
　　on retArrowText(aList, aDelim)
　　　　using terms from scripting additions
　　　　　　set aText to ""
　　　　　　set curDelim to AppleScript’s text item delimiters
　　　　　　set AppleScript’s text item delimiters to aDelim
　　　　　　set aText to aList as text
　　　　　　set AppleScript’s text item delimiters to curDelim
　　　　　　return aText
　　　　end using terms from
　　end retArrowText
　　
　　on array2DToJSONArray(aList)
　　　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　　　set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding)
　　　　return resString
　　end array2DToJSONArray
　　
　　
　　on parseByDelim(aData, aDelim)
　　　　using terms from scripting additions
　　　　　　set curDelim to AppleScript’s text item delimiters
　　　　　　set AppleScript’s text item delimiters to aDelim
　　　　　　set dList to text items of aData
　　　　　　set AppleScript’s text item delimiters to curDelim
　　　　　　return dList
　　　　end using terms from
　　end parseByDelim
　　
end script

on retHTML()
　　return "<!doctype html>
<head>
<meta charset=＼"utf-8＼">
<!– Styles –>
<style>
body { background-color: #000000; color: #ffffff; }
#chartdiv {
width: 100%;
height: 500px;
}

</style>
</head>
<body>

<!– Resources –>
<script src=＼"https://www.amcharts.com/lib/4/core.js＼"></script>
<script src=＼"https://www.amcharts.com/lib/4/charts.js＼"></script>
<script src=＼"https://www.amcharts.com/lib/4/themes/dark.js＼"></script>
<script src=＼"https://www.amcharts.com/lib/4/themes/animated.js＼"></script>

<!– Chart code –>
<script>
am4core.ready(function() {

// Themes begin
am4core.useTheme(am4themes_dark);
am4core.useTheme(am4themes_animated);
// Themes end

// Create chart instance
var chart = am4core.create(＼"chartdiv＼", am4charts.PieChart);

// Add data
chart.data = %@;

// Add and configure Series
var pieSeries = chart.series.push(new am4charts.PieSeries());
pieSeries.dataFields.value = ＼"value＼";
pieSeries.dataFields.category = ＼"label＼";
pieSeries.slices.template.stroke = am4core.color(＼"#fff＼");
pieSeries.slices.template.strokeOpacity = 1;

// This creates initial animation
pieSeries.hiddenState.properties.opacity = 1;
pieSeries.hiddenState.properties.endAngle = -90;
pieSeries.hiddenState.properties.startAngle = -90;

chart.hiddenState.properties.radius = am4core.percent(0);

}); // end am4core.ready()
</script>

<!– HTML –>
<div id=＼"chartdiv＼"></div>
</body>
</html>"
end retHTML

★Click Here to Open This Script　

アラートダイアログでMarkdownをプレビュー v3a

Posted on 8月 15, 2020 by Takaaki Naganoya

edama2さんからの投稿です。Markdown書類をプレビューするAppleScriptです。

–> Download Script bundle

本Scriptには、画期的な技術が用いられています。普通、AppleScriptObjCでは、WkWebViewによるネットワークアクセスを行うと、ネットワークアクセスを行う子プロセスと、WkWebViewで表示を行う子プロセスが生じて、処理が終了しても残ってしまいます。

スクリプトエディタ上で実行した場合には、スクリプトエディタを終了すればこうした子プロセスはメモリ上からパージされますが、終了するまで子プロセスは残されたままです。

「まー、AppleScriptObjCだから仕方ないよねー」

などと去年の年末に秋葉原でカレーを食べながらバカ話をしていた記憶がありますが、edama2さんがついにこれを回避する記法を編み出してしまったわけです。

回避方法については、やり方を説明されると「なるほど」という単純明快なものです（それを思いつくのがすごい）。osascript経由でAppleScriptを再実行することで、ランタイム環境を明示的にosascriptに指定してプログラムを実行。osascriptの終了とともにメモリ上から子プロセスがパージされるということのようです。

ランタイム環境を動的に生成し、実行後にランタイム環境がメモリ上から消去されるようになっていれば、子プロセス（ゴミ）が残っていてもまとめて消える………AppleScriptのランタイム環境はosascriptのほかCocoa系もあるので、そちらでも試してみるとよいでしょう。

ほかにも、WkWebViewによる表示を行う専用の支援アプリケーションを作っておき、AppleScript用語辞書経由で表示を行わせるという解決策も考えられます（ためしていないですが）。

AppleScript名：アラートダイアログでMarkdownをプレビュー v3a

use AppleScript
use framework “AppKit”
use framework “Foundation”
use framework “WebKit”
use scripting additions

on run args
　　if (args’s class) is script then
　　　　set myPath to (path to me)’s POSIX path
set resultText to do shell script “osascript “ & myPath’s quoted form
　　else
　　　　my main()
　　end if
end run

on main()
　　set mes to “Markdownファイルを選択してください。”
set chooseItems to choose file of type {“net.daringfireball.markdown”} with prompt mes

　　#
set aScreen to current application’s NSScreen’s mainScreen()
set screenFrame to aScreen’s frame()
set aHeight to current application’s NSHeight(screenFrame)
set aWidth to current application’s NSWidth(screenFrame)
set aHeight to aHeight * 0.845
set aWidth to aWidth * 0.94 / 2

　　set paramObj to {myMessage:“Markdown preview”}
set paramObj to paramObj & {mySubMessage:“file : “ & chooseItems’s POSIX path}
set paramObj to paramObj & {mdFile:chooseItems}
set paramObj to paramObj & {viewWidth:aWidth}
set paramObj to paramObj & {viewHeight:aHeight}

　　my performSelectorOnMainThread:“displayMarkdownPreview:” withObject:(paramObj) waitUntilDone:true
end main

# Markdownをダイアログで表示
on displayMarkdownPreview:paramObj
　　set mesText to myMessage of paramObj as text
set infoText to mySubMessage of paramObj as text
set mdFile to (mdFile of paramObj) as alias
set viewWidth to (viewWidth of paramObj) as integer
set viewHeight to (viewHeight of paramObj) as integer

　　## HTMLを読み込む
set mePath to path to me
set resPath to (mePath & “Contents:Resources:index.html”) as text
set htmlStr to (read (resPath as alias) as «class utf8») as text

　　## MDを読み込む
set mdStr to (read mdFile as «class utf8») as text

　　## MD内に改行があるとうまく読み込まれないので改行を置き換え
set mdStr to current application’s NSString’s stringWithString:mdStr
set mdStr to mdStr’s stringByReplacingOccurrencesOfString:(linefeed) withString:“＼＼n”
set mdStr to mdStr’s stringByReplacingOccurrencesOfString:“’” withString:“＼＼’”

　　## html内の文字を置き換え
set aString to current application’s NSString’s stringWithFormat_(htmlStr, mdStr) as text
log result

　　## baseURL
set aPath to mdFile’s POSIX path
set baseURL to current application’s NSURL’s fileURLWithPath:aPath
set baseURL to baseURL’s URLByDeletingLastPathComponent()

　　##
set aConf to current application’s WKWebViewConfiguration’s new()
tell current application’s WKUserContentController’s new()
　　　　aConf’s setUserContentController:it
　　end tell

　　## WebViewを作成＆読み込み
set frameSize to current application’s NSMakeRect(0, 0, viewWidth, viewHeight)
tell current application’s WKWebView’s alloc()
　　　　tell initWithFrame_configuration_(frameSize, aConf)
　　　　　　setNavigationDelegate_(me)
setUIDelegate_(me)
loadHTMLString_baseURL_(aString, baseURL)
set theView to it
　　　　end tell
　　end tell

　　## アイコンの指定
set aImage to current application’s NSWorkspace’s sharedWorkspace()’s iconForFileType:“net.daringfireball.markdown”

　　current application’s NSRunningApplication’s currentApplication()’s activateWithOptions:0

　　## set up alert
tell current application’s NSAlert’s new()
　　　　addButtonWithTitle_(“Close”)
setAccessoryView_(theView)
setIcon_(aImage)
setInformativeText_(infoText)
setMessageText_(mesText)
tell |window|()
　　　　　　setInitialFirstResponder_(theView)
　　　　end tell
### show alert in modal loop
if runModal() is (current application’s NSAlertSecondButtonReturn) then return
　　end tell

　　## 後始末
theView’s stopLoading()
set js to “window.open(’about:blank’,’_self’).close();”
theView’s evaluateJavaScript:js completionHandler:(missing value)
set theView to missing value
end displayMarkdownPreview:

★Click Here to Open This Script　

アラートダイアログ上にWebViewでCesiumを用いて地球儀上に地図を表示

Posted on 6月 21, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを敷いて、Cesiumを呼び出して地球儀上に地図を表示するAppleScriptです。

もともとのコードは国土地理院のサイトで見つけたものなのですが、地球儀上の地図表示が行えるようです。地球儀以外にも、メルカトル図法などの地図っぽい表示も可能。

右上のメニューから、地図の種類を選択して指定できます。マウスホイールでズームします。

白黒で表示された地図がなかなか面白いところです。

AppleScript名：アラートダイアログ上にWebViewでCesiumを用いて地球儀上に地図を表示.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/06/20
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property returnCode : 0

–set aRecArray to {{5, 20}, {25, 67}, {85, 21}, {100, 33}, {220, 88}, {250, 50}, {330, 95}, {410, 12}, {475, 44}, {480, 90}}
–set jsonStr to array2DToJSONArray(aRecArray) of me

–https://github.com/gsi-cyberjapan/gsitiles-cesium/blob/gh-pages/index.html
set myStr to "<!DOCTYPE html>
<html>
<head>
<meta charset=＼"UTF-8＼">
<title>GSI Tiles on Cesium</title>
<script src=＼"https://cesium.com/downloads/cesiumjs/releases/1.63.1/Build/Cesium/Cesium.js＼"></script>
<link href=＼"https://cesium.com/downloads/cesiumjs/releases/1.63.1/Build/Cesium/Widgets/widgets.css＼" rel=＼"stylesheet＼">
<style>
#cesiumContainer {
position: absolute;
top: 0;
left: 0;
height: 100%;
width: 100%;
margin: 0;
overflow: hidden;
padding: 0;
font-family: sans-serif;
}
html {
height: 100%;
}
body {
padding: 0;
margin: 0;
overflow: hidden;
height: 100%;
}
</style>
</head>

<body>
<div id=＼"cesiumContainer＼"></div>
<script>
var viewer = new Cesium.Viewer(’cesiumContainer’, {
imageryProvider: new Cesium.createOpenStreetMapImageryProvider({
url: ’https://cyberjapandata.gsi.go.jp/xyz/std/’,
credit: new Cesium.Credit(’地理院タイル’, ’’, ’https://maps.gsi.go.jp/development/ichiran.html’)
}),
baseLayerPicker: true,
geocoder: false,
homeButton: false
});

viewer.camera.setView({
destination : Cesium.Cartesian3.fromDegrees(140.00, 36.14, 20000000.0)
});
</script>
</body>
</html>"

–set aString to current application’s NSString’s stringWithFormat_(myStr, jsonStr) as string

set paramObj to {myMessage:"Cesium Test", mySubMessage:"This is a Cesium test", htmlStr:myStr}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 1220
　　set aHeight to 720
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script>", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　using terms from scripting additions
　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　end using terms from
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

アラートダイアログ上のWebViewでGio.jsを用いて地球儀＋データアニメーション表示 v2a

Posted on 6月 20, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、その上にGio.jsによる地球儀＋グラフデータ（アニメーション）を表示するAppleScriptです。

Gio.jsは国際間の貿易収支、Webトラフィックなどの可視化を行うさいに利用するライブラリのようです。さまざまな可視化サンプルをかき集めて、実際にWkWebViewで表示できたもののうち、再利用しやすく利用価値の高そうなものということで、このGio.jsを選んでみました。

派手なビジュアライズの部品はいろいろ見て回りましたが、割とすぐ慣れるというか、飽きるというべきなのか、派手に見せたところで実用性はさほど高まらないといった悟りを得るに至った次第です。

本ScriptはAppleScript側のオブジェクトで与えたデータをもとに表示内容を変更するところまでは作り込んでいませんが、一応、Gio.jsをCDN上のものを呼び出すように書き換えておきました。

AppleScript名：アラートダイアログ上にWebViewでGio.jsを用いて地球儀上にデータアニメーションを表示 v2a.scptd

property returnCode : 0

–set aRecArray to {{5, 20}, {25, 67}, {85, 21}, {100, 33}, {220, 88}, {250, 50}, {330, 95}, {410, 12}, {475, 44}, {480, 90}}
–set jsonStr to array2DToJSONArray(aRecArray) of me

–https://github.com/webhacck/gio-js-sample/blob/master/sample2.html
set myStr to "<!DOCTYPE html>
<html>
<head>
<title>Gio.js sample</title>
<meta charset=＼"utf-8＼">
<meta name=＼"viewport＼" content=＼"width=device-width, initial-scale=1＼">
</head>
<body>

<div id=＼"globalArea＼" style=＼"width:1000px;height:700px＼"></div>

var container = document.getElementById( ＼"globalArea＼" );

//config用のオプション設定
var config = {
＼"control＼": {
＼"stats＼": false,
＼"disableUnmentioned＼": false,
＼"lightenMentioned＼": true,
＼"inOnly＼": false,
＼"outOnly＼": false,
＼"initCountry＼": ＼"JP＼",
＼"halo＼": true
},
＼"color＼": {
＼"surface＼": 1744048,
＼"selected＼": 2141154,
＼"in＼": 16765762,
＼"out＼": 5366382,
＼"halo＼": 2141154,
＼"background＼": 0
},
＼"brightness＼": {
＼"ocean＼": 0.95,
＼"mentioned＼": 0.28,
＼"related＼": 0.74
}
};

//dataset
var data= [
{ e: ＼"JP＼", i: ＼"CN＼", v: 8000000 },
{ e: ＼"JP＼", i: ＼"TH＼", v: 3000000 },
{ e: ＼"JP＼", i: ＼"ID＼", v: 1000000 },
{ e: ＼"US＼", i: ＼"JP＼", v: 8000000 },
{ e: ＼"RU＼", i: ＼"JP＼", v: 3000000 },
{ e: ＼"IN＼", i: ＼"JP＼", v: 1000000 }]

//第２引数にconfigを設定する
var controller = new GIO.Controller( container, config );

controller.addData( data );
controller.init();

</script>

</body>
</html>"

–set aString to current application’s NSString’s stringWithFormat_(myStr, jsonStr) as string

set paramObj to {myMessage:"Gio.js Test", mySubMessage:"This is a Gio.js test", htmlStr:myStr}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 1020
　　set aHeight to 720
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script>", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　using terms from scripting additions
　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　end using terms from
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

アラートダイアログ上にWebViewでChart.jsを表示（Pie Chart） v2

Posted on 6月 15, 2020 by Takaaki Naganoya

Chart.jsを用いてアラートダイアログ上に円グラフを表示するAppleScriptです。

サンプルの円グラフの色使いがいまひとつだったので、Keynoteのグラフの色設定を読み取って利用しています。

ネットワーク接続チェックなど、必要な処理はひととおり行なっている、実戦レベルに近いものです。

さまざまなJavaScript系のグラフ表示のプログラムを試してみましたが、Chart.jsはとてもいい感じです。

AppleScript名：アラートダイアログ上にWebViewでChart.jsを表示（Pie Chart） v2.scptd

set aList to {"field1", "field2", "field3", "field4", "field5"}
set cList to {38, 31, 21, 10, 1}
set dMes1 to "Pie chart Test"
set dMes2 to "This is a simple Donut chart using charts.js"

displayPieChart(aList, cList, dMes1, dMes2) of pieChartLib

script pieChartLib
　　—
　　–　　Created by: Takaaki Naganoya
　　–　　Created on: 2020/06/12
　　—
　　–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
　　—
　　use AppleScript version "2.4" — Yosemite (10.10) or later
　　use framework "Foundation"
　　use framework "AppKit"
　　use framework "WebKit"
　　use scripting additions
　　
　　property |NSURL| : a reference to current application’s |NSURL|
　　property NSAlert : a reference to current application’s NSAlert
　　property NSString : a reference to current application’s NSString
　　property NSButton : a reference to current application’s NSButton
　　property WKWebView : a reference to current application’s WKWebView
　　property WKUserScript : a reference to current application’s WKUserScript
　　property NSURLRequest : a reference to current application’s NSURLRequest
　　property NSMutableArray : a reference to current application’s NSMutableArray
　　property NSJSONSerialization : a reference to current application’s NSJSONSerialization
　　property NSRunningApplication : a reference to current application’s NSRunningApplication
　　property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
　　property WKUserContentController : a reference to current application’s WKUserContentController
　　property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
　　property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd
　　
　　property returnCode : 0
　　property parent : AppleScript
　　
　　
　　on displayPieChart(aList, cList, dMes1, dMes2)
　　　　–Error Check
　　　　if length of aList is not equal to length of cList then error "Wrong Parameter items"
　　　　if length of aList > 18 then error "Too much items"
　　　　
　　　　set aRes to hasInternetConnection("https://cdnjs.cloudflare.com") of me
　　　　if aRes = false then error "Internet connection lost"
　　　　
　　　　–Data convert to JSON strings
　　　　set aJsonStr to array2DToJSONArray(aList) of me
　　　　set cJsonStr to array2DToJSONArray(cList) of me
　　　　
　　　　–Pie Chart Template HTML
　　　　set myStr to "<!DOCTYPE html>
<html lang=＼"ja＼">
<head>
<meta charset=＼"utf-8＼">
　<title>Graph</title>
</head>
<body>
<canvas id=＼"myPieChart＼"></canvas>
<script src=＼"https://cdnjs.cloudflare.com/ajax/libs/Chart.js/2.7.2/Chart.bundle.js＼"></script>

<script>
var ctx = document.getElementById(＼"myPieChart＼");
var myPieChart = new Chart(ctx, {
type: ’pie’,
data: {
labels: %@,
datasets: [{
backgroundColor: %@,
data: %@
}]
},
options: {
title: {
display: false,
text: ＼"＼"
}
}
});
</script>
</body>
</html>"
　　　　–Color Table From Apple Keynote
　　　　set bList to {"#118EFE", "#53D529", "#F5AD10", "#FC0007", "#8B2659", "#2A2A2A", "#118EFE", "#53D529", "#F5AD10", "#FC0007", "#8B2659", "#2A2A2A", "#118EFE", "#53D529", "#F5AD10", "#FC0007", "#8B2659", "#2A2A2A"}
　　　　set bJsonStr to array2DToJSONArray(bList) of me
　　　　
　　　　set aString to NSString’s stringWithFormat_(myStr, aJsonStr, bJsonStr, cJsonStr) as string
　　　　
　　　　set paramObj to {myMessage:dMes1, mySubMessage:dMes2, htmlStr:aString}
　　　　–my browseStrWebContents:paramObj–for debug
　　　　my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true
　　end displayPieChart
　　
　　on browseStrWebContents:paramObj
　　　　set aMainMes to myMessage of paramObj
　　　　set aSubMes to mySubMessage of paramObj
　　　　set htmlString to (htmlStr of paramObj)
　　　　
　　　　set aWidth to 920
　　　　set aHeight to 500
　　　　
　　　　–WebViewをつくる
　　　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　　　
　　　　–指定HTML内のJavaScriptをFetch
　　　　set jsSource to pickUpFromToStr(htmlString, "<script>", "</script>") of me
　　　　
　　　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　　　set userContentController to WKUserContentController’s alloc()’s init()
　　　　userContentController’s addUserScript:(userScript)
　　　　aConf’s setUserContentController:userContentController
　　　　
　　　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　　　aWebView’s setNavigationDelegate:me
　　　　aWebView’s setUIDelegate:me
　　　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　　　using terms from scripting additions
　　　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　　　end using terms from
　　　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　　　
　　　　— set up alert　　
　　　　set theAlert to NSAlert’s alloc()’s init()
　　　　tell theAlert
　　　　　　its setMessageText:aMainMes
　　　　　　its setInformativeText:aSubMes
　　　　　　its addButtonWithTitle:"OK"
　　　　　　–its addButtonWithTitle:"Cancel"
　　　　　　its setAccessoryView:aWebView
　　　　　　
　　　　　　set myWindow to its |window|
　　　　end tell
　　　　
　　　　— show alert in modal loop
　　　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　　　
　　　　–Stop Web View Action
　　　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　　　set bReq to NSURLRequest’s requestWithURL:bURL
　　　　aWebView’s loadRequest:bReq
　　　　
　　　　if (my returnCode as number) = 1001 then error number -128
　　end browseStrWebContents:
　　
　　
　　on doModal:aParam
　　　　set (my returnCode) to (aParam’s runModal()) as number
　　end doModal:
　　
　　
　　on viewDidLoad:aNotification
　　　　return true
　　end viewDidLoad:
　　
　　
　　on fetchJSSourceString(aURL)
　　　　set jsURL to |NSURL|’s URLWithString:aURL
　　　　set jsSourceString to NSString’s stringWithContentsOfURL:jsURL encoding:(NSUTF8StringEncoding) |error|:(missing value)
　　　　return jsSourceString
　　end fetchJSSourceString
　　
　　
　　on pickUpFromToStr(aStr as string, s1Str as string, s2Str as string)
　　　　set a1Offset to offset of s1Str in aStr
　　　　if a1Offset = 0 then return false
　　　　set bStr to text (a1Offset + (length of s1Str)) thru -1 of aStr
　　　　set a2Offset to offset of s2Str in bStr
　　　　if a2Offset = 0 then return false
　　　　set cStr to text 1 thru (a2Offset – (length of s2Str)) of bStr
　　　　return cStr as string
　　end pickUpFromToStr
　　
　　
　　on array2DToJSONArray(aList)
　　　　set anArray to NSMutableArray’s arrayWithArray:aList
　　　　set jsonData to NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　　　set resString to NSString’s alloc()’s initWithData:jsonData encoding:(NSUTF8StringEncoding)
　　　　return resString
　　end array2DToJSONArray
　　
　　
　　on parseByDelim(aData, aDelim)
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to aDelim
　　　　set dList to text items of aData
　　　　set AppleScript’s text item delimiters to curDelim
　　　　return dList
　　end parseByDelim
　　
　　on hasInternetConnection(aURL)
　　　　set aURL to current application’s |NSURL|’s alloc()’s initWithString:aURL
　　　　set aReq to current application’s NSURLRequest’s alloc()’s initWithURL:aURL cachePolicy:(current application’s NSURLRequestReloadIgnoringLocalCacheData) timeoutInterval:5.0
　　　　set urlRes to (current application’s NSURLConnection’s sendSynchronousRequest:aReq returningResponse:(missing value) |error|:(missing value))
　　　　if urlRes = missing value then
　　　　　　return false
　　　　else
　　　　　　return true
　　　　end if
　　end hasInternetConnection
end script

★Click Here to Open This Script　

アラートダイアログ上にd3-cloudを用いてワードクラウドを表示

Posted on 6月 14, 2020 by Takaaki Naganoya

d3-cloudを用いてワードクラウドを表示するAppleScriptです。

本AppleScriptでは、

 {|word|:"NSString", |count|:97}

のように、登場単語、登場回数のように集計ずみのデータをJSONに変換してワードクラウド表示させています。この（AppleScriptの予約語にかぶりまくりな）属性ラベルはd3-cloud側の仕様です。

以前に作った「Tag CloudっぽいRTFの作成」のデータを用いて（属性ラベルを置換して）表示させたものがこちら（↑）。

Tag/Word Cloud関連のJavaScriptについては前から気になって調べてはいたのですが、「ローカルにデータを持つスクリプトが多い」「d3-cloud自体をローカルにインストールさせる例が多い」（実行速度などの問題で？）という状況で、ありもののスクリプトをこのアラートダイアログ上にはりつけたWkWebViewの「箱庭環境」で追加スクリプトのインストールなしで動くように書き換えるのに少々手間取りました。

CDNにホスティングされているd3-cloudを呼び出すことで、ローカルにd3-cloudをインストールせずに実行していますが、将来的にこれが変更・廃止された場合には別のWeb上のどこかにホスティングされているd3-cloudを呼び出すことになります。

ローカルにあるテキストコンテンツ（CotEditorで編集中の文章とか、Pagesで作成中のワープロ文章とか、Keynoteで作成中のプレゼン資料の内容とか）を分析して頻出単語を取り出し、タグクラウドといいますかワードクラウドで表示して全体の見通しをつけるというScriptは作りたいと思っていました。

AppleScript名：アラートダイアログ上にd3-cloudを用いてワードクラウドを表示.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/06/13
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSString : a reference to current application’s NSString
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSMutableArray : a reference to current application’s NSMutableArray
property NSJSONSerialization : a reference to current application’s NSJSONSerialization
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property returnCode : 0

set aRecArray to {{|word|:"NSString", |count|:97}, {|word|:"NSURL", |count|:78}, {|word|:"Keynote", |count|:52}, {|word|:"NSMutableArray", |count|:51}, {|word|:"NSAlert", |count|:50}, {|word|:"NSRunningApplication", |count|:49}, {|word|:"NSArray", |count|:48}, {|word|:"CotEditor", |count|:44}, {|word|:"NSColor", |count|:44}, {|word|:"Finder", |count|:41}, {|word|:"NSImage", |count|:39}, {|word|:"Numbers", |count|:38}, {|word|:"NSPredicate", |count|:34}, {|word|:"NSView", |count|:32}, {|word|:"NSButton", |count|:28}, {|word|:"Safari", |count|:28}, {|word|:"NSScreen", |count|:27}, {|word|:"iTunes", |count|:25}, {|word|:"NSUTF8StringEncoding", |count|:24}, {|word|:"NSDictionary", |count|:22}, {|word|:"NSScrollView", |count|:21}, {|word|:"NSBitmapImageRep", |count|:20}, {|word|:"NSFileManager", |count|:20}, {|word|:"NSMutableDictionary", |count|:19}, {|word|:"NSURLRequest", |count|:18}, {|word|:"NSUUID", |count|:18}, {|word|:"NSWindow", |count|:17}, {|word|:"NSBezierPath", |count|:16}, {|word|:"NSFont", |count|:16}, {|word|:"WKWebView", |count|:16}, {|word|:"WKWebViewConfiguration", |count|:16}, {|word|:"NSWorkspace", |count|:15}, {|word|:"Pages", |count|:15}, {|word|:"Script Editor", |count|:15}, {|word|:"System Events", |count|:15}, {|word|:"WKUserContentController", |count|:15}, {|word|:"WKUserScript", |count|:15}, {|word|:"NSAlertSecondButtonReturn", |count|:14}, {|word|:"NSJSONSerialization", |count|:14}, {|word|:"NSSortDescriptor", |count|:14}}
set jsonStr to array2DToJSONArray(aRecArray) of me

–https://qiita.com/january108/items/5388799531c1ace8324e
set myStr to "<!DOCTYPE HTML>
<html lang=＼"en＼">
<head>
<meta charset=＼"UTF-8＼">
<title>D3 Word Clouds</title>
<meta name=＼"author＼" content=＼"d4i＼"/>
</head>
<body>
<script src=＼"http://d3js.org/d3.v3.min.js＼" charset=＼"utf-8＼"></script>
<script src=＼"https://cdnjs.cloudflare.com/ajax/libs/d3-cloud/1.2.5/d3.layout.cloud.min.js＼"></script>

<script>
　　var data = %@;
var width = 600,
height = 400,
fill = d3.scale.category20(),
maxcount = d3.max(data, function(d){ return d.count; } ),
wordcount = data.map(function(d) { return {text: d.word, size: d.count / maxcount * 100}; });

d3.layout.cloud().size([width, height])
.words(wordcount)
.padding(5)
.rotate(function() { return ~~(Math.random() * 2) * 90; })
.font(＼"Impact＼")
.fontSize(function(d) { return d.size; })
.on(＼"end＼", draw)
.start();

function draw(words) {
d3.select(＼"body＼").append(＼"svg＼")
.attr({
＼"width＼": width,
＼"height＼": height
})
.append(＼"g＼")
.attr(＼"transform＼", ＼"translate(＼" + [ width >> 1, height >> 1 ] + ＼")＼")
.selectAll(＼"text＼")
.data(words)
.enter()
.append(＼"text＼")
.style({
＼"font-size＼": function(d) { return d.size + ＼"px＼"; },
＼"font-family＼": ＼"Impact＼",
＼"fill＼": function(d, i) { return fill(i); }
})
.attr({
＼"text-anchor＼": ＼"middle＼",
＼"transform＼": function(d) { return ＼"translate(＼" + [d.x, d.y] + ＼")rotate(＼" + d.rotate + ＼")＼"; }
})
.text(function(d) { return d.text; });
}
</script>
</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, jsonStr) as string

set paramObj to {myMessage:"D3 Test", mySubMessage:"This is a d3-cloud word cloud test", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 620
　　set aHeight to 420
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script>", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　using terms from scripting additions
　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　end using terms from
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on array2DToJSONArray(aList)
　　set anArray to NSMutableArray’s arrayWithArray:aList
　　set jsonData to NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　set resString to current application’s NSString’s alloc()’s initWithData:jsonData encoding:(current application’s NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartを表示（Column Chart）

Posted on 6月 3, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてカラムチャート（縦棒グラフ）を表示するAppleScriptです。

大枠はAppleScriptで、Cocoaの機能を活用してWkWebViewを動的に生成し、その中にJavaScript入りのHTMLを文字列で作って表示させ、WkWebView上でマウスカーソルの挙動に合わせて表示させる（このあたりはGoogle Chartsの機能）という、３階建ぐらいの構造のScriptです。

AppleScriptの配列変数（リスト型変数）をJavaScriptで扱えるJSON形式に変換して、HTML＋JavaScriptのテンプレートにはめこんで、WkWebViewに表示させてグラフ描画実行を行なっています。表示データをAppleScriptのデータ（リスト型変数）で与えられる点がチャームポイントです。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Column Chart）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/05/30
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property returnCode : 0

set aList to {{"Year", "Sales", "Expenses", "Profit"}, ¬
　　{"2014", 1000, 400, 200}, ¬
　　{"2015", 1170, 460, 250}, ¬
　　{"2016", 660, 1120, 300}, ¬
　　{"2017", 1030, 540, 350}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>

// Draw the chart and set the chart values
function drawChart() {
var data =google.visualization.arrayToDataTable(%@);

// Optional; add a title and set the width and height of the chart
var options = {
chart: {
title: ’Company Performance’,
subtitle: ’Sales, Expenses, and Profit: 2014-2017’,
}
};

// Display the chart inside the <div> element with id=＼"columnchart_values＼"
var chart = new google.charts.Bar(document.getElementById(＼"columnchart_material＼"));
chart.draw(data, google.charts.Bar.convertOptions(options));
}
</script>
<body>
<div id=＼"columnchart_material＼" style=＼"width: 800px; height: 200;＼"></div>
</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Column Chart Test", mySubMessage:"This is a simple Column chart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 820
　　set aHeight to 220
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　using terms from scripting additions
　　　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　end using terms from
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartを表示（Bubble Chart）

Posted on 6月 1, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてバブルチャートを表示するAppleScriptです。

バブルチャートというのは、３軸の数値の組みわせデータをX軸とY軸に加え、バブル（円）のサイズでもう１軸表現したもののようです。

サンプルでは、X軸に平均寿命、Y軸に出生率、Z軸に人口をとっています。データ件数がそんなに多くなくて、データが散らばっている場合にはその傾向がよく把握できそうです（本グラフのように）。

自動処理のワークフローにおいて本Scriptがどの程度役立つかについては、いろいろ考えてみたものの「多分、Blogに掲載するぐらいしか使い道がないよね！」というところでしょうか。やはり、オーソドックスな円グラフや棒グラフのほうが使い手がよさそうです。あとは、デモンストレーションぐらいでしょうか。Google Chartsを用いたダイアログ部品自体が、デモ向けのそれほど意味のなさそうな内容であります。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Bubble Chart）.scptd

property returnCode : 0

set aList to {{"ID", "平均寿命", "出生率", "地域", "人口"}, ¬
　　{"CAN", 80.66, 1.67, "北米", 33739900}, ¬
　　{"DEU", 79.84, 1.36, "欧州", 81902307}, ¬
　　{"DNK", 78.6, 1.84, "欧州", 5523095}, ¬
　　{"EGY", 72.73, 2.78, "中東", 79716203}, ¬
　　{"GBR", 80.05, 2, "欧州", 61801570}, ¬
　　{"IRN", 72.49, 1.7, "中東", 73137148}, ¬
　　{"IRQ", 68.09, 4.77, "中東", 31090763}, ¬
　　{"ISR", 81.55, 2.96, "中東", 7485600}, ¬
　　{"RUS", 68.6, 1.54, "欧州", 141850000}, ¬
　　{"USA", 78.09, 2.05, "北米", 307007000}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>
<script type=＼"text/javascript＼">
// Load google charts
google.charts.load(’current’, {’packages’:[’corechart’]});
google.charts.setOnLoadCallback(drawSeriesChart);

// Draw the chart and set the chart values
function drawSeriesChart() {
var data =google.visualization.arrayToDataTable(%@);

// Optional; add a title and set the width and height of the chart
var options = {
title: ’Correlation between life expectancy, fertility rate ’ + ’and population of some world countries (2010)’,
hAxis: {title: ’平均寿命’},
vAxis: {title: ’出生率’},
bubble: {textStyle: {fontSize: 11}} };

// Display the chart inside the <div> element with id=＼"barchart＼"
var chart = new google.visualization.BubbleChart(document.getElementById(’series_chart_div’));
chart.draw(data, options);
}
</script>
<body>
<div id=＼"series_chart_div＼" style=＼"width: 800px; height: 200;＼"></div>
</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Bubble Chart Test", mySubMessage:"This is a simple Bubble Chart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartを表示（Gantt Chart）

Posted on 6月 1, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてガントチャートを表示するAppleScriptです。

ガントチャートの表示が行えるのは、なかなか便利そうです。ガントチャート系でAppleScriptから操作が行えるのは、Omni Planぐらいなので、ガントチャート表示用部品が増えるのはいいことです。

＃　ただ、ガントチャートのデータをもとに自動処理したことはありません。人間との間で行う対話処理が重要なので、自動処理で「あとはよろしくぅ！」というワークフローがそんなに思いつきません（予定が変わった担当者に自動で連絡しておくぐらい？）

何らかのデータ処理を行なった末にガントチャートで結果を表示する……という流れになるとは思うのですが、結果に納得できない場合にデータ修正できるようになっていないと、「なんですかそれは？」という話になりかねません。

なので、表UIでデータを入力し、その内容を反映させたガントチャートを表示。表UIとガントチャートの間で自由に行き来できる必要があります。Google Chartsではこのように複数のグラフUIを組み合わせる（並べて表示、再描画を連動）こともできるため、そういう組み合わせで利用するための「下調べ」といったところでしょう。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Gantt Chart）.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/05/27
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSButton : a reference to current application’s NSButton
property NSBundle : a reference to current application’s NSBundle
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property returnCode : 0
property aBrowserAgentRes : ""

–Sample Data
–set aJsonArrayStr to array2DToJSONArray(aList) of me

–Map Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>

–set aString to NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Google Gantt Chart Test", mySubMessage:"This is a simple Gantt Chart using google charts", htmlStr:myStr}
–my browseStrWebContents:paramObj –for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 1000
　　set aHeight to 300
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on array2DToJSONArray(aList)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　set resString to NSString’s alloc()’s initWithData:jsonData encoding:(NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartを表示（Bar Chart）

Posted on 5月 30, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてbarChartを表示するAppleScriptです。

Googleのオンラインドキュメント品質が一定になっておらず、一番簡単なはずの棒グラフを書かせるのに手間取ってしまいました。

Cocoa Scriptingを始めた当初は、このJavaScriptを含んだHTMLコンテンツをダイアログ上に表示してインタラクティブな表示を行わせるなど、夢のまた夢という感じでしたが、いまでは見慣れた光景になってしまいました。

箱庭ダイアログ系AppleScriptも、YouTubeの動画表示ができるようになった頃から、進化にはずみがついた気がします。

ひととおりGoogle Chartsを表示できるようになったので、チャート表示のScript Libraryにまとめ、sdef（AppleScript用語辞書）をかぶせてカプセル化するといい感じでしょうか。Google Charts Scripting Libとかいって、display google chartコマンドを実行するのでしょうか。そこまで作り込むと、無料公開は勘弁して欲しいところですけれども。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Bar Chart）v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/03/02
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property returnCode : 0

set aList to {{"City", "2010 Population", "2000 Population"}, ¬
　　{"New York City, NY", 8175000, 8008000}, ¬
　　{"Los Angeles, CA", 3792000, 3694000}, ¬
　　{"Chicago, IL", 2695000, 2896000}, ¬
　　{"Houston, TX", 2099000, 1953000}, ¬
　　{"Philadelphia, PA", 1526000, 1517000}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>

// Draw the chart and set the chart values
function drawChart() {
var data =google.visualization.arrayToDataTable(%@);

// Optional; add a title and set the width and height of the chart
var options = {
　　title: ’Population’,
　　chartArea: {width: ’400’},
　　isStacked: true,
　　hAxis: {
　　 title: ’Total Population’,
　　 minValue: 0,
　　},
　　vAxis: {
　　 title: ’City’
　　}
};

// Display the chart inside the <div> element with id=＼"barchart＼"
var chart = new google.visualization.BarChart(document.getElementById(＼"barchart_values＼"));
chart.draw(data, options);
}
</script>
<body>
<div id=＼"barchart_values＼" style=＼"width: 800px; height: 200;＼"></div>
</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Bar Chart Test", mySubMessage:"This is a simple bar chart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartを表示（WordTree）

Posted on 5月 29, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてWordTreeを表示するAppleScriptです。

Mindmap風の図を表示するので、純粋にMindmapの表示部品として使えるとよさそうですが、そういうわけでもないようです。図を表示するだけです。

また、Wordtree中の途中のノードを選択するとツリーが閉じたりしますが、どのノードを選択したかといった情報を（現状では）取得できるわけでもないため、超多項目の選択User Interfaceに使いたい場合に「使えそうで使えない」という浮世離れした部品になっています。

一応、JavaScript内ではノードのクリックイベントを拾うことができましたが、selectionで得られる属性値が「word」「color」「weight」といった、個別にノードを特定できる値ではないものばかりなので（idぐらい取れてもいいんやで）、選択UIとして使うのはつらそうです。さらに、WkWebView内のJavaScriptからその「外側の外側」にいるAppleScriptにイベントや値を渡す方法がさっぱり見つかりません。JavaScript側からローカルのファイル……に書けそうな気配はないので、cookie経由で値を受け渡すぐらいでしょうか。

▲Appleのサンプルコード「TreeView」（Written in Objective-C）。これがもっと使いまわしやすい部品として書きこなれていればいいのですが、、、、

＃　Mindmap風の選択UIは、なかなか手を加えてすぐに使いまわしやすい部品になっていなくて、、

プログラム自体は他のScriptとの共有部品ばかりで、新規に起こしたものはほとんどありません。

▲選択肢をツリーで描画してクリック選択でき、選択した内容をもとに処理できるという意味ではGraphViz＋Dot言語が難易度低くていい感じ？（実際に使っています）

▲これもゆくゆくは多項目表示の部品として利用？　制約条件（不自由さ）を設けることで発想につなげようというコンセプトなので、自由なデータ表現の部品にはならないという見方も

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（WordTree1）.scptd

property returnCode : 0
property aBrowserAgentRes : ""

–Sample Data
set aList to {{"Phrases"}, ¬
　　{"cats are better than dogs"}, ¬
　　{"cats eat kibble"}, ¬
　　{"cats are better than hamsters"}, ¬
　　{"cats are awesome"}, ¬
　　{"cats are people too"}, ¬
　　{"cats eat mice"}, ¬
　　{"cats meowing"}, ¬
　　{"cats in the cradle"}, ¬
　　{"cats eat mice"}, ¬
　　{"cats in the cradle lyrics"}, ¬
　　{"cats eat kibble"}, ¬
　　{"cats for adoption"}, ¬
　　{"cats are family"}, ¬
　　{"cats eat mice"}, ¬
　　{"cats are better than kittens"}, ¬
　　{"cats are evil"}, ¬
　　{"cats are weir"}, ¬
　　{"cats eat mice"}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Map Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>

set aString to NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Google Word Tree Test", mySubMessage:"This is a simple Word Tree using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj –for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 920
　　set aHeight to 540
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on array2DToJSONArray(aList)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　set resString to NSString’s alloc()’s initWithData:jsonData encoding:(NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartsを表示（Geo Chart 1）

Posted on 5月 24, 2020 by Takaaki Naganoya

NSAlertのアラートダイアログ上にGoogleChartsを用いたGeoChartを表示するAppleScriptです。

Geo Chartに表示されている地図の上でマウスカーソルを移動させると、Chartが反応してデータ表示を行います。

本Scriptに掲載しているAPI KeyはGoogleに掲載されているサンプル用のものであり、サンプルデータの表示以外には使用できません。Google開発者アカウントを取得し、API Keyを取得して記入しておく必要があります。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Geo Chart 1）.scptd

property returnCode : 0
property aBrowserAgentRes : ""

set mapsAPIKey to "AIzaSyD-9tSrke72PouQMnMX-a7eZSW0jkFMBWY" –for demonstration only

my performSelectorOnMainThread:"getSafariUserAgentString:" withObject:(missing value) waitUntilDone:true

–Sample Data
set aList to {{"Country", "Popularity"}, ¬
　　{"Germany", 200}, ¬
　　{"United States", 300}, ¬
　　{"Brazil", 400}, ¬
　　{"Canada", 500}, ¬
　　{"France", 600}, ¬
　　{"RU", 700}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Map Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<script type=＼"text/javascript＼" src=＼"https://www.gstatic.com/charts/loader.js＼"></script>

function drawRegionsMap() {
var data = google.visualization.arrayToDataTable(%@);

var options = {};

var chart = new google.visualization.GeoChart(document.getElementById(’regions_div’));
chart.draw(data, options);
};
</script>
</head>
<body>
　　<div id=＼"regions_div＼" style=＼"width: 900px; height: 500px;＼"></div>
</body>
</html>"

set aString to NSString’s stringWithFormat_(myStr, mapsAPIKey, aJsonArrayStr) as string

set paramObj to {myMessage:"Google GeoChart Test", mySubMessage:"This is a simple GeoChart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj –for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 920
　　set aHeight to 520
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　aWebView’s setCustomUserAgent:(my aBrowserAgentRes)
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on array2DToJSONArray(aList)
　　set anArray to current application’s NSMutableArray’s arrayWithArray:aList
　　set jsonData to current application’s NSJSONSerialization’s dataWithJSONObject:anArray options:(0 as integer) |error|:(missing value) –0 is
　　set resString to NSString’s alloc()’s initWithData:jsonData encoding:(NSUTF8StringEncoding)
　　return resString
end array2DToJSONArray

–Safariと同じUser Agentの文字列を取得する
on getSafariUserAgentString:anObject
　　set aBundle to NSBundle’s bundleWithIdentifier:"com.apple.Safari"
　　set aVer to (aBundle’s infoDictionary()’s objectForKey:"CFBundleShortVersionString") as text
　　–>　　"9.0.2"
　　
　　set aBuildNo to (aBundle’s infoDictionary()’s objectForKey:"CFBundleVersion") as text
　　–>　　"11601.3.6"
　　
　　set {v1, v2, v3} to parseVersionNumber(aBuildNo) of me
　　set aV1 to NSString’s stringWithString:v1
　　set bV1 to aV1’s substringFromIndex:2 –3 characters from tail –？？？？？
　　–> "601"
　　
　　set bStr to retStrFromArrayWithDelimiter({bV1, v2, v3}, ".") of me
　　
　　set aWebView to WebView’s alloc()’s init()
　　set aRes to (aWebView’s stringByEvaluatingJavaScriptFromString:"navigator.userAgent") as text
　　–>　　"Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_2) AppleWebKit/601.3.6 (KHTML, like Gecko)"
　　
　　set aBrowserAgentRes to (aRes & " Version/" & aVer & " Safari/" & bStr)
end getSafariUserAgentString:

–バージョン番号文字列からメジャーバージョンを取り出し数値として返す
on parseVersionNumber(a)
　　set aStr to current application’s NSString’s stringWithString:a
　　set aRes to (aStr’s componentsSeparatedByString:".")
　　set bRes to aRes’s allObjects()
　　return bRes as list
end parseVersionNumber

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as text
end retStrFromArrayWithDelimiter

★Click Here to Open This Script　

クリップボード内の文字種別を集計して円グラフ表示

Posted on 5月 16, 2020 by Takaaki Naganoya

クリップボード内に文字列が入っていれば、いいかえれば「文字列をコピーした状態であれば」、クリップボード内容をテキストとして取り出して文字種別ごとに集計して構成比を円グラフで表示するAppleScriptです。

# CAUTION: This script process Japanese characters. So, this script make no sense for other language users

グラフ表示部分は手抜きでGoogle Chartsを呼び出しているだけなので、Macがネットワークに接続されていない場合には表示できません。

macOS標準装備のScript Menuに入れて使っています。複数の円グラフを表示させることも可能なので、典型的な例文（新聞、論文、なろう系、技術系文章、文学作品）のグラフを一覧表示して、どの例文の使用比率に近いかといったことを見てわかるようにできそうです（やらないけど）。

ありものをただ引っ張り出してきて、Script文でつないだだけなので、オリジナルで記述した部分はほとんどありません。

とはいえ、技術的にはいろいろなハードルを乗り越えまくって動かしているものでもあります。

・メインスレッドでしか動かせないWkWebView、NSAlertをScriptから呼び出している（実行環境に左右されずに実行）
・Cocoa Scriptingを行うAppleScriptObjCをscript文でscript object化して（カプセル化して）呼び出し、再利用
・WkWebViewをdialog内に表示して、マウスオーバーでデータ内容が見えるようなインタラクティブなグラフを表示

といった、いろいろ無茶なことをやっているScriptです。ただ、すでに見慣れた光景になりつつありますけれども。

AppleScript名：クリップボード内の文字種別を集計して円グラフ表示.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/05/14
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSString : a reference to current application’s NSString
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property NSScreenSaverWindowLevel : a reference to current application’s NSScreenSaverWindowLevel
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property returnCode : 0

–Calc Clipboard
set aRes to clipAnaliticsMain() of clipboardInfoKit
if aRes = false then return —クリップボードが空だった（文字列的に）

set totalC to totalC of aRes

set aList to {{"文字種別", "構成比"}} & rating of aRes

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<body>
<div id=＼"piechart＼"></div>

// Draw the chart and set the chart values
function drawChart() {
var data = google.visualization.arrayToDataTable(%@);

// Optional; add a title and set the width and height of the chart
var options = {
is3D: true,
　　 ’width’:600, ’height’:400
};

// Display the chart inside the <div> element with id=＼"piechart＼"
var chart = new google.visualization.PieChart(document.getElementById(’piechart’));
chart.draw(data, options);
}
</script>

</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"文字種別構成比", mySubMessage:"クリップボードの内容を集計。文字数は" & (totalC as string) & "文字", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 600
　　set aHeight to 450
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　myWindow’s setLevel:(NSScreenSaverWindowLevel)
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

script clipboardInfoKit
　　use scripting additions
　　use framework "Foundation"
　　property parent : AppleScript
　　
　　property NSString : a reference to current application’s NSString
　　property NSNumber : a reference to current application’s NSNumber
　　property NSDictionary : a reference to current application’s NSDictionary
　　property NSCountedSet : a reference to current application’s NSCountedSet
　　property NSCharacterSet : a reference to current application’s NSCharacterSet
　　property NSMutableArray : a reference to current application’s NSMutableArray
　　property NSNumberFormatter : a reference to current application’s NSNumberFormatter
　　property NSRegularExpressionSearch : a reference to current application’s NSRegularExpressionSearch
　　property NSNumberFormatterRoundUp : a reference to current application’s NSNumberFormatterRoundUp
　　property NSNumberFormatterRoundDown : a reference to current application’s NSNumberFormatterRoundDown
　　
　　
　　on clipAnaliticsMain()
　　　　set cCount to 0
　　　　set hCount to 0
　　　　set kCount to 0
　　　　set oCount to 0
　　　　set tCount to 0
　　　　
　　　　using terms from scripting additions
　　　　　　set aStr to (the clipboard as «class utf8»)
　　　　　　if aStr = "" then
　　　　　　　　display dialog "No text data in clipboard" buttons {"OK"} default button 1
　　　　　　　　return false
　　　　　　end if
　　　　end using terms from
　　　　
　　　　set aRec to detectCharKindRating(aStr) of me
　　　　
　　　　set cCount to cCount + (kanjiNum of aRec)
　　　　set hCount to hCount + (hiraganaNum of aRec)
　　　　set kCount to kCount + (katakanaNum of aRec)
　　　　set oCount to oCount + (otherNum of aRec)
　　　　set tCount to tCount + (totalCount of aRec)
　　　　
　　　　return {rating:{{"漢字", cCount}, {"ひらがな", hCount}, {"カタカナ", kCount}, {"その他", oCount}}, totalC:tCount}
　　end clipAnaliticsMain
　　
　　
　　
　　on detectCharKindRating(aStr as string)
　　　　set aList to NSMutableArray’s arrayWithArray:(characters of aStr)
　　　　set theCountedSet to NSCountedSet’s alloc()’s initWithArray:aList
　　　　set theEnumerator to theCountedSet’s objectEnumerator()
　　　　
　　　　set cCount to 0
　　　　set hCount to 0
　　　　set kCount to 0
　　　　set oCount to 0
　　　　set totalC to length of aStr
　　　　
　　　　repeat
　　　　　　set aValue to theEnumerator’s nextObject()
　　　　　　if aValue is missing value then exit repeat
　　　　　　
　　　　　　set aStr to aValue as string
　　　　　　set tmpCount to (theCountedSet’s countForObject:aValue)
　　　　　　
　　　　　　set s1Res to chkKanji(aStr) of me
　　　　　　set s2Res to chkKatakana(aStr) of me
　　　　　　set s3Res to chkHiragana(aStr) of me
　　　　　　
　　　　　　if s1Res = true then
　　　　　　　　set cCount to cCount + tmpCount
　　　　　　else if s2Res = true then
　　　　　　　　set kCount to kCount + tmpCount
　　　　　　else if s3Res = true then
　　　　　　　　set hCount to hCount + tmpCount
　　　　　　else
　　　　　　　　set oCount to oCount + tmpCount
　　　　　　end if
　　　　end repeat
　　　　
　　　　set ckRes to roundingUp((cCount / totalC) * 100, 1) of me
　　　　set kkRes to roundingUp((kCount / totalC) * 100, 1) of me
　　　　set hgRes to roundingUp((hCount / totalC) * 100, 1) of me
　　　　set otRes to roundingUp((oCount / totalC) * 100, 1) of me
　　　　
　　　　return {kanjiNum:cCount, kanjiRating:ckRes, hiraganaNum:hCount, hiraganaRating:hgRes, katakanaNum:kCount, katakanaRating:kkRes, otherNum:oCount, otherRating:otRes, totalCount:totalC}
　　end detectCharKindRating
　　
　　
　　on chkKanji(aChar)
　　　　return detectCharKind(aChar, "[一-龠]") of me
　　end chkKanji
　　
　　on chkHiragana(aChar)
　　　　return detectCharKind(aChar, "[ぁ-ん]") of me
　　end chkHiragana
　　
　　on chkKatakana(aChar)
　　　　return detectCharKind(aChar, "[ァ-ヶ]") of me
　　end chkKatakana
　　
　　on detectCharKind(aChar, aPattern)
　　　　set aChar to NSString’s stringWithString:aChar
　　　　set searchStr to NSString’s stringWithString:aPattern
　　　　set matchRes to aChar’s rangeOfString:searchStr options:(NSRegularExpressionSearch)
　　　　if matchRes’s location() = (current application’s NSNotFound) or (matchRes’s location() as number) > 9.99999999E+8 then
　　　　　　return false
　　　　else
　　　　　　return true
　　　　end if
　　end detectCharKind
　　
　　on roundingUp(aNum, aDigit as integer)
　　　　set a to aNum as real
　　　　set aFormatter to NSNumberFormatter’s alloc()’s init()
　　　　aFormatter’s setMaximumFractionDigits:aDigit
　　　　aFormatter’s setRoundingMode:(NSNumberFormatterRoundUp)
　　　　set aStr to aFormatter’s stringFromNumber:(NSNumber’s numberWithFloat:a)
　　　　return (aStr as text) as real
　　end roundingUp
end script

★Click Here to Open This Script　

アラートダイアログ上にWebViewでGoogle Chartsを表示（Calendar Chart）

Posted on 5月 7, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてCalendar Chartを表示するAppleScriptです。

自分の開発環境（MacBook Pro Retina 2012, Core i7 2.6GHz）で100日間のアクセス履歴を処理して７秒強ぐらいで描画が終了します。

調子に乗って300日分のアクセス履歴を処理したところ、表示まで１分ほどかかりました。あまり長い期間の描画を行わせるのは（このプログラムの書き方だと）向いていないと感じます。いまのところテストしただけで実用性は考えていませんが、この程度のグラフなら自前でNSImage上にボックスを描画して表示しても大した手間にはならないでしょう。

▲スクリプトエディタ上で実行したところ

▲Script Debugger上で実行したところ

▲スクリプトメニュー上で実行したところ

Safariのアクセス履歴は例によってsqliteのDatabaseにアクセスして取得していますが、AppleScriptのランタイム環境によっては、アクセス権限がないというメッセージが出てアクセスできないことがあります。ASObjC Explorer 4上では実行できませんでしたし、Switch Control上でも実行できません。

＃　管理者権限つきで実行しても（with administrator privileges）実行できません　→ Switch Controlでも実行できるようになりました

最初に掲載したバージョンでは、グラフ化したときに表示月が１か月ズレるという問題がありました。

Google Chartsのドキュメントを確認したところ、

Note: JavaScript counts months starting at zero: January is 0, February is 1, and December is 11. If your calendar chart seems off by a month, this is why.

JavaScriptでMonthはJanuaryが0らしく、monthを-1する必要があるとdocumentに書かれていました。うわ、なにその仕様？（ーー；；；

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示（Calendar Charts）v1a.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/05/07
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "WebKit"
use scripting additions

property returnCode : 0

script spd
　　property aRes : {}
　　property bRes : {}
end script

–Calculate Safari access frequency for (parameter days)
set (aRes of spd) to calcMain(100) of safariHistLib

set (bRes of spd) to ""
repeat with i in (aRes of spd)
　　set {item1, item2, item3} to parseByDelim(theName of (contents of i), "-") of me
　　set newLine to " [ new Date(" & (item1 as string) & ", " & ((item2 – 1) as string) & ", " & (item3 as string) & "), " & (numberOfTimes of i) & "]," & (string id 10)
　　set (bRes of spd) to (bRes of spd) & newLine
end repeat

set (bRes of spd) to text 1 thru -3 of (bRes of spd)

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<head>
<div id=＼"calendarchart＼"></div>

// Draw the chart and set the chart values
function drawChart() {
var dataTable = new google.visualization.DataTable();
dataTable.addColumn({ type: ’date’, id: ’Date’ });
dataTable.addColumn({ type: ’number’, id: ’Web Access’ });
dataTable.addRows([
　　%@
]);

var chart = new google.visualization.Calendar(document.getElementById(’calendar_basic’));

var options = {
title: ＼"Web Activity＼",
height: 350,
};

chart.draw(dataTable, options);
}
</script>
</head>
<body>
　　<div id=＼"calendar_basic＼" style=＼"width: 1000px; height: 350px;＼"></div>
</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, (bRes of spd)) as string

set paramObj to {myMessage:"Calendar Chart Test", mySubMessage:"This is a simple calendar chart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 1000
　　set aHeight to 300
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

script safariHistLib
　　property parent : AppleScript
　　use scripting additions
　　use framework "Foundation"
　　
　　property |NSURL| : a reference to current application’s |NSURL|
　　
　　script spd
　　　　property sList : {}
　　　　property nList : {}
　　　　property sRes : {}
　　　　property dRes1 : {}
　　　　property dRes2 : {}
　　end script
　　
　　
　　on calcMain(daysNum)
　　　　set (dRes1 of spd) to dumpSafariHistoryFromDaysBefore(daysNum) of me
　　　　
　　　　set (dRes2 of spd) to {}
　　　　repeat with i in (dRes1 of spd)
　　　　　　copy (first item of i) as string to dStr
　　　　　　set convDstr to first item of (parseByDelim(dStr, {" "}) of me)
　　　　　　set the end of (dRes2 of spd) to convDstr
　　　　end repeat
　　　　
　　　　–日付ごとに登場頻度集計
　　　　set cRes to countItemsByItsAppearance2((dRes2 of spd)) of me
　　　　return cRes as list
　　end calcMain
　　
　　
　　–NSArrayに入れたレコードを、指定の属性ラベルの値でソート
　　on sortRecListByLabel(aArray, aLabelStr as string, ascendF as boolean)
　　　　–ソート
　　　　set sortDesc to current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabelStr ascending:ascendF
　　　　set sortDescArray to current application’s NSArray’s arrayWithObjects:sortDesc
　　　　set sortedArray to aArray’s sortedArrayUsingDescriptors:sortDescArray
　　　　
　　　　–NSArrayからListに型変換して返す
　　　　set bList to (sortedArray) as list
　　　　return bList
　　end sortRecListByLabel
　　
　　
　　on dumpSafariHistoryFromDaysBefore(daysBefore)
　　　　–現在日時のn日前を求める
　　　　using terms from scripting additions
　　　　　　set origDate to (current date) – (daysBefore * days)
　　　　end using terms from
　　　　
　　　　set dStr to convDateObjToStrWithFormat(origDate, "yyyy-MM-dd hh:mm:ss") of me
　　　　
　　　　set aDBpath to "~/Library/Safari/History.db"
　　　　set pathString to current application’s NSString’s stringWithString:aDBpath
　　　　set newPath to pathString’s stringByExpandingTildeInPath()
　　　　
　　　　set aText to "/usr/bin/sqlite3 " & newPath & " ’SELECT datetime(history_visits.visit_time+978307200, ＼"unixepoch＼", ＼"localtime＼"), history_visits.title || ＼" @ ＼" || substr(history_items.URL,1,max(length(history_items.URL)*(instr(history_items.URL,＼" & ＼")=0),instr(history_items.URL,＼" & ＼"))) as Info FROM history_visits INNER JOIN history_items ON history_items.id = history_visits.history_item where history_visits.visit_time>(julianday(＼"" & dStr & "＼")*86400-211845068000) ORDER BY visit_time ASC LIMIT 999999;’"
　　　　
　　　　using terms from scripting additions
　　　　　　set (sRes of spd) to do shell script aText
　　　　end using terms from
　　　　
　　　　set (sList of spd) to (paragraphs of (sRes of spd))
　　　　
　　　　repeat with i in (sList of spd)
　　　　　　set j to contents of i
　　　　　　
　　　　　　–Parse each field
　　　　　　set j2 to parseByDelim(j, {"|", "@ "}) of me
　　　　　　
　　　　　　set the end of (nList of spd) to j2
　　　　end repeat
　　　　
　　　　return (nList of spd)
　　end dumpSafariHistoryFromDaysBefore
　　
　　
　　
　　on parseByDelim(aData, aDelim)
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to aDelim
　　　　set dList to text items of aData
　　　　set AppleScript’s text item delimiters to curDelim
　　　　return dList
　　end parseByDelim
　　
　　
　　–出現回数で集計
　　on countItemsByItsAppearance2(aList)
　　　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　　　set bArray to current application’s NSMutableArray’s array()
　　　　set theEnumerator to aSet’s objectEnumerator()
　　　　
　　　　repeat
　　　　　　set aValue to theEnumerator’s nextObject()
　　　　　　if aValue is missing value then exit repeat
　　　　　　bArray’s addObject:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　　　end repeat
　　　　
　　　　–出現回数（numberOfTimes）で降順ソート
　　　　set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"theName" ascending:true
　　　　bArray’s sortUsingDescriptors:{theDesc}
　　　　
　　　　return bArray
　　end countItemsByItsAppearance2
　　
　　
　　on convDateObjToStrWithFormat(aDateO as date, aFormatStr as string)
　　　　set aDF to current application’s NSDateFormatter’s alloc()’s init()
　　　　
　　　　set aLoc to current application’s NSLocale’s currentLocale()
　　　　set aLocStr to (aLoc’s localeIdentifier()) as string
　　　　
　　　　aDF’s setLocale:(current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aLocStr)
　　　　aDF’s setDateFormat:aFormatStr
　　　　set dRes to (aDF’s stringFromDate:aDateO) as string
　　　　return dRes
　　end convDateObjToStrWithFormat
　　
end script

★Click Here to Open This Script　

アラートダイアログ上にWkWebViewでGoogle Chartsを表示 v2

Posted on 4月 29, 2020 by Takaaki Naganoya

アラートダイアログ上にWkWebViewを配置し、Google Chartsを用いてPie Chartを表示するAppleScriptです。

自分の開発環境（MacBook Pro Retina 2012, Core i7 2.6GHz）で10日間のアクセス履歴を処理して1.38秒程度でダイアログ表示してグラフ描画に入ります。３秒強ぐらいで描画が終了します。

WkWebViewに対して、文字列で組み立てたHTMLを読み込んでグラフ表示しています。Pie Chart上にマウスカーソルを乗せると反応します。一応表示できているぐらいで、デザイン的には余計な余白ができたままで、いまひとつな感じです。せめて、WkWebViewの背景を透明化できると大味な表示をいくらか緩和できるかと思っているのですが、WkWebViewの透明背景にはNSColorではなく（AppleScriptから作成できない）CGColorでclearColor（透明色）を指定する必要があるようで、、、、

サンプル表示データは、Safariの10日間のアクセス履歴からドメイン単位で計算したヒストグラムを、その場で計算したものを使っています。

本Scriptは、①NSAlertのダイアログ表示の経験　②WkWebView上へのコンテンツ表示の経験　③グラフ表示用FrameworkやSVGベースのグラフ作成の経験　を経て、２・３年越しで完成したものです。とくに、WkWebViewについてはサンプル数がそれほど多くなく、用途の方向性がObjective-CやSwiftと若干異なるために、参考にできるサンプルの数が多くない状況。必然的に、いろいろ試しては失敗を重ねてきました。急に出来上がってきたものではありません。

Safariの履歴集計ScriptをScriptオブジェクトの中に放り込んだら、scripting additionsの用語をusing terms from句で囲っておく必要がありました。何回か経験していますが、知らないと対処に困る現象です。

現状（macOS 10.14以降）では、Scripting AdditionはmacOS標準搭載のStandard Additionsしか存在していないし認識も行われないため、エラー内容がいまひとつわかりにくく、不正確であるように思えます。Apple純正のStandard Additionsしか存在していないんだから自分で判断しろやコラ、と言いたくなります。

AppleScript名：アラートダイアログ上にWebViewでGoogle Chartを表示 v2.scptd

property returnCode : 0

–Calc Safari access domain from history
set aRes to calcSafariHistoryBest10Domain(10) of safariHistoryLib

set aList to {{"Domain", "Access"}}
repeat with i in aRes
　　set aDom to theName of i
　　set accessNum to numberOfTimes of i
　　set the end of aList to {aDom, accessNum}
end repeat

–set aList to {{"Task", "Hours per Day"}, {"Work", 8}, {"Eat", 2}, {"TV", 4}, {"Gym", 2}, {"Sleep", 8}}

set aJsonArrayStr to array2DToJSONArray(aList) of me

–Pie Chart Template HTML
set myStr to "<!DOCTYPE html>
<html lang=＼"UTF-8＼">
<body>
<div id=＼"piechart＼"></div>

// Draw the chart and set the chart values
function drawChart() {
var data = google.visualization.arrayToDataTable(%@);

// Optional; add a title and set the width and height of the chart
var options = {’title’:’’, ’width’:600, ’height’:400};

// Display the chart inside the <div> element with id=＼"piechart＼"
var chart = new google.visualization.PieChart(document.getElementById(’piechart’));
chart.draw(data, options);
}
</script>

</body>
</html>"

set aString to current application’s NSString’s stringWithFormat_(myStr, aJsonArrayStr) as string

set paramObj to {myMessage:"Pie Chart Test", mySubMessage:"This is a simple pie chart using google charts", htmlStr:aString}
–my browseStrWebContents:paramObj–for debug
my performSelectorOnMainThread:"browseStrWebContents:" withObject:(paramObj) waitUntilDone:true

on browseStrWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set htmlString to (htmlStr of paramObj)
　　
　　set aWidth to 600
　　set aHeight to 450
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定HTML内のJavaScriptをFetch
　　set jsSource to pickUpFromToStr(htmlString, "<script type=＼"text/javascript＼">", "</script>") of me
　　
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s fileURLWithPath:(POSIX path of (path to me))
　　aWebView’s loadHTMLString:htmlString baseURL:(bURL)
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　–its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　　　
　　　　set myWindow to its |window|
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseStrWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

–Safariのn日前からの履歴をドメイン別に集計してソート
script safariHistoryLib
　　use scripting additions
　　use framework "Foundation"
　　property parent : AppleScript
　　
　　property |NSURL| : a reference to current application’s |NSURL|
　　
　　script spd
　　　　property sList : {}
　　　　property nList : {}
　　　　property sRes : {}
　　end script
　　
　　
　　on calcSafariHistoryBest10Domain(daysBefore)
　　　　–現在日時のn日前を求める
　　　　using terms from scripting additions
　　　　　　set origDate to (current date) – (daysBefore * days)
　　　　end using terms from
　　　　set dStr to convDateObjToStrWithFormat(origDate, "yyyy-MM-dd hh:mm:ss") of me
　　　　
　　　　set aDBpath to "~/Library/Safari/History.db"
　　　　set pathString to current application’s NSString’s stringWithString:aDBpath
　　　　set newPath to pathString’s stringByExpandingTildeInPath()
　　　　
　　　　set aText to "sqlite3 " & newPath & " ’SELECT datetime(history_visits.visit_time+978307200, ＼"unixepoch＼", ＼"localtime＼"), history_visits.title || ＼" @ ＼" || substr(history_items.URL,1,max(length(history_items.URL)*(instr(history_items.URL,＼" & ＼")=0),instr(history_items.URL,＼" & ＼"))) as Info FROM history_visits INNER JOIN history_items ON history_items.id = history_visits.history_item where history_visits.visit_time>(julianday(＼"" & dStr & "＼")*86400-211845068000) ORDER BY visit_time ASC LIMIT 999999;’"
　　　　
　　　　using terms from scripting additions
　　　　　　set (sRes of spd) to do shell script aText
　　　　end using terms from
　　　　
　　　　set (sList of spd) to (paragraphs of (sRes of spd))
　　　　
　　　　set (nList of spd) to {}
　　　　
　　　　repeat with i in (sList of spd)
　　　　　　set j to contents of i
　　　　　　
　　　　　　–Parse each field
　　　　　　set j2 to parseByDelim(j, {"|", "@ "}) of me
　　　　　　
　　　　　　–Calculate URL’s domain only
　　　　　　set j3 to contents of last item of j2
　　　　　　set aURL to (|NSURL|’s URLWithString:j3)
　　　　　　
　　　　　　if aURL = missing value then
　　　　　　　　set j4 to ""
　　　　　　else
　　　　　　　　set j4 to (aURL’s |host|()) as string
　　　　　　end if
　　　　　　
　　　　　　set the end of (nList of spd) to j4
　　　　end repeat
　　　　
　　　　–登場頻度でURLを集計
　　　　set aList to countItemsByItsAppearance((nList of spd)) of me
　　　　
　　　　
　　　　–Best 10の計算のために10位以下をまとめる
　　　　set best9 to items 1 thru 9 of aList
　　　　set best10 to items 10 thru -1 of aList
　　　　
　　　　set otherTimes to 0
　　　　repeat with i in best10
　　　　　　set otherTimes to otherTimes + (numberOfTimes of i)
　　　　end repeat
　　　　
　　　　set the end of best9 to {theName:"Other", numberOfTimes:otherTimes}
　　　　return best9
　　end calcSafariHistoryBest10Domain
　　
　　
　　
　　on parseByDelim(aData, aDelim)
　　　　set curDelim to AppleScript’s text item delimiters
　　　　set AppleScript’s text item delimiters to aDelim
　　　　set dList to text items of aData
　　　　set AppleScript’s text item delimiters to curDelim
　　　　return dList
　　end parseByDelim
　　
　　
　　–出現回数で集計
　　on countItemsByItsAppearance(aList)
　　　　set aSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　　　set bArray to current application’s NSMutableArray’s array()
　　　　set theEnumerator to aSet’s objectEnumerator()
　　　　
　　　　repeat
　　　　　　set aValue to theEnumerator’s nextObject()
　　　　　　if aValue is missing value then exit repeat
　　　　　　bArray’s addObject:(current application’s NSDictionary’s dictionaryWithObjects:{aValue, (aSet’s countForObject:aValue)} forKeys:{"theName", "numberOfTimes"})
　　　　end repeat
　　　　
　　　　–出現回数（numberOfTimes）で降順ソート
　　　　set theDesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"numberOfTimes" ascending:false
　　　　bArray’s sortUsingDescriptors:{theDesc}
　　　　
　　　　return bArray as list
　　end countItemsByItsAppearance
　　
　　
　　on convDateObjToStrWithFormat(aDateO as date, aFormatStr as string)
　　　　set aDF to current application’s NSDateFormatter’s alloc()’s init()
　　　　
　　　　set aLoc to current application’s NSLocale’s currentLocale()
　　　　set aLocStr to (aLoc’s localeIdentifier()) as string
　　　　
　　　　aDF’s setLocale:(current application’s NSLocale’s alloc()’s initWithLocaleIdentifier:aLocStr)
　　　　aDF’s setDateFormat:aFormatStr
　　　　set dRes to (aDF’s stringFromDate:aDateO) as string
　　　　return dRes
　　end convDateObjToStrWithFormat
　　
end script

★Click Here to Open This Script　

アラートダイアログ上のWebViewに世界地図を表示 v2b

Posted on 11月 20, 2019 by Takaaki Naganoya

世界地図のSVGをHTMLReader.frameworkでparseして、目的のノードに塗り色の指定を行い、WkWebView上で表示するAppleScriptです。

–> Download selectCountry2(Code-signed AppleScript executable applet)

昨日のものがあくまでSVGのParseと表示が目的の試作品であったのに対し、本Scriptは連続してポップアップメニューから対象を選んで表示するというものです。

同様にmacOS 10.15.1上で作成しましたが、このバージョンのOS環境ではAppleScriptアプレットにFrameworkを入れてAppleScript内から呼び出すことが標準のランタイム（Script Editorから書き出した場合）では行えないようになっており、Script Debuggerから「Application(Enhanced)」で書き出さないと呼び出せないようです（これはちょっとひどいかも、、、、）。

世界地図はWikipediaから拾ってきたもので、ISO国コードではなく名称でIDが振ってあり、日本もJapanではなくHokkaido、Honshu、Shikoku、Kyushuuに分けて登録されています。

▲Script Editor上でサードパーティFramework呼び出しの動作ができているのは、この実行環境でSIPを解除してあるからです

AppleScript名：アラートダイアログ上のWebViewに世界地図を表示 v2b.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/11/18
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "HTMLReader" –https://github.com/nolanw/HTMLReader
use framework "WebKit"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSScreen : a reference to current application’s NSScreen
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property HTMLDocument : a reference to current application’s HTMLDocument
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property theResult : 0
property returnCode : 0
property aWebView : missing value
property aLog : missing value
property tmpURL : ""

tell current application
　　set mePath to ((path to me) as string) & "Contents:Resources:World_map_-_low_resolution.svg"
　　set svgCon to read (mePath as alias)
　　
　　set aWidth to 950
　　set aHeight to 650
　　
　　
　　set paramObj to {myMessage:"Browse World map", mySubMessage:"This is a sample SVG World map", targContents:svgCon, myWidth:(aWidth), myHeight:(aHeight)}
　　–my browseLocalWebContents:paramObj
　　my performSelectorOnMainThread:"browseLocalWebContents:" withObject:(paramObj) waitUntilDone:true
　　return aLog
end tell

on browseLocalWebContents:paramObj
　　set aMainMes to (myMessage of paramObj) as string
　　set aSubMes to (mySubMessage of paramObj) as string
　　set tmpURL to (targContents of paramObj) as string –local contents
　　set aWidth to (myWidth of paramObj) as integer
　　set aHeight to (myHeight of paramObj) as integer
　　
　　
　　set aView to current application’s NSView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight))
　　
　　–Ppopup Buttonをつくる
　　set a1Button to current application’s NSPopUpButton’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, aHeight – 26, 200, 24)) pullsDown:(false)
　　a1Button’s removeAllItems()
　　
　　–Menuの中身を作る　　
　　set aHTML to current application’s HTMLDocument’s documentWithString:(tmpURL)
　　set fList to (aHTML’s nodesMatchingSelector:"path")’s valueForKeyPath:"attributes.id"
　　set fList to fList’s sortedArrayUsingSelector:"compare:"
　　
　　a1Button’s addItemWithTitle:"▼Select"
　　
　　repeat with i in fList
　　　　(a1Button’s addItemWithTitle:(i as string))
　　end repeat
　　
　　a1Button’s setTarget:(me)
　　a1Button’s setAction:("mySelector:")
　　a1Button’s setEnabled:(true)
　　
　　set aWebView to makeWebViewAndLoadContents(tmpURL, aWidth, aHeight – 40) of me
　　
　　aView’s addSubview:a1Button
　　aView’s addSubview:aWebView
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseLocalWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

–Popup Action Handler
on actionHandler:sender
　　set aTitle to title of sender as string
end actionHandler:

on mySelector:aSender
　　set targetCountry to (aSender’s title()) as string
　　
　　set aHTML to current application’s HTMLDocument’s documentWithString:(tmpURL as string)
　　
　　set eList to (aHTML’s nodesMatchingSelector:"path") as list
　　set fList to (aHTML’s nodesMatchingSelector:"path")’s valueForKeyPath:"attributes.id"
　　
　　–Search Target Country
　　set aRes to (fList)’s indexOfObject:(targetCountry)
　　if (aRes = current application’s NSNotFound) or (aRes > 9.99999999E+8) then
　　　　error "Target country not found"
　　end if
　　
　　set aRes to aRes + 1
　　
　　–Rewrite target country’s fill color on SVG
　　set tmpNode to contents of item aRes of (eList)
　　(tmpNode’s setObject:"Red" forKeyedSubscript:"fill") –Change Target Country’s fill color
　　
　　set svgCon to (tmpNode’s |document|()’s serializedFragment()) as string –HTMLReaderはこういう処理ができるところが好き
　　
　　aWebView’s loadHTMLString:svgCon baseURL:(missing value)
end mySelector:

on makeWebViewAndLoadContents(aContents as string, aWidth as integer, aHeight as integer)
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定URLのJavaScriptをFetch
　　set jsSource to my fetchJSSourceString(aContents)
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　aWebView’s setOpaque:false
　　aWebView’s setBackgroundColor:(NSColor’s clearColor())
　　–aWebView’s scrollView()’s setBackgroundColor:(NSColor’s clearColor())
　　
　　aWebView’s loadHTMLString:aContents baseURL:(missing value)
　　return aWebView
end makeWebViewAndLoadContents

★Click Here to Open This Script　

アラートダイアログ上のWebViewに円グラフを表示

Posted on 11月 18, 2019 by Takaaki Naganoya

アラートダイアログ上のWebViewにSVGで作った円グラフを表示するAppleScriptです。

Objective-Cで作られたチャート表示フレームワークなどを呼び出して試していますが、スクリプトエディタ上で作成したAppleScriptから呼び出すと、アニメーションしなかったり表示が行えなかったりといろいろ環境にフィットしていません。

＃　逆をいえば、Xcode上でCocoa AppleScriptアプリケーションを作成した場合には割とチャート表示部品をそのまま使えます

そこで、単純なグラフ表示を行うようにレベルを下げ、SVGをWkWebView上に表示する形式にしてみました。

本Scriptでは最低限のサンプルを表示させていますが、SVGの組み立てをもう少し強化してグラフの背景を透明にできればいい感じになるのではないでしょうか。

▲世界地図あたりだといい感じに見えるかもしれません。当該の国だけ色を変えるような処理を仕込めば何かに使えそうです。

AppleScript名：アラートダイアログ上のWebViewに円グラフを表示.scptd

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSImage : a reference to current application’s NSImage
property NSScreen : a reference to current application’s NSScreen
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property WKUserContentController : a reference to current application’s WKUserContentController
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property theResult : 0
property returnCode : 0

–set svgCon to read (choose file)
set svgCon to retSampleSVG() of me

set paramObj to {myMessage:"Browse Pie Chart", mySubMessage:"This is a sample pie chart made by SVG", targContents:svgCon}
–my browseLocalWebContents:paramObj
my performSelectorOnMainThread:"browseLocalWebContents:" withObject:(paramObj) waitUntilDone:true

on browseLocalWebContents:paramObj
　　set aMainMes to (myMessage of paramObj) as string
　　set aSubMes to (mySubMessage of paramObj) as string
　　set tmpURL to (targContents of paramObj) as string –local contents
　　
　　set aWidth to 330
　　set aHeight to 430
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定URLのJavaScriptをFetch
　　set jsSource to my fetchJSSourceString(tmpURL)
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　aWebView’s setOpaque:false
　　aWebView’s setBackgroundColor:(NSColor’s clearColor())
　　–aWebView’s scrollView()’s setBackgroundColor:(NSColor’s clearColor())
　　
　　aWebView’s loadHTMLString:tmpURL baseURL:(missing value)
　　
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseLocalWebContents:

on doModal:aParam
　　set (my returnCode) to (aParam’s runModal()) as number
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

on retSampleSVG()
　　return "<svg xmlns=＼"http://www.w3.org/2000/svg＼" version=＼"1.1＼" width=＼"300＼" height=＼"300＼" fill-opacity=＼"0.9＼">
<path d=＼"M 150,0 A 150,150 0 1,1 141.8986347236027,299.7810664959306 L 150,150 Z＼" fill=＼"#0153d8＼" stroke=＼"#fff＼"></path>
<text x=＼"170＼" y=＼"150＼" fill=＼"#fff＼" font-size=＼"20＼">Piyomaru</text>
<text x=＼"170＼" y=＼"190＼" fill=＼"#fff＼" font-size=＼"40＼">50.86%</text>
</svg>"
end retSampleSVG

★Click Here to Open This Script　

指定URLのMS名を取得する v2b

Posted on 9月 4, 2019 by Takaaki Naganoya

edama2さんから投稿していただいた、指定URLの初出の指定タグ要素を抽出するAppleScriptです。

戦場の絆Wiki上の指定ページ上の指定タグでマークされたテキストを取得します。

ブログを見ていて思いつき、前に作りかけていたのを清書して送ります。

名前は「指定URLのMS名を取得するv2b」です。
内容はWKWebviewでページを読み込んで、javascriptで要素を取得しています。
前の二つよりスマートではありませんが、こんなやり方もあるってことで...

色々書き換えているうちに元がないですが、元ネタはapplescriptの穴からです。

プログラムも短いわけではなく、処理速度も速いわけでもなく（自分の環境で9秒ぐらい）、ただ見ただけだと「？？？？」という内容ですが、本プログラムの価値は処理対象ではなく、

AppleScriptからWkWebViewに対して任意のJavaScriptを実行して処理しているサンプルである

という１点に尽きます。これはー、セキュリティ上のしばりがきつくて、けっこう大変なんですよ（遠い目）。

以前、WKWebView上にYouTubeの指定URLのムービーを表示するというScriptを掲載したことがありますが、本当はこの上でJavaScriptを実行して指定の再生ポジションに再生位置をジャンプさせるといった処理を行いたかったのですが、WKWebView相手に（任意の）JavaScriptを実行させられず、時間切れで諦めたことがありました（そして絶賛放置中）。なるほど、こう書くんですねー。

あとは、

tell AppleScript

ってなんなんでしょう（＾ー＾；；　初めて見かける記述のオンパレードがけっこうショッキングです。

自分は「癖のないプログラムを読みやすく書く派」を自称していますが、日本国内にも割と海外のScripterに紹介したい（変わった）人たちがいて、edama2さんとMacLab.さんはその中に必ず入ってくる人たちでしょう。

AppleScript名：指定URLのMS名を取得する v2b.scpt

—
–　　Created by: edama2
–　　Created on: 2019/09/04
—
use AppleScript
use scripting additions
use framework "Foundation"
use framework "WebKit"

property _js_result : ""

on run
　　my main()
end run

on main()
　　set my _js_result to ""
　　
　　set aURL to "https://w.atwiki.jp/senjounokizuna/pages/1650.html"
　　set myJs to "var result = document.getElementsByTagName(’h3’)[0].innerHTML;
　　webkit.messageHandlers.oreore.postMessage(result);" –>返信用に必要
　　set paramObj to {targetURL:aURL, javascript:myJs}
　　
　　my performSelectorOnMainThread:"makeWebContents:" withObject:(paramObj) waitUntilDone:true
　　
　　return my _js_result as text
end main

on makeWebContents:paramObj
　　
　　set {targetURL:aURL, javascript:myJs} to paramObj
　　
　　# 下準備
　　set thisURL to current application’s |NSURL|’s URLWithString:aURL
　　set theRequest to current application’s NSURLRequest’s requestWithURL:thisURL
　　set aConf to current application’s WKWebViewConfiguration’s new()
　　
　　#javascriptからname を取り出す
　　set myJs to myJs as text
　　tell AppleScript
　　　　set tmp to text item delimiters
　　　　set text item delimiters to "webkit.messageHandlers."
　　　　set stringList to myJs’s text items
　　　　set aText2 to stringList’s item 2
　　　　set text item delimiters to ".postMessage("
　　　　set stringList2 to aText2’s text items
　　　　set scriptName to stringList2’s item 1
　　　　set text item delimiters to tmp
　　end tell
　　
　　#ページ読み込み後に実行するjavascriptの仕込み
　　set userScript to current application’s WKUserScript’s alloc()’s initWithSource:myJs injectionTime:(current application’s WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　tell current application’s WKUserContentController’s new()
　　　　addUserScript_(userScript)
　　　　addScriptMessageHandler_name_(me, scriptName)
　　　　aConf’s setUserContentController:it
　　end tell
　　
　　#WebViewを作成＆読み込み
　　tell (current application’s WKWebView’s alloc()’s initWithFrame:(current application’s CGRectZero) configuration:aConf)
　　　　setNavigationDelegate_(me)
　　　　loadRequest_(theRequest)
　　　　
　　　　set hitF to false
　　　　repeat (minutes * 1000) times
　　　　　　set isLoading to isLoading() as boolean
　　　　　　if not isLoading then
　　　　　　　　set hitF to true
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　delay "0.001" as real
　　　　end repeat
　　　　
　　end tell
　　
　　return hitF
end makeWebContents:

#javascriptの結果を受信
on userContentController:myUserContentController didReceiveScriptMessage:aMessage
　　set my _js_result to aMessage’s body() as text
　　return my _js_result
end userContentController:didReceiveScriptMessage:

★Click Here to Open This Script　

アラートダイアログ上にWebViewを表示

Posted on 3月 5, 2019 by Takaaki Naganoya

アラートダイアログ上にWKWebViewを表示するAppleScriptです。

テストのためにYouTubeのムービーの自動再生URL（戦場の絆のリプレイムービー）をオープンしています。

▲Table ViewとWeb Viewを組み合わせて、所定の場所にYouTubeムービーの頭出しを行う試作品を作ってみたものの、JavaScript経由でWKWebViewをコントロールするのが難しくて頓挫

本来であれば、WkWebViewに対してJavaScript経由でさまざまな操作を行いたいところですが、オープン中のWebコンテンツに対して新たなJavaScriptのインスタンスを生成してセキュリティチェックを行なって、実際に実行を行うのが（自分には）少々難しく感じました。WkWebViewだとあまり凝った制御はできない印象です。Safariをコントロールするほうが自由度が高いところ。

WkWebViewを「自由にこづきまわして操作できる部品」として使うためには、素のままのWkWebViewではない何かを使ったほうがいいのかも？

AppleScript名：アラートダイアログ上にWebViewを表示.scptd

property |NSURL| : a reference to current application’s |NSURL|
property NSAlert : a reference to current application’s NSAlert
property NSColor : a reference to current application’s NSColor
property NSString : a reference to current application’s NSString
property NSScreen : a reference to current application’s NSScreen
property NSButton : a reference to current application’s NSButton
property WKWebView : a reference to current application’s WKWebView
property NSScrollView : a reference to current application’s NSScrollView
property WKUserScript : a reference to current application’s WKUserScript
property NSURLRequest : a reference to current application’s NSURLRequest
property NSRunningApplication : a reference to current application’s NSRunningApplication
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSBackingStoreBuffered : a reference to current application’s NSBackingStoreBuffered
property WKUserContentController : a reference to current application’s WKUserContentController
property NSMomentaryLightButton : a reference to current application’s NSMomentaryLightButton
property WKWebViewConfiguration : a reference to current application’s WKWebViewConfiguration
property NSAlertSecondButtonReturn : a reference to current application’s NSAlertSecondButtonReturn
property WKUserScriptInjectionTimeAtDocumentEnd : a reference to current application’s WKUserScriptInjectionTimeAtDocumentEnd

property theResult : 0
property returnCode : 0
property theDataSource : {}

set aURL to "https://www.youtube.com/embed/GP_tVXTYdmY?autoplay=1&hd=1"
set paramObj to {myMessage:"Browse a Replay", mySubMessage:"Browse Senjo-No-Kizuna Replay Movie", targURL:aURL}
my performSelectorOnMainThread:"browseWebContents:" withObject:(paramObj) waitUntilDone:true

on browseWebContents:paramObj
　　set aMainMes to myMessage of paramObj
　　set aSubMes to mySubMessage of paramObj
　　set tmpURL to (targURL of paramObj)
　　
　　set aWidth to 600
　　set aHeight to 450
　　
　　–WebViewをつくる
　　set aConf to WKWebViewConfiguration’s alloc()’s init()
　　
　　–指定URLのJavaScriptをFetch
　　set jsSource to my fetchJSSourceString(tmpURL)
　　set userScript to WKUserScript’s alloc()’s initWithSource:jsSource injectionTime:(WKUserScriptInjectionTimeAtDocumentEnd) forMainFrameOnly:true
　　set userContentController to WKUserContentController’s alloc()’s init()
　　userContentController’s addUserScript:(userScript)
　　aConf’s setUserContentController:userContentController
　　
　　set aWebView to WKWebView’s alloc()’s initWithFrame:(current application’s NSMakeRect(0, 0, aWidth, aHeight – 100)) configuration:aConf
　　aWebView’s setNavigationDelegate:me
　　aWebView’s setUIDelegate:me
　　aWebView’s setTranslatesAutoresizingMaskIntoConstraints:true
　　
　　set bURL to |NSURL|’s URLWithString:tmpURL
　　set aReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:aReq –Webコンテンツのローディング
　　
　　— set up alert　　
　　set theAlert to NSAlert’s alloc()’s init()
　　tell theAlert
　　　　its setMessageText:aMainMes
　　　　its setInformativeText:aSubMes
　　　　its addButtonWithTitle:"OK"
　　　　its addButtonWithTitle:"Cancel"
　　　　its setAccessoryView:aWebView
　　end tell
　　
　　— show alert in modal loop
　　NSRunningApplication’s currentApplication()’s activateWithOptions:0
　　my performSelectorOnMainThread:"doModal:" withObject:(theAlert) waitUntilDone:true
　　
　　–Stop Web View Action
　　set bURL to |NSURL|’s URLWithString:"about:blank"
　　set bReq to NSURLRequest’s requestWithURL:bURL
　　aWebView’s loadRequest:bReq
　　
　　if (my returnCode as number) = 1001 then error number -128
end browseWebContents:

on doModal:aParam
　　set (my returnCode) to aParam’s runModal()
end doModal:

on viewDidLoad:aNotification
　　return true
end viewDidLoad:

★Click Here to Open This Script　

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

タグ: WKWebView

アラートダイアログ上にWebViewで3Dコンテンツを表示（WebGL＋three.js）v3

不可視プロセスで表示したNSAlertを最前面に表示

アラートダイアログでMarkdownをプレビュー v3a

アラートダイアログ上にWebViewでCesiumを用いて地球儀上に地図を表示

アラートダイアログ上のWebViewでGio.jsを用いて地球儀＋データアニメーション表示 v2a

アラートダイアログ上にWebViewでChart.jsを表示（Pie Chart） v2

アラートダイアログ上にd3-cloudを用いてワードクラウドを表示

アラートダイアログ上にWebViewでGoogle Chartを表示（Column Chart）

アラートダイアログ上にWebViewでGoogle Chartを表示（Bubble Chart）

アラートダイアログ上にWebViewでGoogle Chartを表示（Gantt Chart）

アラートダイアログ上にWebViewでGoogle Chartを表示（Bar Chart）

アラートダイアログ上にWebViewでGoogle Chartを表示（WordTree）

アラートダイアログ上にWebViewでGoogle Chartsを表示（Geo Chart 1）

クリップボード内の文字種別を集計して円グラフ表示

アラートダイアログ上にWebViewでGoogle Chartsを表示（Calendar Chart）

アラートダイアログ上にWkWebViewでGoogle Chartsを表示 v2

アラートダイアログ上のWebViewに世界地図を表示 v2b

アラートダイアログ上のWebViewに円グラフを表示

指定URLのMS名を取得する v2b

アラートダイアログ上にWebViewを表示