Jump to content

Philosophical Research:RatingHub/YT/swcclectures2031: Difference between revisions

Add links
From Philosophical Research
archive lisp program as-is; cr. 2023-11-06T09:53:06Z
 
m Reversedragon moved page User:Reversedragon/RatingHub/YT/swcclectures2031 to Philosophical Research:RatingHub/YT/swcclectures2031: Entity number or thesis portal structure was not final
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
== Program ==
Rating subject: YouTube video channel <strong>@swcclectures2031</strong>


<pre>;;;; # channel @swcclectures2031
* These lectures are from Tsinghua University, by Associate Professor Feng Wuzhong at the School of Marxism.
(asdf:load-system "channel-rating")
* This rating sheet is being re-made as a test of the new rating rubric. Right now it contains dummy data.
(defpackage :reversedragon3.rating.swcc-lectures
  (:shadowing-import-from :reversedragon3.rating  #:rating)
  (:use :common-lisp))
(in-package :reversedragon3.rating.swcc-lectures)
;; before I forget again - these lectures are from Tsinghua University by Associate Professor Feng Wuzhong at the School of Marxism. I always forget his name for unknown reasons


(defun main ()
{{HueCSS}}
  (let (likes dislikes num-likes num-dislikes)
<dl class="wikitable hue data_rating">
  (setq
{{HueRoster|P={{Ontology:P34}}| Deng Xiaoping Thought }}
      likes (append
{{HueRoster|P=overall rating| {{Ontology:Q543}} }}
        (list  ; regular
{{HueRoster|P=original version| [[Special:PermanentLink/4172|2023-11]] }}
            'GxbKOjXnE-0
</dl>
            'TYlLBGbqrxI  "HI-0m8PB_NE" 'TxiNbKDzTIM  'Wa4BL0LI-0o  'ZpNZx2UvLTM  'DcA52cQR-rM
            'HEjODjnfq-o  '6Umh4WBdmTk  'jne1iyQv2No  'vGFUAB3-GRY  '-mXRNDec06E  'DpIlhFUFqPs
            '53IYYrEia9I  'uLoaPivZa6M  'fgsH898PRDw  "c_SdOf-DNEI" '90UKrrp5JG4  'lf3VW9wzl1g
            'LFDmtTIa6UI  'rkI2NEPNOi0  "zt_ca5xr6q0" "4_x4Mv6Utm4" 'Y3a7TRsCbDM  'bP-Vp8gWDd0
            'LfzJnLPwyUw  'HwonrsZ8R7o  'n8Lor36nT8o  'VainzFGFnLA  '62mvMWJHt8g  'cPYoq9Nb2bA


            ;; chapter 4
== Rating sheet ==
            )
        nil)
     
      ;;dislikes (append
      ;;  nil
      ;;  nil)
      )
 
  (rating likes dislikes)
  ))


(print (main))
<dl class="wikitable hue data_rating">
{{WorkRating| GxbKOjXnE-0 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| TYlLBGbqrxI |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| HI-0m8PB_NE |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| TxiNbKDzTIM |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| Wa4BL0LI-0o |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| ZpNZx2UvLTM |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| DcA52cQR-rM |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| HEjODjnfq-o |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| 6Umh4WBdmTk |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| jne1iyQv2No |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| vGFUAB3-GRY |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| -mXRNDec06E |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| DpIlhFUFqPs |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| 53IYYrEia9I |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| uLoaPivZa6M |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| fgsH898PRDw |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| c_SdOf-DNEI |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| 90UKrrp5JG4 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| lf3VW9wzl1g |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| LFDmtTIa6UI |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| rkI2NEPNOi0 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| zt_ca5xr6q0 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| 4_x4Mv6Utm4 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| Y3a7TRsCbDM |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| bP-Vp8gWDd0 |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| LfzJnLPwyUw |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| HwonrsZ8R7o |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| n8Lor36nT8o |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| VainzFGFnLA |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| 62mvMWJHt8g |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
{{WorkRating| cPYoq9Nb2bA |R=[[Special:PermanentLink/NNNN|25-5-??]]|Q=0|N=0|G={{Ontology:Q543}}| {{Ontology:PNNN}} | {{Ontology:PNNN}} }}
</dl>




;; :: cr. 2023-11-06T09:53:06Z
[[Category:Source communication rating sheets]]
;; :: ed. 2024-04-16T21:57:23Z
;;      date began 'serious review' by chapter
</pre>
 
== Lisp library ==
 
<pre>;;; toolkit for rating-sheets
(defpackage :reversedragon3.rating
  (:use :common-lisp)
  ;; (:local-nicknames )
  (:export
      ;; #:nearest-pow10 #:deduplicate
      #:rating #:stylesheet
))
(in-package :reversedragon3.rating)
 
(defun nearest-pow10 (value)  ; round up to nearest power of 10, such as 70 -> 100
  (expt 10 (ceiling (expt value (/ 1 10)))))
 
(defun deduplicate (list)
  (let ((known-id (make-hash-table :test 'equal))
          result canonical stored)
  (dolist (item list)
      (setq
        canonical
            (if (stringp item)
              item  (symbol-name item))
        stored (gethash (string-upcase canonical) known-id))
      (cond
        ((equal canonical stored)
            (format t "Item ~a matched known item ~a~%" canonical stored))
        (t
            (setf
              (gethash (string-upcase canonical) known-id) canonical
              result (cons canonical result))
            ))
      (setq  stored nil  canonical nil))
  (reverse result)))
 
(defun rating (likes dislikes  &optional neutral)
  (setq
      likes    (deduplicate likes)
      dislikes (deduplicate dislikes)
      neutral  (deduplicate neutral))
  (let* (
      (num-likes    (length likes))
      (num-dislikes (length dislikes))
      (total        (+ num-likes num-dislikes (length neutral)))
      (percentage-likes
        (truncate (* (nearest-pow10 total) (/ num-likes total))))
      (percentage-dislikes
        (truncate (* (nearest-pow10 total) (/ num-dislikes total))))
  )
  (list  num-likes num-dislikes  percentage-likes percentage-dislikes)))
 
(defun stylesheet (videos)
  (let ((result
      (make-string-output-stream)))
  (format result ".unlikely-dummy-item~%")
  (dolist (item videos)
      (format result
        ", .watch-active-metadata[video-id=\"~A\" i] div, a.ytd-rich-grid-media[href*=\"~A\" i]~%"
        item item))
  (format result "{ background-color: #9f9ff7; }~%~%.watch-active-metadata div * { background-color: transparent !important; }")
  (get-output-stream-string result)))</pre>
 
[Note: it's been a while since this code has been tested, so I do not know if it works.]

Latest revision as of 00:04, 25 July 2025

Rating subject: YouTube video channel @swcclectures2031

  • These lectures are from Tsinghua University, by Associate Professor Feng Wuzhong at the School of Marxism.
  • This rating sheet is being re-made as a test of the new rating rubric. Right now it contains dummy data.
field, scope, or group [Item]
Deng Xiaoping Thought
overall rating
U / Unknown 1-1-1
original version
2023-11

Rating sheet[edit]

contained work
GxbKOjXnE-0
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
TYlLBGbqrxI
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
HI-0m8PB_NE
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
TxiNbKDzTIM
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
Wa4BL0LI-0o
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
ZpNZx2UvLTM
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
DcA52cQR-rM
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
HEjODjnfq-o
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
6Umh4WBdmTk
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
jne1iyQv2No
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
vGFUAB3-GRY
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
-mXRNDec06E
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
DpIlhFUFqPs
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
53IYYrEia9I
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
uLoaPivZa6M
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
fgsH898PRDw
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
c_SdOf-DNEI
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
90UKrrp5JG4
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
lf3VW9wzl1g
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
LFDmtTIa6UI
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
rkI2NEPNOi0
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
zt_ca5xr6q0
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
4_x4Mv6Utm4
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
Y3a7TRsCbDM
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
bP-Vp8gWDd0
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
LfzJnLPwyUw
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
HwonrsZ8R7o
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
n8Lor36nT8o
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
VainzFGFnLA
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
62mvMWJHt8g
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
contained work
cPYoq9Nb2bA
rating
U / Unknown 1-1-1
r
25-5-??
tests
Ontology:PNNN
0
available tests
0
Retrieved from "https://research.moraleconomy.au/index.php?title=Philosophical_Research:RatingHub/YT/swcclectures2031&oldid=6692"